主题：轻松搞定多工作表分类条件汇总 |
| 正文： |
影城的营业日报如下图
里面有31个工作表，每个表的大小也不一样，有的可能只有30列，有的可能会有40列。如果需要从这个表中统计卖品券20元的回收多少张，或者统计10元的回收多少张。可以通过编写宏
Sub 套餐券统计()
Dim i, s, x, o As Integer
Dim a(1 To 100), myrng(1 To 20) As String
Dim b(1 To 20) As Integer
Dim t As String
t = InputBox("请输入查询条件")
For o = 1 To 31
Sheets(o).Select
For x = 1 To 100
a(x) = Sheets(o).Cells(3, x)
For i = 1 To 20
myrng(i) = Sheets(o).Cells(i + 9, 3)
If a(x) <> "卖品部小计" Then
GoTo 100:
Else
a(x) = "卖品部小计"
b(i) = Sheets(o).Cells(i + 9, x)
End If
If myrng(i) = t Then s = s + b(i)
Next i
100: Next x
Next
MsgBox ("您汇总的答案是") & s
End Sub
轻松输入汇总条件，就会算出你需要的回收数量。然后就不用每天专门再登记台帐统计了。 |
|
|