多个复选框用同一个代码怎么写

鞭尸三百

窗体中的控件可以用UserForm2.Controls("checkbox" & i)         不在窗体中的怎么写

用类模块好像总是有问题     要根据i来写代码

3190496160

有附件才会有真相

WANT-T

祝工作顺利，天天开心，好人一生平安，么么哒

一指禅62

模拟功能：在复选框右边单元格显示该控件是否选中。

      

一指禅62

Check.zip (14.46 KB, 下载次数: 11)

2023-3-14 20:20 上传

点击文件名下载附件

窗体中的复选框问题  多个复合框共用相同事件代码怎么写-Excel VBA程序开发-ExcelHome技术论坛 - 3楼

鞭尸三百

3190496160 发表于 2023-3-14 15:40
有附件才会有真相

有几百个复选框的    应该是要写类模块的   就是写不好

想循环    If Controls("checkbox" & i).Value Then       controls 又用不了   


所有的复选框我都弄成了同样的代码      其实用列表框我也做到了差不多的效果   但是最后一列的还是用复选框显示比较好


Private Sub CheckBox33_Click()
a = CheckBox33.Name
b = CheckBox33.Caption
    aa = Int((Mid(a, 9) * 1 - 1) / 32)
    If Mid(a, 9) * 1 - aa * 32 < 5 Then
        c = 7
        ElseIf Mid(a, 9) * 1 - aa * 32 < 18 Then
        c = 8
        ElseIf Mid(a, 9) * 1 - aa * 32 < 23 Then
        c = 9
        ElseIf Mid(a, 9) * 1 - aa * 32 < 28 Then
        c = 13
        Else
        c = 13
        Cells(aa + 5, 17) = "进入商机阶段"
        
    End If
   
    If CheckBox33.Value = True Then
        Cells(aa + 5, c) = Cells(aa + 5, c) & Chr(10) & b
    Else
        Cells(aa + 5, c) = Replace(Cells(aa + 5, c), Chr(10) & b, "")
    End If
End Sub

鞭尸三百

一指禅62 发表于 2023-3-14 18:30
模拟功能：在复选框右边单元格显示该控件是否选中。

所有的复选框用这同样的代码

Private Sub CheckBox33_Click()
a = CheckBox33.Name
b = CheckBox33.Caption
    aa = Int((Mid(a, 9) * 1 - 1) / 32)
    If Mid(a, 9) * 1 - aa * 32 < 5 Then
        c = 7
        ElseIf Mid(a, 9) * 1 - aa * 32 < 18 Then
        c = 8
        ElseIf Mid(a, 9) * 1 - aa * 32 < 23 Then
        c = 9
        ElseIf Mid(a, 9) * 1 - aa * 32 < 28 Then
        c = 13
        Else
        c = 13
        Cells(aa + 5, 17) = "进入商机阶段"
        
    End If
   
    If CheckBox33.Value = True Then
        Cells(aa + 5, c) = Cells(aa + 5, c) & Chr(10) & b
    Else
        Cells(aa + 5, c) = Replace(Cells(aa + 5, c), Chr(10) & b, "")
    End If
End Sub