[求助]怎么让50个复选框的值为假

linvv

我的笨方法是：

CheckBox1.Value = False

CheckBox2.Value = False

```````````````````

CheckBox50.Value = False

有什么优化的方法吗？

yuanzhuping

窗体中的：

 Dim i As Integer
    For i = 1 To 50
        Me.Controls("CheckBox" & i).Value = False
    Next

工作表中的：

Dim i As Integer
    For i = 1 To 3
        Me.OLEObjects("CheckBox" & i).Object.Value = False
    Next

linvv

谢谢yuan版主

keetnman

请yuan版指点，这样的代码怎么循环：
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1.Font.Bold = True
End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label2.Font.Bold = True
End Sub
Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label3.Font.Bold = True
End Sub
.............................

zhangjueyuan

kankan,youyong

百度不到去谷歌

keetnman 发表于 2009-4-3 13:52
请yuan版指点，这样的代码怎么循环：
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shif ...

用类
参见
工作表多个控件共用同一事件，事件类模块实用案例
http://club.excelhome.net/thread-1123992-1-1.html