【Excel VBA编程】给工作表事件安装开关,随心掌控,告别被搅扰

2.1工作表事件代码

与平时的工作表事件唯一不同点：增加了第4行代码的一个逻辑判断，其中gblnSelectionChangeEnabled变量的状态受标准模块控制

Dim FirstCell As Range ' 声明一个模块级变量来存储第一次选中的单元格Private Sub Worksheet_SelectionChange(ByVal Target As Range)    If gblnSelectionChangeEnabled = False Then Exit Sub  '如果禁止，则直接退出过程，不执行任何操作    ' 检查是否只选中了一个单元格且当前Excel不处于“剪切”或“复制”模式时    If Target.Cells.Count = 1 And (Application.CutCopyMode = False) Then        If Not FirstCell Is Nothing Then            Dim tempVal As Variant            tempVal = FirstCell.Value            FirstCell.Value = Target.Value            Target.Value = tempVal            Set FirstCell = Nothing            MsgBox "单元格数据已交换！", vbInformation        Else            Set FirstCell = Target        End If    End IfEnd Sub

Public gblnSelectionChangeEnabled As BooleanSub Switches()    ' 切换全局开关的状态    gblnSelectionChangeEnabled = Not gblnSelectionChangeEnabled    Dim btn As Button ' 假设使用的是表单控件按钮    Set btn = ActiveSheet.Buttons(1)    If gblnSelectionChangeEnabled Then        btn.Text = "启用"        MsgBox "单元格数据交换已启用。", vbInformation    Else        btn.Text = "禁用"        MsgBox "单元格数据交换已禁用。", vbInformation    End IfEnd Sub