Worksheet_SelectionChange 不适用于 XLSM 工作表

Question

我试图通过编辑我的一个 xlsm 工作表中的 VBA 代码来捕获单元格中的点击事件。为了进行健全性检查，我只是想将单击的任何单元格变成红色。这是我的 VBA 代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'prevent Select event triggering again when we extend the selection below
    Application.EnableEvents = False
    Target.Interior.Color = vbRed
    Application.EnableEvents = True
End Sub

保存代码并返回我的工作表后，我单击了一个单元格，但它不起作用。过去我确实让这个工作过一次，我不确定我现在做了什么不同的事情，但我无法调试这个问题。

我不确定这是否重要，但是当我进入 VisualBasic 编辑器时，旁边有多个项目。我只是在编辑我正在使用的文件的工作表代码，但我似乎无法删除其他项目。

Answer 1

代码看起来不错（假设您想要更改，使您触摸的每个单元格都变成红色），所以它一定位于错误的位置。

1. 重启你的机器。 （逗我）

2. 打开 Excel 并创建一个新工作簿。

3. 右键单击工作表的选项卡（在屏幕底部）并单击 View Code。

4. 将您的代码粘贴到打开的工作表模块中。

5. 单击工作表。