Excel VBA質問箱 IV

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

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


35948 / 76738 ←次へ | 前へ→

【45978】Re:条件分岐教えて下さい
発言  ToShiYo  - 07/1/20(土) 9:38 -

引用なし
パスワード
   ▼yasu さん:
おはようございます。
シート数が多いときには便利かも・・・っと思います。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Dim i As Integer
 For i = 1 To Sheets.Count
   If ActiveSheet.Name = "Sheet" & i Then
     MsgBox "Sheet" & i & "が選択されました"
    Exit For
   End If
 Next
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 お礼

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