进销存表格,excel
篇一:进销存的Excel表格是怎么做的
进销存的Excel表格是怎么做的?
双击自动滚屏
发布者:进销存管理系统_进销存软件
方法与步骤
(一)新建工作簿
1(单击“开始”菜单,在弹出的开始菜单项中单击“新建office文档”,出现“新建office文档”对话框窗口。
2(“新建office文档”对话框窗口中的“常用”活页夹中,双击“空工作簿”,出现名为“Book1”的空工作簿。
3(将“Book1”保存为“进销存自动统计系统(xls”。
(二)定义工作表名称及数据
1(双击“Sheet1”工作表标签,输入“进货”后按【Enter】键。
2(双击“Sheet2”工作表标签,输
入“销售”后按【Enter】键。
3(双击“Sheet3”工作表标签,输入“进销存自动统计”后按
【Enter】键。
1
4(选择“进货”工作表,输入标
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
(进货日期、商品名称、进货数量)和相应各项数据。
限于篇幅,以及仅为说明问题起见,这里只列举甲、乙、丙三种商品(表1图)。
5(选择“销售”工作表,输入标题(销售日期、销售去向、商品名称、销售数量)和相应各项数据(表2图)。
6(选择“进销存自动统计”工作表,在第一行中分别输入标题内容:商品名称、当前总进货量、当前总销售量、当前库存量(表3图)。
(三)定义公式
1(在“进销存自动统计”工作表中选择B2单元格,输入“=SUMIF(进货~B:B,甲,进货~C:C)”,按【Enter】键。
2(向下拖动B2单元格右下方的黑点至B4单元格,进行公式复制的操作。
3(选择B3单元格,按F2键,修改公式中的“甲”为“乙”,同样,修改B4单元格公式中的“甲”为“丙”。如果有更多的商品,依此类推,直至修改完毕为止。注意,从公式定义可以看出,此例中的单元格相加求和的条件依据是商品名称:甲、乙、丙。
4(选定B2至B4单元格,向右拖动B4单元格右下方的黑点至C列,进行公式的复制操作。
2
5(选择C2单元格,按F2键,将公式中的“进货”修改为“销售”,同样,再分别修改C3、C4单元格公式中的“进货”为“销售”。如果有更多的单元格需要定义公式,依此类推,直至修改完毕为止。
6(选定D2单元格,输入“=B2-C2”,按【Enter】键。
7(向下拖动D2单元格右下方的黑点至D4单元格(如果有更多的,一直向下拖动到最后一个单元格即可),完成公式的复制工作。
(四)库存报警(字符突出显示)设置
1(单击D列的列标,然后选择“格式”菜单中的“条件格式”命令。
2(在打开的“条件格式”对话框中,在“条件1”区域中进行最高库存量报警的突出显示设置:
首先,从左到右,分别选定“单元格数值”(Excel97中是“单元格数值为”)、“大于或等于”,并输入一个合适的最高库存量报警线数字。 然后,单击“格式”按钮,在打开的对话框中设置颜色为“红色”,字形为“加粗”。
最后按“确定”按钮,完成库存一旦超高即报警的突出显示设置。
3(在“条件格式”对话框中,单击“添加”按钮,随即便会增加一个“条件2”区域。
在“条件2”区域中进行最低库存量报警的突出显示设置:
3
首先,从左到右,分别选定“单元格数值”、“小于或等于”,并输入一个合适的最低库存量报警线数字(比如,输入1,表示当库存只剩一件或没有时,突出警示)。
然后单击“格式”按钮,再在打开的对话框中设置颜色为“蓝色”,字形为“加粗”。
最后按“确定”按钮,即完成库存超低的报警突出显示设置。
(五)日常应用
1(平时,每次只要在“进货”工作表和“销售”工作表中输入实际发生的进货或销售数据,“进销存自动统计”表中便会自动得到当前的总进货量、当前的总销售量以及当前库存量。同时,当库存量超过或低于报警线数字时,就会以红色或蓝色并加粗字符来突出显示。
2(购入“进货”工作表中没有的新货时,需要按照上面所述方法在“进货”工作表和“进销存自动统计”工作表中增设相应的商品名称及其取数公式,公式设置还是按照前面所描述的方法,采取复制加修改的方法最快捷。
结束语
本文提供和介绍了利用Excel实现有关进销存业务自动统计的一种基本思路和基本做法,其中重点是公式和条件格式的运用。至于商品进销存业务中的“商品编号”、“业务摘要”
、“单价”、“金额”以及“备注”等,可根据各自需要在工作
4
表中进行相应设置;也可以对举例中的数据项标题名称进行更改;还可以对公式中单元格相加求和的条件依据进行更改,比如,“商品名称”变为“商品编号”。
篇二:excel进销存使用说明及代码
excel进销存使用说明
.doc
一、初始密码:999
二、启用宏,见下图。
1
2
三、清除无效内容
四、输入内容
可以在表格中直接输入,也可以在输入框中输入后,单击新增品种按钮。
‘代码:
Private Sub CommandButton1_Click()
'查看下一个
Dim i As Integer
For i = Range(i4) To 1224
If Range(a & i) = Then MsgBox 没找到: GoTo 50
If Range(a & i) = mingcheng.Text Then
Range(a & i).Select
5
Rows(i & : & i).Select
guige.Text = Range(b & i)
bianma.Text = Range(c & i)
shuliang.Text = Range(e & i)
leibie.Text = Range(d & i)
danjia.Text = Range(f & i)
jine.Text = Range(g & i)
guige.Text = Range(b & i)
bianma.Text = Range(c & i)
xshuliang.Text = Range(h & i)
leibie.Text = Range(d & i)
xdanjia.Text = Range(i & i)
xjine.Text = Range(j & i)
cshuliang.Text = Range(k & i)
cjine.Text = Range(l & i)
Range(i4) = i + 1
'Range(b & i) =
' Range(c & i) =
' Range(D & i) =
' Range(E & i) = ok
GoTo 50
End If
6
Next
MsgBox 找到了~
' Range(b8).Select
'
50
End Sub
Private Sub CommandButton10_Click()
Range(A10001:G10299).Select
Selection.ClearContents
Range(A10001:G10305).Select
Selection.Delete Shift:=xlUp
Range(G10000).Select
End Sub
Private Sub CommandButton2_Click()
'查看
Dim i As Integer
For i = 3 To 1224
If Range(a & i) = Then MsgBox 没找到: GoTo 50
If Range(a & i) = mingcheng.Text Then
Range(a & i).Select
Rows(i & : & i).Select
guige.Text = Range(b & i)
7
bianma.Text = Range(c & i)
shuliang.Text = Range(e & i)
leibie.Text = Range(d & i)
danjia.Text = Range(f & i)
jine.Text = Range(g & i)
guige.Text = Range(b & i)
bianma.Text = Range(c & i)
xshuliang.Text = Range(h & i)
leibie.Text = Range(d & i)
xdanjia.Text = Range(i & i)
xjine.Text = Range(j & i)
cshuliang.Text = Range(k & i)
cjine.Text = Range(l & i)
Range(i4) = i + 1
'Range(b & i) =
' Range(c & i) =
' Range(D & i) =
' Range(E & i) = ok
GoTo 50
End If
Next
MsgBox 找到了~
8
' Range(b8).Select
'
50
End Sub
Private Sub CommandButton3_Click() '新增进货
Dim i As Integer
i = Range(i4) - 1
Range(e & i) = Range(e & i) + shuliang.Text
Range(f & i) = danjia.Text
'显示更新结果
guige.Text = Range(b & i) bianma.Text = Range(c & i) shuliang.Text = Range(e & i) leibie.Text = Range(d & i) danjia.Text = Range(f & i) jine.Text = Range(g & i)
guige.Text = Range(b & i) bianma.Text = Range(c & i) xshuliang.Text = Range(h & i) leibie.Text = Range(d & i) xdanjia.Text = Range(i & i) xjine.Text = Range(j & i)
cshuliang.Text = Range(k & i) cjine.Text = Range(l & i)
End Sub
Private Sub CommandButton4_Click() '修改进货
9
Dim i As Integer
i = Range(i4) - 1
Range(e & i) = shuliang.Text
Range(f & i) = danjia.Text
'显示更新结果
guige.Text = Range(b & i) bianma.Text = Range(c & i) shuliang.Text = Range(e & i) leibie.Text = Range(d & i) danjia.Text = Range(f & i) jine.Text = Range(g & i)
guige.Text = Range(b & i) bianma.Text = Range(c & i) xshuliang.Text = Range(h & i) leibie.Text = Range(d & i) xdanjia.Text = Range(i & i) xjine.Text = Range(j & i)
cshuliang.Text = Range(k & i)
篇三:自动统计库存的进销存
模板
个人简介word模板免费下载关于员工迟到处罚通告模板康奈尔office模板下载康奈尔 笔记本 模板 下载软件方案模板免费下载
(EXCEL)
自动统计库存的进销存模板(EXCEL)
自动统计库存的进销存模板(EXCEL)
-----------(如何自下而上搜索某个值)
流水工作表用于记进货和销售的流水账,库存栏通过四个
函数(IF、MAX、ROW、OFFSET)组成数组公式自动得
到最新的库存数。附图:
库存表由AB两列组成,A列为货物名称,B列为库存
10
数。B列数据由“流水”工作表中自动统计得到,B列的数组公式同样用到上述四个函数。附图:
这两个表的关键是利用MAX、ROW 和OFFSET函数在某列自下而上搜索到等于某个值的单元格。
重要补充:
原流水工作表E2单元格公式可改为如下普通公式:
=IF(A2=,,SUMPRODUCT((B$2:B2=B2)*C$2:C2-D$2:D2))
库存表B2单元格公式也可改为如下普通公式:
=IF(A2=,,SUMPRODUCT((流水!B$2:B$10000=A2)*流水!C$2:C$10000-流水
!D$2:D$10000))
特别提示:经过改进,此模板含有“流水”、“实时库存”、“进货月报”、“销货月报”四个工作表,只需要在“流水”工作表中记录进货、销货情况,其余三个工作表数据自动生成。需要此模板的网友,发消息将你的邮箱告诉我即可。
11