Excel VBA模块无法正常工作

Question

我正在使用Excel 2010。

我将此代码添加到我的工作表中并且可以正常工作。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") > 0.5 Then
        MsgBox "Discount too high"
    End If
End Sub

但是我想创建一些方法来创建代码并在我们网络上的所有excel工作簿中共享该代码。

所以我创建了一个模块并创建了一个加载项，并将代码放入加载项的模块中。

WhitestormJS framework

我从表单中删除了代码，因为我希望可以从模块访问代码。

我启用了模块。

除非我将代码放入工作表中，否则VBA代码不起作用。请告知我如何将此代码放在一个文件中，并在我们服务器上的所有excel工作簿中共享该代码。

Answer 1

您必须将Worksheet_Change放在Excel对象的Sheetname下。因此，如果您希望此过程运行在Sheet1上，则必须将其放在Sheet1下。如果您希望它适用于工作簿中的所有工作表，则需要将其放在ThisWorkbook下并且您需要将过程名称更改为Workbook_SheetChange