如何用VBA统计订单明细

liulang0808

jasona3 发表于 2018-7-12 13:57
嗯，试过可以。
不过又有其他地方问题，看来不会是难以完全解决了。

具体看什么问题，楼主先变通处理下，如果实在还有问题，就提交附件说明吧

jasona3

liulang0808 发表于 2018-7-12 14:40
具体看什么问题，楼主先变通处理下，如果实在还有问题，就提交附件说明吧

那就麻烦再指点下，对表的名称做个判断，分为包含”积水“，”KCC“， ”TAPEX“ 三个字符名称的表格分别统计，可以分别统计到3个表中。谢谢！
订单明细统计.zip (114.97 KB, 下载次数: 5)

2018-7-13 11:18 上传

点击文件名下载附件

jasona3

上面的附件代码没保存到。
不过应该会了，用like判断表包含字符.
谢谢！

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    Sheets("2018年订单明细表-USD").Select
    For Each sh In Sheets
        With sh
            If .Name Like "*TAPEX*" Then
                If Columns(2).Find(Split(.[g8], "订单号：")(1), lookat:=xlWhole) Is Nothing Then
                    r = Cells(Rows.Count, 1).End(3).Row + 1
                    For j = 13 To .Cells(Rows.Count, 1).End(3).Row
                        If .Cells(j, 1) = "合计" Then
                            x = j
                            Exit For
                        End If
                    Next j
                    Cells(r, 1).Resize(x - 13).Value = Split(.[g9], "订单日期：")(1)
                    Cells(r, 2).Resize(x - 13).Value = Split(.[g8], "订单号：")(1)
                    Cells(r, 3).Resize(x - 13).Value = Split(.[a11], "主题：")(1)
                    Cells(r, 4).Resize(x - 13).Value = .Cells(13, 2).Resize(x - 13).Value
                    Cells(r, 5).Resize(x - 13).Value = .Cells(13, 3).Resize(x - 13).Value
                    Cells(r, 6).Resize(x - 13).Value = .Cells(13, 4).Resize(x - 13).Value
                    Cells(r, 7).Resize(x - 13).Value = .Cells(13, 5).Resize(x - 13).Value
                    Cells(r, 8).Resize(x - 13).Value = .Cells(13, 6).Resize(x - 13).Value
                    Cells(r, 9).Resize(x - 13).Value = .Cells(13, 7).Resize(x - 13).Value
                End If
            End If
        End With
    Next sh
    Application.ScreenUpdating = True
End Sub

jasona3

请问怎么可以统计到”2018年订单明细表-USD“这个表时就停止统计？

jasona3

liulang0808 发表于 2018-7-12 14:40
具体看什么问题，楼主先变通处理下，如果实在还有问题，就提交附件说明吧

请问怎么可以统计到”2018年订单明细表-USD“这个表时就停止统计？因为我统计表后面还有些包含差不多名称的表格。
麻烦帮看下，谢谢！

liulang0808

jasona3 发表于 2018-7-13 17:01
请问怎么可以统计到”2018年订单明细表-USD“这个表时就停止统计？因为我统计表后面还有些包含差不多名称 ...

楼主可以通过if语句，对表名进行判断，然后结合exit for跳出循环