如何实现单元格激活后自动触发VBA程序？已尝试ActiveCell_click()

你用ActiveCell_click()没效果是因为VBA里根本不存在这个事件名称。要实现选中单元格（激活时）自动触发程序，需要用工作表的Worksheet_SelectionChange事件，具体操作如下：

• 打开VBA编辑器（按Alt+F11），在左侧工程窗口双击你要生效的工作表（比如Sheet1），进入该工作表的代码模块。
• 在代码窗口的左侧下拉框选择Worksheet，右侧下拉框选择SelectionChange，编辑器会自动生成事件的框架代码。
• 在框架内编写你的业务逻辑，比如判断选中的是否是目标列单元格，再将数值代入公式。

示例代码（假设目标列是A列，选中A列单元格时将其值代入B1的公式）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅处理选中A列单个单元格的情况
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        ' 这里替换成你的实际公式逻辑，示例是将选中值乘以2后放入B1
        Range("B1").Formula = "=" & Target.Value & "*2"
    End If
End Sub

注意事项：

• 这个事件代码必须放在对应工作表的模块中，不能放在标准模块（比如Module1）里，否则不会触发。
• SelectionChange事件会在每次选中新单元格时触发，如果需要限制仅特定列生效，一定要加列判断，避免无关操作触发程序。

内容的提问来源于stack exchange，提问作者zacharyhehe