| |
▼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のイベントプロシージャが利用可能になります。
|
|
kanabun
- 10/2/7(日) 11:27 -
