| |
▼Tatu さん：
こんばんは。
>This workbookとか該当シートのWorksheet_Change(・・・)
>ではなく、標準モジュール(特定のBookだけでなく汎用性を持たし
>他のワークブックでも利用したい)で同様のことはできないのでし
>ょうか。
標準モジュールではイベントプロシジャーは記述できません。
イベントプロシジャーは、オブジェクトモジュールでしか記述できません。
>つまり、アクティブセルが移動(Enterだけでなく)すると
>イベントを実行するようにしたいのですが、分りません。
ということならば、
Thisworkbookのモジュールに
Option Explicit
'==============================================
Private WithEvents app As Application
'==============================================
Sub ev_start()
Set app = Application
End Sub
'==============================================
Sub ev_end()
Set app = Nothing
End Sub
'==============================================
Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox Target.Address(, , , True)
End Sub
最初にev_startを実行してください。
その後、適当にセルを選択してください。
イベントが発生し、選択したセルアドレスを表示します。
これは、どのブックで行っても実行されます（上記マクロの記述されていないブックなど）。
ev_endの実行でイベントが発生しません。
試してみてください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
