工作表select更改不会触发

我有一个Excelmacros启用文件。 我在Module1中有3个方法/函数。

1. Worksheet_SelectionChange
2. 的button1_Click
3. MyMacro

当我点击工作表中的button时，Button1被触发。 MyMacro从Button1_Click调用时触发。 当我更改单元格或更改工作表时，我的Worksheet_SelectionChange方法不会触发。 我想要一个方法，当我退出一个单元格时触发。 我从网上尝试了各种各样的样本。 他们的样本中都有一个Worksheet_SelectionChange方法。 当我离开一个单元格时，我需要做些什么来触发一个方法？ 这是我的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = True MsgBox "TEST" End Sub Sub Button1_Click() BR = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row COL = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Column Dim FileName As String FileName = Worksheets("942").Range("A" + CStr(BR)).Value FileName = FileName & "_" Dim RandomNumber As Integer RandomNumber = Int((999 - 100 + 1) * Rnd + 100) Worksheets("942").Range("J" + CStr(BR)).Value = FileName MyMacro End Sub Private Sub MyMacro() MsgBox " I just left A2", 0, "" End Sub 

Answer 1

您必须将Worksheet_SelectionChange子移动到Worksheet_SelectionChange表（模块）。 只需右键单击该选项卡并select查看代码这是它应该在哪里。

这是因为每张Worksheet_SelectionChange可能不同。 通过把它放在一个特定的表Excel知道什么时候甚至应该开火。