求大神！想做一个出入库汇总表~~

tail_love30 · 发表于 2015-8-31 12:47

本人是VBA菜鸟，想做一个出入库汇总表。每开一次单都能从表1保存到表2这样的。
我就制作了表1、表2，可以实现横排的保存
但是我想要的效果是表3 保存到表4，需要整列的数据汇总，并且能在第一行显示日期，
求大神指点！代码尽量简单，看不懂{:soso_e160:}拜托！

逆光萤火 · 发表于 2015-9-4 14:29

虽然没听明白你的意思，但是觉得表4用动态透视表做更便捷

yuyan250905 · 发表于 2015-9-13 21:09

没听明白你的意思

tail_love30 · 发表于 2015-9-13 22:08

yuyan250905 发表于 2015-9-13 21:09
没听明白你的意思

如图，sheet1是每日更新的，要将sheet1每天的数据依次保存在sheet2,而且不会因为sheet1清空数据而改变

tail_love30 · 发表于 2015-9-13 22:11

逆光萤火发表于 2015-9-4 14:29
虽然没听明白你的意思，但是觉得表4用动态透视表做更便捷

麻烦再看一下，谢谢

小zhi · 发表于 2015-9-14 17:29

Private Sub CommandButton1_Click()
Dim sht, sht1 As Worksheet, d As Object, i, n, m, x, y As Integer, arr, brr, var As Variant
Set sht = ThisWorkbook.Worksheets(1) '设定sht为表一
Set sht1 = ThisWorkbook.Worksheets(2) '设定sht1为表二
Set d = CreateObject("scripting.dictionary") '设定d为字典
y = Day(Now()) '设定y为当日日数
arr = sht.Range("a2:a" & sht.Cells(Rows.Count, 1).End(xlUp).Row) '将表一名称列的内容写入数组arr
brr = sht1.Range("a2:a" & sht1.Cells(Rows.Count, 1).End(xlUp).Row) '将表二名称列内容写入数组brr
For i = 1 To UBound(brr) '遍历数组brr
d(brr(i, 1)) = "" '将数组brr的内容写入字典
Next
For n = 1 To UBound(arr) '遍历数组arr
If Not d.exists(arr(n, 1)) Then '假如字典中不存在数组arr中的某个项
sht1.Cells(sht1.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = arr(n, 1) '在表二现有名称的下一行写入符合条件的值
End If
Next
For m = 2 To sht1.Cells(Rows.Count, 1).End(xlUp).Row '遍历表二名称项
For x = 2 To sht.Cells(Rows.Count, 1).End(xlUp).Row '遍历表一名称项
If sht1.Cells(m, 1).Value = sht.Cells(x, 1).Value Then '假如表二名称等于表一的名称
var = sht.Cells(x, 2).Value + sht1.Cells(m, y + 1).Value '将表一与表二对应列的结果相加得到和
sht1.Cells(m, y + 1).Value = var
End If
Next
Next
'录入完后清除表一数据
sht.Range("a2:c65536").Clear
End Sub

复制代码

小zhi · 发表于 2015-9-14 17:33

你试用一下，看是不是这个样子的。

yuyan250905 · 发表于 2015-9-14 20:03

学习学习再学习！！！
加油！！！

tail_love30 · 发表于 2015-9-15 10:18

小zhi 发表于 2015-9-14 17:33
你试用一下，看是不是这个样子的。

效果不太理想哦，我希望名称列是固定的，上面的日期应该就填写表一的日期、
求指教！

小zhi · 发表于 2015-9-16 16:06

你是指统计表的名称列是固定的吗？如果是的话，就在统计表中将名称输进去就可以啦。表一的日期，没看到表一有日期项啊，你的日期是指表一的名称还是表一中设多一项日期？

		自动登录	找回密码
密码			免费注册

[求助] 求大神！想做一个出入库汇总表~~