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