库存台账自动更新

刘刘六

media888 发表于 2019-12-7 19:15
这样吧

可以了，万分感谢！！！！！还想问下，这个总表和分表是按顺序还是名称对应啊，后期如果顺序乱了或有添加、删减还能对应吗?

media888

ghexcel 发表于 2019-12-8 21:37
Private Sub CommandButton1_Click()

For i = 1 To 46

单元格“F4”呀   

feilanga

Private Sub CommandButton1_Click()
Dim k%, j%    '定义变量K,J
j = ThisWorkbook.Sheets.Count  'J=这个工作簿的工作表的最大个数

For i = 2 To j   '从第二张表开始循环每一张表
Sheet1.Cells(i, 2) = Sheets(i).Name '把工作表的名称依次写入到库存总表的B列


k = ThisWorkbook.Sheets(i).Cells(Rows.Count, "f").End(xlUp).Row  'K=每张表F列结存数量的最大行数
Sheet1.Cells(i, 4) = Sheets(i).Range("f" & k) '把每张表的F列结存数量依次写入到库存总表的D列
Next
End Sub

feilanga

你的表格设计有问题.  建议重新设计, 你不能有多少规格就设定多少张表. 就用一张表来记录所有规格的入库和出库  然后 一张库存统计表,或者入库表一个   出库表一个   库存表一个.   百度一下  很多进销存表  改一下就能用了.  

feilanga

刘刘六 发表于 2019-12-9 08:39
可以了，万分感谢！！！！！还想问下，这个总表和分表是按顺序还是名称对应啊，后期如果顺序乱了或有添 ...

总表会自动获取分表的名称,每一次都是遍历循环所有的表,所以你分表移动前后顺序 修改名称 都是没有关系的.  但是你这样的设计, 最终数据多的时候 录入也是一个问题  

ghexcel

feilanga 发表于 2019-12-9 17:14
总表会自动获取分表的名称,每一次都是遍历循环所有的表,所以你分表移动前后顺序 修改名称 都是没有关系的 ...

楼主这种分表名称是有规律的，如果分表名称没有规律套用这个语句有效吗?

feilanga

ghexcel 发表于 2019-12-9 19:51
楼主这种分表名称是有规律的，如果分表名称没有规律套用这个语句有效吗?

和名称无关,无论名称是什么,都会依次写入到总表

刘刘六

feilanga 发表于 2019-12-9 17:12
你的表格设计有问题.  建议重新设计, 你不能有多少规格就设定多少张表. 就用一张表来记录所有规格的入库和 ...

多谢您的建议，我刚接触这个行业，还在摸索中，之前没有正规的库房，老板家里人管，就在本子上随便记录一下，我也想找一个既便捷又清晰的方法，也考虑过记录一张表上，查找时用筛选找某一规格

刘刘六

feilanga 发表于 2019-12-9 17:12
你的表格设计有问题.  建议重新设计, 你不能有多少规格就设定多少张表. 就用一张表来记录所有规格的入库和 ...

出、入库都能记录一张表最好了，但我这个不仅要统计库存余量，还需要记录每一种规格的电线用到了哪里，出库在一张表上的话能记录清楚吗？有什么好办法吗？