1

我有一个电子表格，其中包含每个行项目的复选框。我想在顶部放置一个复选框，当它被选中/取消选中时，它将选中和取消选中电子表格中的所有其他复选框。以下是我到目前为止的代码，如果我的“复选框 1”被选中，它将选中所有复选框，但如果取消选中，它不会取消选中它们。如果取消选择“复选框 1”，我需要添加什么才能使框也取消选择。谢谢你的帮助。

Sub SelectAllCheckBox()
Dim CB As CheckBox
If ActiveSheet.CheckBoxes("Check Box 1").Value Then
    For Each CB In ActiveSheet.CheckBoxes
        If CB.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then
            CB.Value = True
        End If
    Next CB
End If
End Sub

我也遇到了另一个问题。我有一个宏来清除工作表，以便可以运行不同的宏。该宏中包含删除所有复选框的代码。我将如何措辞代码以使其不删除“复选框 1”。这是我的代码。

Sheets("Quote Sheet").Select
Range("D3:D7").Select
Selection.ClearContents
Rows("11:1000").Select
Selection.Delete Shift:=xlUp
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete

我尝试了以下但没有奏效。

Sheets("Quote Sheet").Select
Range("D3:D7").Select
Selection.ClearContents
Rows("11:1000").Select
Selection.Delete Shift:=xlUp
If CB.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then    
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
4

1 回答 1

3 
Sub SelectAllCheckBox()
    Dim CB As CheckBox

    For Each CB In ActiveSheet.CheckBoxes
        If CB.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then
            CB.Value = ActiveSheet.CheckBoxes("Check Box 1").Value
        End If
    Next CB

End Sub

第二部分：

Dim CB as CheckBox, n as long, x as long

n = ActiveSheet.CheckBoxes.Count

For x = n to 1 Step -1        
    Set CB = ActiveSheet.CheckBoxes(x)
    If CB.Name <> "Check Box 1" Then CB.Delete

Next x
于 2013-03-08T19:20:13.753 回答