如何用VBA取消Excel选中单元格内的表单控件复选框？

原代码会遍历并取消工作表中所有复选框的选中状态，要实现仅处理当前选中区域内的复选框，只需在循环中增加判断逻辑，检查复选框的左上角单元格是否落在指定选区范围内即可。

修改后的代码如下：

Sub UncheckSelectedRangeCheckboxes()
    Dim chkBox As Excel.CheckBox
    Dim targetRange As Range
    
    Set targetRange = Selection ' 获取当前选中的区域
    Application.ScreenUpdating = False
    
    For Each chkBox In ActiveSheet.CheckBoxes
        ' 判断复选框的左上角单元格是否在目标选区范围内
        If Not Intersect(chkBox.TopLeftCell, targetRange) Is Nothing Then
            chkBox.Value = xlOff
        End If
    Next chkBox
    
    Application.ScreenUpdating = True
End Sub

关键逻辑说明 #

• Set targetRange = Selection：将当前用户选中的区域赋值给变量，作为判断依据
• Intersect(chkBox.TopLeftCell, targetRange) Is Nothing：通过Intersect函数判断复选框的左上角单元格是否与目标选区存在交集，若不存在则跳过该复选框，仅处理落在选区内的复选框
• 保留了Application.ScreenUpdating = False/True以提升代码运行效率，避免界面闪烁

内容的提问来源于stack exchange，提问作者Amir Bayter