总是听到或看到有人问，编程好学吗？如何入门？多久能学会？它能做些什么？怎么写代码呀?执行过程中出问题了谁能帮帮我...如果你也有类似的问题那就赶快关注我的公众号，一起学起来吧！
前期分享了很多用VBA实现的自动化工具，有一些是需要借助工作表事件完成的，然而并非所有场合都需要自动响应工作表事件
例如，接下来分享的案例：一个用于自动交换任意两个单元格数据的程序。当我们不需要进行数据交换时，该程序的自动响应功能反而会成为一种干扰，甚至可能误将原本不需要交换的单元格数据进行交换
此时，我们就会想：如果有一个开关，需要的时候打开，不需要的时候能关闭就好了。那么，就分享一种方式来实现“呼之即来挥之即去”的效果
本案例实现的功能：自动交换任意两个单元格数据。即在Sheet1工作表中，顺次选择两个单元格，如C2,D5，则会自动将这两个单元格内的数据互换Sheet1中增加一个工作表按钮，点击一次就会开启互换功能，再次点击按钮就会禁用该功能，效果如下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
- 选中Sheet1工作表，双击进入到其对应的代码窗口，将代码复制粘贴进去
实现原理：在标准模块中声明一个公共（Public）的布尔（Boolean）变量，使用该变量作为整个工作簿范围内的事件开关。在Worksheet_SelectionChange事件中，首先检查这个开关的状态，再决定是否执行后续代码
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
以上操作完成后，就可以通过表单控件“启用/禁用”来控制是否需要相应工作表事件，如Worksheet_SelectionChange好了，今天的分享到此结束了，咱们下期继续！
本公众号一直在不间断地分享免费的编程案例和实用技巧。无论您是用来提升自动化办公效率还是想提升自我，请关注我的公众号，解锁更多的编程知识
