Excel VBA質問箱 IV

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

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


35941 / 76732 ←次へ | 前へ→

【45979】Re:条件分岐教えて下さい
発言  かみちゃん  - 07/1/20(土) 9:48 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

>シート数が多いときには便利かも・・・っと思います。

シート数が多い場合は、
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Select Case Sh.Name
  Case "Sheet1", "Sheet2"
   MsgBox Sh.Name & "がアクティブになりました。"
  Case "Sheet3"
   MsgBox Sh.Name & "がアクティブになりました。"
  Case Else
   MsgBox "指定されたシート以外がアクティブになりました"
 End Select
End Sub
というようなこともできます。
Select Csse xxx
を使うか
If ... Then
 xxx
Else
 ooo
End If
を使うかは、条件分岐の数によって使い分けるといいと思います。
また、ヘルプも一度参照されたほうがいいかと思います。

>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 & "が選択されました"

ここは、
   If Sh.Name = "Sheet" & i Then
     MsgBox Sh.Name & "が選択されました"
という記述でもよさそですね。

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 お礼

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