|
加了注释。- Sub 汇总()
- Arr = Sheets("明细表").[a1].CurrentRegion
- Set dd1 = CreateObject("scripting.dictionary")
- Set dd2 = CreateObject("scripting.dictionary")
- For i = 3 To UBound(Arr)
- mc = Arr(i, 3): xm = Arr(i, 4): lb = Arr(i, 2) '名称,项目,类别
- x = mc & xm & lb '以名称+项目+类别 为key
- If Arr(i, 8) > 0 Then dd1(x) = dd1(x) + Arr(i, 8) '累加 收入
- If Arr(i, 9) > 0 Then dd2(x) = dd2(x) + Arr(i, 9) '累加 支出
- Next
-
- mc = Me.ComboBox1 '名称
- xm = Me.ComboBox2 '项目
- For i = 3 To 8
- lb = Me.Controls("Label" & i).Caption '类别(Label3--Label8的Caption)
- x = mc & xm & Replace(lb, " ", "") '以名称+项目+类别 为key
- Me.Controls("TextBox" & i - 2).Value = dd1(x) 'Label3--Label8对应的TextBox1--TextBox6的值
- s1 = s1 + dd1(x)
-
- lb = Me.Controls("Label" & i + 7).Caption '类别(Label10--Label15的Caption)
- x = mc & xm & Replace(lb, " ", "")
- Me.Controls("TextBox" & i + 5).Value = dd2(x) 'Label10--Label5对应的TextBox8--TextBox13的值
- s2 = s2 + dd2(x)
- Next
- If s1 > 0 Then Me.TextBox7 = s1 Else Me.TextBox7 = ""
- If s2 > 0 Then Me.TextBox14 = s2 Else Me.TextBox14 = ""
- Me.TextBox15 = s2 - s1
- End Sub
复制代码 |
评分
-
查看全部评分
|