Sub try()
Dim arr(1 To 10)
With ActiveSheet
Set arr(1) = .CheckBox1
Set arr(2) = .CheckBox2
Set arr(3) = .CheckBox3
Set arr(4) = .CheckBox4
Set arr(5) = .CheckBox5
Set arr(6) = .CheckBox6
Set arr(7) = .CheckBox7
Set arr(8) = .CheckBox8
Set arr(9) = .CheckBox9
Set arr(10) = .CheckBox10
End With
For i = 1 To 10
MsgBox arr(i).Value
Next
End Sub
这样应该可以了吧
要提示false,true
msgbox checkbox1.value=list(1).value
你的只是显示值而不是false或true