昵称:清霜残雪 头衔:版主 积分:303分 注册:2009-7-15
状态:离线
|
|
影城的营业日报如下图
里面有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 轻松输入汇总条件,就会算出你需要的回收数量。然后就不用每天专门再登记台帐统计了。
|
明强、敬恕,如履薄冰。 自信、努力、实现理想。 | |