如何从 Private Sub 中制作宏？

Question

我有以下代码

Private Sub Worksheet_Change(ByVal Target as Range) 
Target.Font.ColorIndex = 5 
End Sub

我想让此代码在工作表中运行，但它无法保存为宏或运行，因为模块仅接受语法Sub () End Sub。我该怎么办？

Answer 1

这 工作表.Change 事件 是一个事件例程，而不是可以手动运行的宏。

根据文档中所述，它将在“工作表上的单元格被用户或外部链接更改时”自动运行。

为了测试该例程，您需要修改单元格的值。