Case文、For文について

Question

Case文とFor文についてご教授お願いします。

G列にはエリア、H列には時間が入力されています。
入力されているエリアはG3からH80までエリアと時間が入っています。
G列とH列の内容に基づいてI列にはコードを入力するマクロを組みたいと思っています。

以下のCase文を作ったのですが、H3の時間やエリアを変えてもBやCを返してこなく、Bしか返してきません。
何が間違っているかご指摘いただけたら幸いです。

またI3からCode(関数名)を最下行までコードを入力する繰り返し文も教えて頂けたら幸いです。

～～～～～～～～～～～Case文～～～～～～～～～～

Dim Code As Integer

Select Case Code 
Case Range("H3") > ("7:00") And Range("H3") < ("9:29")
    Range("I3") = "A"

Case Range("H3") > ("9:30") And Range("H3") < ("11:59")
    Range("I3") = "B"

Case Range("H3") > ("9:30") And Range("H3") < ("11:59")　And Range("G3") = "東京"
    Range("I3") = "B1"
    
Case Range("H3") > ("12:00") And Range("H3") < ("14:59")
    Range("I3") = "C"
          
Case Range("H3") > ("15:00") And Range("H3") < ("17:59")
    Range("I3") = "D"

Case Range("H3") > ("18:00") And Range("H3") < ("21:59")
    Range("I3") = "E"

Case Range("H3") > ("18:00") And Range("H3") < ("21:59") And Range("G3") = "東京"
    Range("I3") = "E"
          
          
End Select

～～～～～～～繰り返し文～～～～～～～

'最下行まで'
Dim lngERow As Integer      'データ最終行番号用変数
Dim r As Integer            'ルーチン処理用変数

'レコード最終行番号取得
lngERow = Range("I" & Rows.Count).End(xlUp).Row

'繰り返し処理
For r = lngERow To 2 Step -1
   
    
    If Cells(r, 8) = ""<> Then
       Cells(r, 9).Code
   
    End If

何卒宜しくお願い致します。

Answer 1

VBAのコードの中で配送コードのルールを作るのではなく、
ルールはシート上に作っておいてはいかがでしょうか？

コードが煩雑にならなくなると思います。

Answer 2

セルに時刻を入力すると特別なことをしない限りシリアル値で格納されます。"7:00"は文字列ですのでシリアル値と比較しても正しい結果は得られません。TimeValue関数などでシリアル値に変換してから大小比較します。

Select Case の使い方が間違っています。
他の方の回答にもあるように If文を使うか、
Select Case を使うなら、例えば下記のようになります。

    Select Case Range("H3")
    Case TimeValue("7:00") To TimeValue("9:29")
        Range("I3") = "A"
    Case TimeValue("9:30") To TimeValue("11:59")
        If Range("G3") = "東京" Then
            Range("I3") = "B1"
        Else
            Range("I3") = "B"
        End If
    Case TimeValue("12:00") To TimeValue("14:59")
        Range("I3") = "C"
    Case TimeValue("15:00") To TimeValue("17:59")
        Range("I3") = "D"
    Case TimeValue("18:00") To TimeValue("21:59")
        If Range("G3") = "東京" Then
            Range("I3") = "E1"
        Else
            Range("I3") = "E"
        End If
    End Select

繰り返し文は下記のようになります。

'最下行まで'
Dim lngERow As Integer      'データ最終行番号用変数
Dim r As Integer            'ルーチン処理用変数

'レコード最終行番号取得
lngERow = Range("I" & Rows.Count).End(xlUp).Row

'繰り返し処理
For r = 3 To lngERow

    Select Case Range("H" & r)
    Case TimeValue("7:00") To TimeValue("9:29")
        Range("I" & r) = "A"
    Case TimeValue("9:30") To TimeValue("11:59")
        If Range("G" & r) = "東京" Then
            Range("I" & r) = "B1"
        Else
            Range("I" & r) = "B"
        End If
    Case TimeValue("12:00") To TimeValue("14:59")
        Range("I" & r) = "C"
    Case TimeValue("15:00") To TimeValue("17:59")
        Range("I" & r) = "D"
    Case TimeValue("18:00") To TimeValue("21:59")
        If TimeValue("G" & r) = "東京" Then
            Range("I" & r) = "E1"
        Else
            Range("I" & r) = "E"
        End If
    End Select
Next

Comments

[keeper201k]

ご丁寧に説明を頂きまして、ありがとうございました。

Answer 3

Select Case Code を Select Case True とすれば動きそうですが、本来 Select Case 文は、この例であれば Code がどのような値かを Case 句に書くもなので、そもそも使い方が誤っていますね。
このような条件分岐を書きたいなら If 文で書く方が一般的です。