VBA，不断听取符合特定标准的单元格中的更改

我是VBA新手，我有一个包含股票数据的excel表格

• A栏-股票行情
• B列-股票名称
• C列-“变量编号”，即更改所有变量的编号 时间

当C列中的数字介于[-4；4]之间时，应弹出一个消息框，显示a列中的股票代码和B列中的名称，数字在C列中

例如，如果此时C列中的Google值为-1，则消息框将显示：Google Alphabet Inc-1[在本例中：Googl（A列）、Alphabet Inc（B列），-1（更改值为C列）

---

请帮助我，非常感谢！

将此事件更改侦听器插入工作表（例如Sheet1）。目标。列是您的C列（传递正确的列号）

---

感谢您的帮助，但它似乎不起作用。让我澄清一下：我需要vba自动转到A列和B列，以查找股票代码和名称，以及要在msgbox中显示的c列值。根据您在上面所写的内容，msgbox将只显示“c列值为”和列c值一起。再次感谢！它对我有效。确保将侦听器复制到工作表对象，并将宏复制到模块。对不起，请解释“确保将侦听器复制到工作表对象”？当您打开VBA编辑器时，您会看到工作表和模块列表。您需要将第一段代码复制到工作表中，其中有您的股票数据和A、B、Ci列。我不知道我做错了什么。我按照您的指示将第一段代码复制到我有股票数据的工作表中。然后我转到左键单击并单击c创建了一个新模块，然后我复制了您设计的子msgboxmacro代码。之后我该怎么办？我按save，然后按F5尝试查看它是否工作，但什么都没有发生。我做得对吗？或者遗漏了任何步骤？再次感谢！

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.column = 3 And Target.value >= -4 And Target.value <= 4 Then
    Call MsgBoxMacro(Target.value, Target.column, Target.row)
  End If
End Sub

Sub MsgBoxMacro(value, column, row)
    MsgBox "Ticker: " & Cells(row, column - 2) & vbNewLine & "Stock Name: " & Cells(row, column - 1) & vbNewLine & "Variable Value: " & value
End Sub