用msgbox提示的问题

weide_yang · 发表于 2024-8-20 12:57

F和G列中有N多行数据，
希望用3次msgbox提示
进金额的合计，出金额的合计，出金额的合计占进金额的合计的百分比先此谢谢老师了！
本例中：
第1次msgbox: -500
第2次msgbox: 750
第3次msgbox: 50

小凡、、、 · 发表于 2024-8-20 13:26

Qs18 · 发表于 2024-8-20 13:32

Sub qs()
Dim arr
arr = Sheet1.Range("a2:g" & Sheet1.Cells(Rows.Count, "g").End(xlUp).Row).Value
sm1 = Application.Sum(Application.Index(arr, 0, 6))
sm2 = Application.Sum(Application.Index(arr, 0, 7))
MsgBox "进金额:" & sm1
MsgBox "出金额:" & sm2
MsgBox "出金额的合计占进金额的合计的百分比:" & (sm2 / -sm1) * 100 & "%"
End Sub

Qs18 · 发表于 2024-8-20 13:33

试试.............

Qs18 · 发表于 2024-8-20 13:34

试试...........

		自动登录	找回密码
密码			免费注册

[求助] 用msgbox提示的问题

评分

评分