ＶＢＡ Select Case

Question

いつもお世話になっております。
If分では機能したので、ＳＥＬＥＣＴ　ＣＡＳＥにしたのですが、Select Caseにすると、エラーにはなりませんが、機能しないという状況です。
以下のとおりなのですが、何が違うのか、幾度かやり直してみたのですが、動かないです。何が違うのか、、
コンボボックスには第1便から第4便までを設定して、その個所に転記するというようにしているのですが、、
Select Case a
Case a = "第1便"　このあたりの書き方が違うのだろうと思うのですが、、

　ご教授頂ければ幸いです。よろしくお願いいたします。

   Dim ws As Worksheet
     Dim rng As Range
        Dim a As String
          Dim i As Long
  
       Set ws = Worksheets("送迎表")
              
    For i = 1 To ListView1.ListItems.Count
    
         With ListView1
         
                 a = ComboBox2
                 
           Select Case a
           
                Case a = "第1便"
         
                    ws.Range("B3").Offset(i, 0) = .ListItems.Item(i).Text
      
                       ws.Range("B3").Offset(i, 1) = .ListItems.Item(i).SubItems(1)
           
             End Select
            
         End With
           
     Next i
       
End Sub
コード

Answer 1

書き方だけなら

select case a
    case "第1便"

もしくは、

select case true
    case a = "第1便"

です。

Comments

[kohan]

早速のご回答ありがとうございます。
select case a
case "第1便"

としているのですが、それでうまくいかないのです、、
If分なら、回るのですが、、なぜか全くわからなくなっています、。。
他に原因があるのでしょうか、、

[kitasue]

ご提示いただいたソースコードは、
select case a
case "第1便"
とはなってません。
Select Case a
Case a = "第1便"
となっています。

[kohan]

ご指摘の通りに直しても、動かなかったのですが、全角にしたら動きました、、全角と半角を区別するのですね、、基本的なことでしょうけど、知りませんでした、、、

ありがとうございました。

[kitasue]

何を全角にしたのでしょうか？

[kohan]

"第1便"を"第１便"といたしました

[kitasue]

ご回答ありがとうございました。