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ワークブックでそのコードを共有できる方法を作りたいと思います。

私はモジュールを作成し、アドインを作成してアドインのモジュールにコードを入れました。

私はコードがモジュールからアクセスできるようにしたいので、私はシートからコードを削除しました。

モジュールを有効にしました。

そして、私はシートにコードを入れない限り、VBAコードは動作しません。このコードを1つのファイルに入れて、私たちのサーバー上のすべてのExcelワークブックでそのコードを共有する方法を教えてください。

Answer 1

Excelオブジェクトのシート名の下にWorksheet_Changeを置く必要があります。したがって、このプロシージャを実行するSheet1の場合は、Sheet1の下に配置する必要があります。ワークブック内のすべてのシート上で作業する場合は、に変更する必要があります。