Windows 10 Pro_x64 + Excel2013_x86 VBA の ListBox で複数の列を表示する

Excel VBA のUserForm上のListBoxに複数列を表示したい時のメモ

普段はデータベースからひらってきたデータを表示することが多いんだけど

最小限必要なコードを張りつけてみる

・UserFormを1個追加する(UserForm2)

・UserForm2の上にListBoxを1個追加する

・UserForm2の上にCommandButtonを3個追加する

・CommandButton1-3をクリックしたときにListBox1に対応するデータを追加する

・ListBox1をダブルクリックしたときに、対象データを表示する

対象データは以下の全国一括(KEN_ALL.CSV)より一部抜粋

郵便番号データダウンロード

サンプルコード

Option Explicit

Private Sub CommandButton1_Click()
    Call SetPostal("01")
End Sub

Private Sub CommandButton2_Click()
    Call SetPostal("02")
End Sub

Private Sub CommandButton3_Click()
    Call SetPostal("03")
End Sub

Private Sub SetPostal(ByRef aPrefCode As String)
'
    ListBox1.Clear
    ListBox1.ColumnWidths = "30 pt;40 pt;70 pt;100 pt"
    ListBox1.ColumnCount = 4
'
    Select Case aPrefCode
    Case "01"
            ListBox1.AddItem ""
            ListBox1.List(0, 0) = "01101"
            ListBox1.List(0, 1) = "0640954"
            ListBox1.List(0, 2) = "札幌市中央区"
            ListBox1.List(0, 3) = "宮の森四条"
            ListBox1.AddItem ""
            ListBox1.List(1, 0) = "01102"
            ListBox1.List(1, 1) = "0028071"
            ListBox1.List(1, 2) = "札幌市北区"
            ListBox1.List(1, 3) = "あいの里一条"
    Case "02"
            ListBox1.AddItem ""
            ListBox1.List(0, 0) = "02201"
            ListBox1.List(0, 1) = "0301271"
            ListBox1.List(0, 2) = "青森市"
            ListBox1.List(0, 3) = "六枚橋"
            ListBox1.AddItem ""
            ListBox1.List(1, 0) = "02202"
            ListBox1.List(1, 1) = "0361516"
            ListBox1.List(1, 2) = "弘前市"
            ListBox1.List(1, 3) = "藍内"
     Case "03"
           ListBox1.AddItem ""
            ListBox1.List(0, 0) = "03201"
            ListBox1.List(0, 1) = "0200886"
            ListBox1.List(0, 2) = "盛岡市"
            ListBox1.List(0, 3) = "若園町"
            ListBox1.AddItem ""
            ListBox1.List(1, 0) = "03202"
            ListBox1.List(1, 1) = "0270202"
            ListBox1.List(1, 2) = "宮古市"
            ListBox1.List(1, 3) = "赤前"
    End Select
'
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'
    Dim setVal1 As String
    Dim setVal2 As String
    Dim setVal3 As String
    Dim setVal4 As String
'
    If ListBox1.ListIndex >= 0 Then
        setVal1 = ListBox1.List(ListBox1.ListIndex, 0)
        setVal2 = ListBox1.List(ListBox1.ListIndex, 1)
        setVal3 = ListBox1.List(ListBox1.ListIndex, 2)
        setVal4 = ListBox1.List(ListBox1.ListIndex, 3)
    End If
'
    Debug.Print setVal1, setVal2, setVal3, setVal4
'
End Sub