|
こんにちは。かみちゃん です。
横から失礼します。
>シート数が多いときには便利かも・・・っと思います。
シート数が多い場合は、
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 & "が選択されました"
という記述でもよさそですね。
|
|