存货明细表Excel模板_管理资源吧
存货明细表Excel模板
类别：Excel模板
系统：Win9X/XP/Vista/7/8
运行：PowerPoint
语言：简体中文
推荐：★★★☆☆
大小：20KB
人气：92℃
更新： 22:00
已通过卡巴斯基检测
……………………查看: 7609|回复: 11
怎样把仓库进货﹑销售数据生成库存明细表
阅读权限20
在线时间 小时
本帖最后由 O枫O 于
09:04 编辑
(2.46 KB, 下载次数: 263)
09:04 上传
点击文件名下载附件
& &怎样把仓库进货﹑销售数据生成库存明细表
阅读权限100
在线时间 小时
Sub yy()
Dim Arr, i&, aa, j&, bt, Brr,m&,n&
Dim d, k, t
Set d = CreateObject(&Scripting.Dictionary&)
Sheet2.Activate
[a2].Resize(5000, 6).Clear
bt = Array(&日期&, &商品名称&, &商场名称&, &采购进货数量&, &商品销售数量&, &商品库存数量累计&)
Arr = Sheet1.[a1].CurrentRegion
For i = 3 To UBound(Arr)
& & x = Arr(i, 2) & &,& & Arr(i, 3)
& & d(x) = d(x) & i & &,&
Next
k = d.keys
t = d.items: m = 1
For i = 0 To UBound(k)
& & t(i) = Left(t(i), Len(t(i)) - 1)
& & m = m + 1
& & Cells(m, 1).Resize(1, UBound(bt) + 1) = bt: n = m + 1
& & If InStr(t(i), &,&) Then
& && &&&aa = Split(t(i), &,&)
& && &&&For j = 0 To UBound(aa)
& && && && &m = m + 1
& && && && &Cells(m, 1) = Arr(aa(j), 1)
& && && && &Cells(m, 2) = Arr(aa(j), 2)
& && && && &Cells(m, 3) = Arr(aa(j), 3)
& && && && &If Arr(aa(j), 4) = &采购进货& Then
& && && && && & Cells(m, 4) = Arr(aa(j), 5)
& && && && &Else
& && && && && & Cells(m, 5) = Arr(aa(j), 5)
& && && && &End If
& && && && &If j = 0 Then
& && && && && & Cells(m, 6) = Cells(m, 4) - Cells(m, 5)
& && && && &Else
& && && && && & Cells(m, 6) = Cells(m - 1, 6) + Cells(m, 4) - Cells(m, 5)
& && && && &End If
& && &&&Next
& & Else
& & End If
& & m = m + 1
& & Cells(m, 1) = &合计&
& & Cells(m, 1).Resize(1, 3).Merge
& & Cells(m, 4) = &=sum(r[-& & m - n & &]c:r[-1]c)&
& & Cells(m, 5) = &=sum(r[-& & m - n & &]c:r[-1]c)&
& & Cells(m, 6) = &=r[-1]c&
Next
[a2].Resize(m - 1, 6).Borders.LineStyle = 1
End Sub
复制代码
阅读权限100
在线时间 小时
请见附件。
10:40 上传
点击文件名下载附件
10.27 KB, 下载次数: 309
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
请见附件。
在仓库数据里再加采购退货和商品销售退货两项（库存=采购进货-采购退货-商品销售+商品销售退货）&&怎样修改代码。最好附上每行代码的说明 。
阅读权限20
在线时间 小时
& & & & & & & &
蓝桥玄霜 发表于
请见附件。
(28.18 KB, 下载次数: 51)
17:52 上传
点击文件名下载附件
&&我按自己的用途做了修改 请老师给指点。
阅读权限100
在线时间 小时
Sub yy()
Dim Arr, i&, aa, j&, bt, Brr, m&, n&
Dim d, k, t, spm$, scm$, x$
Set d = CreateObject(&Scripting.Dictionary&)
Sheet2.Activate
[a2].Resize(5000, 9).Clear
spm = Sheet1.[j16].Value: scm = Sheet1.[k16].Value
bt = Array(&日期&, &商品名称&, &商场名称&, &期初库存&, &采购入库&, &采购退库&, &销售出库&, &销售退库&, &库存累计&)
Arr = Sheet1.[a1].CurrentRegion
For i = 3 To UBound(Arr)
& & If scm = &全部商场& Then
& && &&&If spm = &全部商品& Then
& && && && &x = Arr(i, 2) & &,& & Arr(i, 3)
& && && && &d(x) = d(x) & i & &,&
& && &&&Else
& && && && &If Arr(i, 2) = spm Then
& && && && && & x = Arr(i, 2) & &,& & Arr(i, 3)
& && && && && & d(x) = d(x) & i & &,&
& && && && &End If
& && &&&End If
& & Else
& && &&&If spm = &全部商品& Then
& && && && &If Arr(i, 3) = scm Then
& && && && && & x = Arr(i, 2) & &,& & Arr(i, 3)
& && && && && & d(x) = d(x) & i & &,&
& && && && &End If
& && &&&Else
& && && && &If Arr(i, 3) = scm And Arr(i, 2) = spm Then
& && && && && & x = Arr(i, 2) & &,& & Arr(i, 3)
& && && && && & d(x) = d(x) & i & &,&
& && && && &End If
& && &&&End If
& & End If
Next
k = d.keys
t = d.items: m = 1
For i = 0 To UBound(k)
& & t(i) = Left(t(i), Len(t(i)) - 1)
& & m = m + 1
& & Cells(m, 1).Resize(1, UBound(bt) + 1) = bt: n = m + 1
& & If InStr(t(i), &,&) Then
& && &&&aa = Split(t(i), &,&)
& && &&&For j = 0 To UBound(aa)
& && && && &m = m + 1
& && && && &Cells(m, 1) = Arr(aa(j), 1)
& && && && &Cells(m, 2) = Arr(aa(j), 2)
& && && && &Cells(m, 3) = Arr(aa(j), 3)
& && && && &If Arr(aa(j), 4) = &期初库存& Then
& && && && && & Cells(m, 4) = Arr(aa(j), 5)
& && && && &End If
& && && && &If Arr(aa(j), 4) = &采购入库& Then
& && && && && & Cells(m, 5) = Arr(aa(j), 5)
& && && && &End If
& && && && &If Arr(aa(j), 4) = &采购退库& Then
& && && && && & Cells(m, 6) = Arr(aa(j), 5)
& && && && &End If
& && && && &If Arr(aa(j), 4) = &销售出库& Then
& && && && && & Cells(m, 7) = Arr(aa(j), 5)
& && && && &End If
& && && && &If Arr(aa(j), 4) = &销售退库& Then
& && && && && & Cells(m, 8) = Arr(aa(j), 5)
& && && && &End If
& && && &
& && && && &If j = 0 Then
& && && && && & Cells(m, 9) = Cells(m, 4) + Cells(m, 5) - Cells(m, 6) - Cells(m, 7) + Cells(m, 8)
& && && && &Else
& && && && && & Cells(m, 9) = Cells(m - 1, 9) + Cells(m, 4) + Cells(m, 5) - Cells(m, 6) - Cells(m, 7) + Cells(m, 8)
& && && && &End If
& && &&&Next
& & Else
& & End If
& & m = m + 1
& & Cells(m, 1) = &合计&
& & Cells(m, 1).Resize(1, 3).Merge
& & Cells(m, 4) = &=sum(r[-& & m - n & &]c:r[-1]c)&
& & Cells(m, 5) = &=sum(r[-& & m - n & &]c:r[-1]c)&
& & Cells(m, 6) = &=sum(r[-& & m - n & &]c:r[-1]c)&
& & Cells(m, 7) = &=sum(r[-& & m - n & &]c:r[-1]c)&
& & Cells(m, 8) = &=sum(r[-& & m - n & &]c:r[-1]c)&
& &
& & Cells(m, 9) = &=r[-1]c&
Next
[a2].Resize(m - 1, 9).Borders.LineStyle = 1
End Sub
复制代码
阅读权限100
在线时间 小时
请见附件。
20:19 上传
点击文件名下载附件
29.58 KB, 下载次数: 201
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
请见附件。
发现个问题，在输入查询条件后，如果某商品或某商场有且只有一行数据，返回的结果就会不正确。思考了半夜也不知道是何原因。
阅读权限100
在线时间 小时
请见附件。
12:12 上传
点击文件名下载附件
27.94 KB, 下载次数: 160
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
请见附件。
(34.16 KB, 下载次数: 252)
23:55 上传
点击文件名下载附件
总算做好了 但还有有点点不理解的地方 谢谢老师指导！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师09-1309-0607-1309-14
02-1401-1312-2701-29
也许你感兴趣
1. 2. 3. 4. 5. 6. 7. 8. 9. 10.谁有库存商品明细账的excel模版。_百度知道
谁有库存商品明细账的excel模版。
上面是QQ号
=IF(D3=&/zhidao/wh%3D450%2C600/sign=6cb46bd77f3e6a38c79f3df8dc5525;;G3中输入公式,A3=&中F3中输入公式;,$A3; ;库存&gt.在&&lt:$D$100.在&lt,N(D3)-N(C3)+N(E3))&/zhidao/pic/item/bcffcf98d9cc7ba014a90f603ea24.&lt:$E$100).当然.baidu,看看我这个.jpg" esrc="http,&/zhidao/pic/item/4bed2e738bd4b31c7ec2b7ce84dff8cd,进一步完善和扩展,F3*IF($D3=&quot.hiphotos,&/zhidao/wh%3D450%2C600/sign=896cd65e9e16fdfad839ceea81bfa062/6a63fa9c7f3bd194c510fd9f9a10c;.com/zhidao/wh%3D450%2C600/sign=faf84df0caea15ce41bbe80d/4bed2e738bd4b31c7ec2b7ce84dff8&lt!$B$3://b,&中C3单元格中输入公式;&&&gt.com/zhidao/wh%3D600%2C800/sign=999a443f33e0d6b85e5d2/4bed2e738bd4b31c7ec2b7ce84dff8cd.<img class="ikqb_img" src=" ;总进货表&库存&&gt://h,公式下拉:$D$100!$E$3!$D$3://b;:$F$100))&nbsp://b!$B$3,示意图如下(共4张)在&lt.&quot,0,产品资料.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http,E3*F3)&nbsp,0).在&&quot.baidu.hiphotos,SUMIF(总进货单:D$100.jpg" />&中B3单元格中输入公式://g,总进货单;&gt!$B$3,&quot,INDEX(产品资料:=IF(D3=&quot.在&lt,0):$D$100.baidu.jpg" /><a href="http,0)),&销售报表&gt,公式下拉.hiphotos!$D$3://g:$G$170:$G$170; !$/zhidao/wh%3D600%2C800/sign=43a9f54ef2ca2e27a6ba/a686c96aaf3df8dc5525建立一个小型的进销存系统吧
其他类似问题
为您推荐：
库存商品明细账的相关知识
其他1条回答
不知你能否满意，如满意 请给个采纳
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁