vba 如何公式改变自动运行代码

VBA中可以使用Worksheet_Calculate事件来在公式计算后自动运行代码。当公式计算后，会自动触发Worksheet_Calculate事件。

以下是一个使用Worksheet_Calculate事件的示例：

1. 打开VBA编辑器（按下ALT+F11）。
2. 在“项目资源管理器”窗格中选择要在其中添加代码的工作簿。
3. 在“项目资源管理器”中展开该工作簿，然后双击要在其中添加代码的工作表。

4. 在“代码”窗格中选择工作表对象的“Worksheet”和“Calculate”事件：

Private Sub Worksheet_Calculate()
'your code goes here
End Sub

5. 在事件处理程序中添加要执行的代码。例如，以下代码将在公式计算后将单元格A1的值复制到单元格B1中：

Private Sub Worksheet_Calculate()
Range("B1").Value = Range("A1").Value
End Sub

6. 保存代码并关闭VBA编辑器。
7. 返回到Excel工作表并更改单元格A1中的内容以触发公式计算。单元格B1中会自动显示与A1相同的值。

请注意，Worksheet_Calculate事件会在每次工作表上的公式计算后自动触发，即使公式计算结果与以前相同。因此，如果您的代码会对工作表进行大量操作，可能会影响性能。

相关问题

vba如何单元格改变自动运行macro

可以使用Worksheet_Change事件来实现单元格改变时自动运行宏。具体步骤如下：

1. 打开VBA编辑器，双击需要添加事件的工作表对象。

2. 在代码窗口中选择“Worksheet”和“Change”两个选项。

3. 在代码窗口中输入以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    '判断目标单元格是否是需要运行宏的单元格
    If Target.Address = "$A$1" Then
        '运行需要执行的宏代码
        Call Macro1
    End If
End Sub

其中，“$A$1”是需要监视的单元格地址，如果该单元格发生变化，就会执行Macro1这个宏。

4. 在代码窗口中输入需要执行的宏代码，例如：

Sub Macro1()
    '在单元格A2中输入当前日期
    Range("A2").Value = Date
End Sub

这个宏的作用是在单元格A2中输入当前日期。

5. 关闭VBA编辑器并测试。当单元格A1的值改变时，宏将自动运行，并在单元格A2中输入当前日期。

注意：如果需要监视多个单元格，只需在代码中添加相应的判断语句即可。

VBA点击某个工作表自动运行代码

这个可以通过VBA中的Worksheet对象的Activate事件来实现。具体的代码可以像下面这样：

Private Sub Worksheet_Activate()
MsgBox "欢迎访问本工作表"
End Sub

你可以在需要执行代码的工作表上插入上述代码。当用户点击该工作表时，就会自动运行代码并弹出消息框。如果需要更复杂的操作，你可以在Activate事件中编写更多的代码。

请注意，这个方法只会在用户点击该工作表时触发。如果需要在工作簿打开时自动运行代码，你可以将代码放在ThisWorkbook对象的Open事件中。