日历式营业额统计，求助怎么写vba代码

zlp0323

vba小白，从0开始学习中，练习用的表格，不知道怎么按周循环和月循环，求哪位大佬有空帮忙写一下代码。谢谢

ykcbf1100

楼主搞个效果图啊，需要统计哪几个数据。需求说明要详细一点的，让别人能够更好的理解。

zlp0323

ykcbf1100 发表于 2024-8-23 14:41
楼主搞个效果图啊，需要统计哪几个数据。需求说明要详细一点的，让别人能够更好的理解。

只要计算每日客单价和每月汇总的合计营业额，合计客人数以及合计客单价

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.23
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("練習問題３")
   
4.         r = .Cells(Rows.Count, 2).End(3).Row
   
5.         arr = .[a1].Resize(r, 10)
   
6.         For i = 1 To r
   
7.             If Val(arr(i, 1)) Then k = k + 1: d(k) = i
   
8.         Next
   
9.         For k = 1 To d.Count
   
10.             r1 = d(k)
    
11.             If k = d.Count Then r2 = r Else r2 = d(k + 1) - 1
    
12.             sum1 = 0: sum2 = 0
    
13.             For j = 3 To 9
    
14.                 For i = r1 + 1 To r2 Step 4
    
15.                     If .Cells(i, j) <> Empty Then
    
16.                         sum1 = sum1 + .Cells(i + 1, j).Value
    
17.                         sum2 = sum2 + .Cells(i + 2, j).Value
    
18.                         .Cells(i + 3, j).Value = .Cells(i + 1, j).Value / .Cells(i + 2, j).Value
    
19.                     End If
    
20.                 Next
    
21.             Next
    
22.             .Cells(r2 - 2, 10) = sum1
    
23.             .Cells(r2 - 1, 10) = sum2
    
24.             .Cells(r2, 10) = sum1 / sum2
    
25.         Next
    
26.     End With
    
27.     Set d = Nothing
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

zlp0323

ykcbf1100 发表于 2024-8-23 18:52
附件供参考。。。

非常感谢，我来研究理清一下。