Excel VBA質問箱 IV

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

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


35944 / 76732 ←次へ | 前へ→

【45976】Re:条件分岐教えて下さい
発言  ponpon  - 07/1/20(土) 3:19 -

引用なし
パスワード
   ▼yasu さん:
>条件分岐について教えて下さい。
>sheet1がアクティブのとき
>このコードを実行
>sheet2がアクティブなら
>このコードを実行
>上記のような条件分岐は
>どういうふうに書けばよいでしょうか。
>初心者のためよく解りません
>よろしくお願いします。
>アバウトな質問ですみません

thisworkbookモジュールに

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Sh.Name = "Sheet1" Then
    MsgBox "Sheet1です"
  ElseIf Sh.Name = "Sheet2" Then
    MsgBox "Sheet2です"
  End If
End Sub

で出来ると思います。

0 hits

【45975】条件分岐教えて下さい yasu 07/1/20(土) 3:09 質問
【45976】Re:条件分岐教えて下さい ponpon 07/1/20(土) 3:19 発言
【45977】Re:条件分岐教えて下さい へっぽこ 07/1/20(土) 8:17 発言
【45978】Re:条件分岐教えて下さい ToShiYo 07/1/20(土) 9:38 発言
【45979】Re:条件分岐教えて下さい かみちゃん 07/1/20(土) 9:48 発言
【45980】Re:条件分岐教えて下さい yasu 07/1/20(土) 10:05 お礼

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