论文部分内容阅读
[摘 要]论文以Excel 2003/XP环境为基础，给出了进销存管理信息系统的单元格的实现方法与库存信息的自动生成的VBA程序实现方法，对中小企业实现企业信息化管理具有很好的借鉴价值。
[关键词]Excel 2003/XP；进销存管理信息系统；设计方案
[中图分类号] F270.7
[文献标识码] A
[文章编号] 1673-0194(2006)09-0014-02
[收稿日期] 2006-06-30
[作者简介] 朱顺泉（1965-），湖南人，2004年上海财经大学应用经济学博士后出站，现为广东商学院信息学院教授。主要研究方向：管理信息系统，信用评级与财务预警，投资决策与风险分析等。
1 引言
目前市面上一般的进销存管理信息系统至少需要几千元，而且需要大量维护费用，购买现成的进销存管理信息系统，对于一个刚刚起步中小企业来说，是不可取的。是否可以开发出一个简单易行的进销存管理信息系统呢？这里介绍在Excel 2003/XP环境下，来开发中小企业的进销存管理信息系统，实现中小企业的进销存信息管理的办公自动化，这样可以既省钱又省力地进行企业信息化管理的建设。
2 进销存管理信息系统单元格的操作实现方法
这里我们要实现的是：一个小公司的进销存信息管理，假设每月的销售记录不超过1 000个数据，进货的记录不超过50个数据，产品品种为5种，即AA、BB、CC、DD、EE。实现的步骤如下：
（1）创建销售工作表
进入Excel，单击“文件”菜单，再单击“新建”命令，创建一个新工作簿。在工作表sheet1上建立产品销售报表，方法是单击工作表标签sheet1，进入工作表sheet1，在A1单元格内输入“日期”，在B1单元格内输入“购货单位”，在C1单元格内输入“产品型号”，在D1单元格内输入“销售数量”。用鼠标双击工作表标签，改名为“销售”，如图1所示。
（4）实现自动动态统计和进货提示
①自动动态统计：在“库存”工作表中的B2单元格内输入函数“=Sumif(进货!＄B＄2:＄B＄51,A2,进货!＄C＄2:＄C＄51)”，用鼠标单击B2单元格右下角的填充柄不放，向下拖动至B6单元格进行公式复制。同理，在C2单元格内输入函数“=Sumif(销售!＄C＄2:＄C＄1001,A2,销售!＄D＄2:＄D＄1001)”，用鼠标单击C2单元格右下角的填充柄不放，向下拖动至C6单元格进行公式复制。在D2单元格内输入公式“=B2－C2”，用鼠标单击D2单元格右下角的填充柄不放，向下拖动至D6单元格进行公式复制。
②自动进货提示：在F2单元格内输入公式“=if(D2 至此，当前库存情况的自动动态统计和进货提示工作便完成了。以后，每当在“销售”工作表或“进货”工作表中输入一个数据，在“库存”工作表中就自动统计出每一种产品的“进货数量”、“销售数量”和“当前库存量”，并且会在“进货提示”栏内自动提示哪种产品该进货了。
假设我们规定了各种产品的最小库存量（AA,34;BB,100;CC,80;DD,20;EE,100），在进货表中输入了产品的进货数量（AA,234;BB,1000;CC,360;DD,100;EE,600），在销售表中输入了产品的销售数量（AA,201;BB,870;CC,300;DD,56;EE,398），打开库存表，如图3所示。
从进货提示栏选择进货，如图5所示。这样，就可以清楚地知道哪种产品该进货了。
3 进销存管理信息系统库存信息的VBA程序自动生成实现方法
以上的操作过程是很繁琐的，稍微一不小心就很容易出错，为了避免这种情况的发生，提高工作效率，也可以通过Excel的VBA宏来实现。为此，编制VBA代码如下，这样就可以实现库存信息管理的自动化。
Sub kc( )
Sheets("库存").Select
For i = 1 To 5
Range("b2").Offset(i - 1, 0) = Application.SumIf(Range("进货!B:B"), Range("A2").Offset(i - 1, 0), Range("进货!C:C"))
Range("C2").Offset(i - 1, 0) = Application.SumIf(Range("销售!C:C"), Range("A2").Offset(i - 1, 0), Range("销售!D:D"))
Range("d2").Offset(i - 1, 0) = Range("b2").Offset(i - 1, 0) - Range("C2").Offset(i - 1, 0)
If Range("d2").Offset(i - 1, 0) < Range("e2").Offset(i - 1, 0) Then
Range("f2").Offset(i - 1, 0) = "进货"
Else
Range("f2").Offset(i - 1, 0) = "不进货"
End If
Next i
End Sub
[关键词]Excel 2003/XP；进销存管理信息系统；设计方案
[中图分类号] F270.7
[文献标识码] A
[文章编号] 1673-0194(2006)09-0014-02
[收稿日期] 2006-06-30
[作者简介] 朱顺泉（1965-），湖南人，2004年上海财经大学应用经济学博士后出站，现为广东商学院信息学院教授。主要研究方向：管理信息系统，信用评级与财务预警，投资决策与风险分析等。
1 引言
目前市面上一般的进销存管理信息系统至少需要几千元，而且需要大量维护费用，购买现成的进销存管理信息系统，对于一个刚刚起步中小企业来说，是不可取的。是否可以开发出一个简单易行的进销存管理信息系统呢？这里介绍在Excel 2003/XP环境下，来开发中小企业的进销存管理信息系统，实现中小企业的进销存信息管理的办公自动化，这样可以既省钱又省力地进行企业信息化管理的建设。
2 进销存管理信息系统单元格的操作实现方法
这里我们要实现的是：一个小公司的进销存信息管理，假设每月的销售记录不超过1 000个数据，进货的记录不超过50个数据，产品品种为5种，即AA、BB、CC、DD、EE。实现的步骤如下：
（1）创建销售工作表
进入Excel，单击“文件”菜单，再单击“新建”命令，创建一个新工作簿。在工作表sheet1上建立产品销售报表，方法是单击工作表标签sheet1，进入工作表sheet1，在A1单元格内输入“日期”，在B1单元格内输入“购货单位”，在C1单元格内输入“产品型号”，在D1单元格内输入“销售数量”。用鼠标双击工作表标签，改名为“销售”，如图1所示。
（4）实现自动动态统计和进货提示
①自动动态统计：在“库存”工作表中的B2单元格内输入函数“=Sumif(进货!＄B＄2:＄B＄51,A2,进货!＄C＄2:＄C＄51)”，用鼠标单击B2单元格右下角的填充柄不放，向下拖动至B6单元格进行公式复制。同理，在C2单元格内输入函数“=Sumif(销售!＄C＄2:＄C＄1001,A2,销售!＄D＄2:＄D＄1001)”，用鼠标单击C2单元格右下角的填充柄不放，向下拖动至C6单元格进行公式复制。在D2单元格内输入公式“=B2－C2”，用鼠标单击D2单元格右下角的填充柄不放，向下拖动至D6单元格进行公式复制。
②自动进货提示：在F2单元格内输入公式“=if(D2
假设我们规定了各种产品的最小库存量（AA,34;BB,100;CC,80;DD,20;EE,100），在进货表中输入了产品的进货数量（AA,234;BB,1000;CC,360;DD,100;EE,600），在销售表中输入了产品的销售数量（AA,201;BB,870;CC,300;DD,56;EE,398），打开库存表，如图3所示。
从进货提示栏选择进货，如图5所示。这样，就可以清楚地知道哪种产品该进货了。
3 进销存管理信息系统库存信息的VBA程序自动生成实现方法
以上的操作过程是很繁琐的，稍微一不小心就很容易出错，为了避免这种情况的发生，提高工作效率，也可以通过Excel的VBA宏来实现。为此，编制VBA代码如下，这样就可以实现库存信息管理的自动化。
Sub kc( )
Sheets("库存").Select
For i = 1 To 5
Range("b2").Offset(i - 1, 0) = Application.SumIf(Range("进货!B:B"), Range("A2").Offset(i - 1, 0), Range("进货!C:C"))
Range("C2").Offset(i - 1, 0) = Application.SumIf(Range("销售!C:C"), Range("A2").Offset(i - 1, 0), Range("销售!D:D"))
Range("d2").Offset(i - 1, 0) = Range("b2").Offset(i - 1, 0) - Range("C2").Offset(i - 1, 0)
If Range("d2").Offset(i - 1, 0) < Range("e2").Offset(i - 1, 0) Then
Range("f2").Offset(i - 1, 0) = "进货"
Else
Range("f2").Offset(i - 1, 0) = "不进货"
End If
Next i
End Sub