倾家荡产求助修改代码

CCTV20082008

我 有30个 CheckBox 请帮助改成循环下面代码是别人帮助的，可惜我 有30个 CheckBox    慢慢写太多，整张表格有90个  CheckBox    请帮助改成循环

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        Sheet1.Range("N1") = 0
    Else
        Sheet1.Range("N1") = ""
    End If
End Sub
Private Sub CheckBox2_Click()
    If CheckBox2 = True Then
        Sheet1.Range("N2") = 1
    Else
        Sheet1.Range("N2") = ""
    End If
End Sub
Private Sub CheckBox3_Click()
    If CheckBox3 = True Then
        Sheet1.Range("N3") = 2
    Else
        Sheet1.Range("N3") = ""
    End If
End Sub
Private Sub CheckBox4_Click()
    If CheckBox4 = True Then
        Sheet1.Range("N4") = 5
    Else
        Sheet1.Range("N4") = ""
    End If
End Sub

那么的帅

回复 CCTV20082008 的帖子

用类模块可以完成 类模块控制多控件.rar (11.95 KB, 下载次数: 16)

2011-2-17 23:02 上传

点击文件名下载附件

开辆小富康

去学习兰版的类模块吧

CCTV20082008

在那里呢

xdwy81129

回复 开辆小富康 的帖子

类模块，估计太难太难
一点都不懂

CCTV20082008

For i = 1 To 30'窗体中
        If Me.Controls("CheckBox" & i).Value Then Sheet1.Range("N" & i) = i
    Next
或
    For i = 1 To 30'工作表中
        If OLEObjects("CheckBox" & i).Object Then Sheet1.Range("N" & i) = i
    Next


这2个代码为什么运行不了

那么的帅

回复 CCTV20082008 的帖子

请提供全部代码和附件