用check复选框求和

level 6

☞没钱别矫情☜ 楼主

用label3显示label2列的和，复选框选中了对应行就相加，不选中就不相加，另外如果被复选框选中对应刚的label2数值变动，Label3的和也变动

2023年08月18日 05点08分 1

吧务

level 14

总裁大人👻

for循环

2023年08月18日 06点08分 2

level 15

初音✨七奈

For i = Check1.LBound To Check1.UBound
If Check1(i).Value Then s = s + Val(Label2(i).Caption) '这里直接加了Label2中显示的数值，建议另外用一个数组保存每一行的和，求总和时用这个数组
Next i
Label3.Caption = s

2023年08月18日 11点08分 3

level 6

☞没钱别矫情☜ 楼主

谢谢大神

2023年08月19日 11点08分 4