Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10491 / 13644 ツリー ←次へ | 前へ→

【21545】あるシートを選択したときに実行したい nin 05/1/23(日) 13:13 質問[未読]
【21546】Re:あるシートを選択したときに実行したい りすりす 05/1/23(日) 13:20 回答[未読]
【21550】Re:あるシートを選択したときに実行したい nin 05/1/23(日) 14:19 お礼[未読]

【21545】あるシートを選択したときに実行したい
質問  nin WEB  - 05/1/23(日) 13:13 -

引用なし
パスワード
   初めて投稿します。VBA初心者です。よろしくお願いします。
あるシートを選択したときにプログラムを実行させたいの
ですが、どこに記述すれば可能でしょうか?

【21546】Re:あるシートを選択したときに実行したい
回答  りすりす  - 05/1/23(日) 13:20 -

引用なし
パスワード
   ▼nin さん:
>初めて投稿します。VBA初心者です。よろしくお願いします。
>あるシートを選択したときにプログラムを実行させたいの
>ですが、どこに記述すれば可能でしょうか?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 If (StrComp(Sh.Name, "Sheet2") = 0) Then MsgBox "あっ"
End Sub

【21550】Re:あるシートを選択したときに実行したい
お礼  nin WEB  - 05/1/23(日) 14:19 -

引用なし
パスワード
   ▼りすりす さん:
>▼nin さん:
>>初めて投稿します。VBA初心者です。よろしくお願いします。
>>あるシートを選択したときにプログラムを実行させたいの
>>ですが、どこに記述すれば可能でしょうか?
>
>Private Sub Workbook_SheetActivate(ByVal Sh As Object)
> If (StrComp(Sh.Name, "Sheet2") = 0) Then MsgBox "あっ"
>End Sub

出来ましたです。ありがとうございます!

でも、なんか基本のところですね すいません
もう少し勉強しますです

10491 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free