vba checkbox全选

xubo8219

于 2008-10-02 12:33:00 发布

阅读量3k

点赞数

本文链接：https://blog.csdn.net/xubo8219/article/details/3009225

版权

这篇博客提供了两种VBA代码实现UserForm中复选框（CheckBox）的全选和全取消功能。点击CommandButton1，可以通过遍历UserForm1上的所有Controls，检查其类型为CheckBox并赋值实现状态切换。代码示例详细，适用于VBA初学者。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub CommandButton1_Click()
Dim A1 As Object
For Each A1 In UserForm1.Controls
    If TypeName(A1) = "CheckBox" Then
        A1.Value = 1 '全部取消就赋值 0
    End If
Next
End Sub

http://topic.csdn.net/u/20081002/09/7cd84abd-b555-4aaf-acb9-5c458a482745.html?seed=1011906989

If UserForm1.CommandButton1.Caption = "全选" Then
              UserForm1.CommandButton1.Caption = "全没选"
Else
            UserForm1.CommandButton1.Caption = "全选"
End If
For Each cn In UserForm1.Controls
    If cn.Name Like "*CheckBox*" Then
        If UserForm1.CommandButton1.Caption = "全选" Then
           cn.Value = False
        Else
            cn.Value = True
         End If
    End If
Next

http://club.excelhome.net/dispbbs.asp?boardid=2&id=358364&star=1#44130