レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

エクセルマクロ・VBA発展編１

発展１講座第４章 - For Each構文カンニングペーパー

84nomuraさんの投稿

(投稿ID: 5436)

始めまして、一つのブックにたくさんシートがある場合、シート名がaのシートと、bのシートに挟まれた、間のシートで同じ処理を繰り返すというのは、どんな構文が良さそうでしょうか

2022/12/29 23:36

小川慶一さんのコメント

(コメントID: 8037)

こんばんは。

こんな感じ↓ですね。

Sub between_sheets_only()
    'For i = 1 To Worksheets.Count
    '    ...
    '    ...
    '    ...
    'Next で
    '左にあるシートから順番に、すべてのシートに対して処理をできます。
    'Sheet3 と Sheet6 の間にあるシートのみ処理をする
    
    Dim i
    Dim change
    For i = 1 To Worksheets.Count
        '条件判定を行う
        If Worksheets(i).Name = "Sheet3" Then
            change = True
        ElseIf Worksheets(i).Name = "Sheet6" Then
            change = False
        End If
        
        If change Then
            '条件に一致する場合のみ処理
            Worksheets(i).Tab.Color = vbRed
        End If
    Next
End Sub

For Each 構文でも似たようなことができそうな気配はありますが、この場合は For Next 構文のほうが良いです。
なぜなら、For Each 構文は、処理の順序が保証されていない(*)からです。

(*) 仕様上は、「左のシートから順番に処理される」とは限らないということになっています。(実装的にはそうなっていますが)

2022/12/30 02:18

84nomuraさんのコメント

(コメントID: 8039)

ありがとうございます。
今更ですが、Worksheets(1).select というのは、1番目のシートを選択するという意味でした。
(ちょっとどういう理屈でそうなってるのかは忘れてしまいましたが・・)

2022/12/31 21:56

小川慶一さんのコメント

(コメントID: 8040)

左から数えて n 番目を指定するときは Worksheets(n) と記述します (^^

2022/12/31 22:39

小川慶一さんのコメント

(コメントID: 8041)

以下の「発展１講座第２章 - コレクション」から動画3本連続で観てみてください (^^
https://forum.pc5bai.com/lesson/page/185/