|
ハトさん、ご返事どうも有難うございました。
xla の ThisWorkbook のコードエリアにコードを入力して、全てのワークシート上でイベントを発生させてしまうのはさすがに問題があると気付きましたので、お教えいただいたコードを
------------------------------------------------------
Private WithEvents myApp As Application
Private Sub myApp_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub
Private Sub UserForm_Initialize()
...
...
Set myApp = Application
End Sub
------------------------------------------------------
のように UserForm のコードエリアに入力すれば、自分の思惑通りに機能させることができました!!どうも有難うございました。これで、myApp_SheetActivate 内に UserForm_Initialize で呼び出しているいくつかの Function を実行すれば、シートが選択されるたびにアクティブシート上の必要なデータを Form に反映させられます!!
長い間保留にしていたので、とても助かりました。
また何かご質問させていただくことがあるかと思いますが、その時はまたよろしくお願い致します。
リョウタ
|
|