|
▼kirin400 さん:
>Workbook_SheetChangeを他のブックから共通で適用させる方法はないのでしょうか?
>
一例ですが、
一番最初に開かれるBookは個人用マクロブックですから、
Personal.xlsのBookモジュール(Thisworkbook)の宣言部に
Private WithEvents myApp As Application
のようにApplicationオブジェクトのインスタンスをEvent付きで
宣言しておいて、
下のように、Workbook_Open()プロシージャで、
Private Sub Workbook_Open()
Set myApp = Application
End Sub
とmyAppを実体化してみてください。
この状態でVBEコードウィンドウの一番上にある左側のドロップ
ダウンリスト内に myApp オブジェクトが現れ、
右のイベント用ドロップダウンに
SheetChange
が現れるようになるので、
Private Sub myApp_SheetChange(ByVal Sh As Object, ByVal Target As Range)
というすべてのBookのイベントプロシージャが利用可能になります。
|
|