51问答网 > 在一个EXCEL中，有若干个CheckBox，如何将他们存入一个数组中，并且利用这数组来直接控制CheckBox？

在一个EXCEL中，有若干个CheckBox，如何将他们存入一个数组中，并且利用这数组来直接控制CheckBox？

2024-12-23 15:32:32

推荐回答（2个）

回答1：

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

这样应该可以了吧

回答2：

要提示false,true
msgbox checkbox1.value=list(1).value
你的只是显示值而不是false或true