[已解决]请高手帮助，总表录入，自动生成分表

zhgghw · 发表于 2012-3-24 23:11

样表.rar (3.77 KB, 下载次数: 217)

xcnclzy · 发表于 2012-3-24 23:27

用透视表可以生成

那么的帅 · 发表于 2012-3-24 23:44

1 先自动筛选，复制筛选后的数据到指定的工作表
2 要自动的，得用VBA编码

printf-plc · 发表于 2012-3-25 00:03

请看附件的操作~~~~~~~

bb75308973 · 发表于 2012-3-25 00:11

这个最佳答案由 bb75308973 给出，感谢 bb75308973 的回答。

单击隐藏图章

Private Sub Worksheet_Deactivate()
Dim name
Dim sh As Worksheet
Dim n As Integer, i As Integer, x
Application.ScreenUpdating = False
n = Range("J65536").End(xlUp).Row
For Each sh In Sheets
If sh.name <> "原始凭单录入" Then
sh.Range("A4:L18").ClearContents
i = 4
For x = 4 To n
If Range("J" & x).Value = sh.name Then
With sh
.Range("A" & i) = Range("A" & x).Value
.Range("B" & i) = Range("B" & x).Value
.Range("C" & i) = Range("C" & x).Value
.Range("D" & i) = Range("D" & x).Value
.Range("E" & i) = Range("E" & x).Value
.Range("I" & i) = Range("K" & x).Value
.Range("J" & i) = Range("L" & x).Value
i = i + 1
End With
End If
Next
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

样表.zip (13.04 KB, 下载次数: 897)

zhgghw · 发表于 2012-3-25 13:09

bb75308973 发表于 2012-3-25 00:11

万分感谢bb75308973，真的是太合适了，感觉是“量身定做”的啊！再次谢谢！辛苦了！

zhgghw · 发表于 2012-3-27 11:54

本帖最后由 zhgghw 于 2012-3-27 12:38 编辑

bb75308973 发表于 2012-3-25 00:11

老师您好！还是这个工作簿的问题。您已经帮我解决了原始凭单录入生成各明细分类的问题，真的很感谢！我现在是在工作簿前面插入两张新工作表，想做个目录和品名的详单（用数据有效性在凭证录入的商品明细里做下拉菜单）这样看商品和填品名要方便些，但是因为原有的这个宏的运行，目录表和品名表里填不进东西，当时能填上，关闭后打开就又成了空白。请教怎么才能让这两张工作表不受那个生成分账的宏的影响呢？谢谢

bb75308973 · 发表于 2012-3-27 12:55

If sh.name <> "原始凭单录入" Then

这条代码的意思就是代码执行的时候排除原始凭单录入这个表
同样,你新建的那两个表要排除的话也要加到这条代码里来
这样写
If sh.name <> "原始凭单录入" and sh.name <> "这里改成你新表的表名" and sh.name <> "这里改成你新表的表名" Then

zhgghw · 发表于 2012-3-27 22:42

bb75308973 发表于 2012-3-27 12:55
If sh.name "原始凭单录入" Then

这条代码的意思就是代码执行的时候排除原始凭单录入这个表

谢谢！谢谢您的帮助！完全搞好了。

拥抱！鲜花！以后常来向您讨教。

80692171 · 发表于 2015-7-11 20:41

为什么我没有用好啊呵呵新手

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

[已解决]请高手帮助，总表录入，自动生成分表

相关帖子