Windows 10 Pro_x64 + Excel2013_x86 VBA で Worksheet のデータを ListBox に表示する

Worksheetのデータをフォームの起動時にListBoxにセットする

ループで1行づつデータを取得して、Cellのデーをセットする方法もあるが

対象の領域を Variant の２次元配列にセットしてループで処理する方が良いかなと

※桁数の多いデータを取り込んでListBoxに表示することは無いと思うけど

※DBに登録するときは、1行単位で　ひらうかな？

・UserFormを1個追加する

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

・UserForm_Initialize で ListBox1 に初期データを追加する

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

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

データの並びは以下に準拠

郵便番号データの説明

１：表示順(追加)

２：全国地方公共団体コード

４：郵便番号(7桁)

９：市区町村名

10：町域名

Option Explicit

Private Sub UserForm_Initialize()
'
    Dim varAry  As Variant
    Dim lngRow  As Long
'
    ListBox1.Clear
'
    ListBox1.ColumnWidths = "30 pt; 30 pt;40 pt;70 pt;70 pt"
    ListBox1.ColumnCount = 5
    '
    '   データは A3:P8 にある
    '
    With ThisWorkbook.Worksheets("ZIPCODE")
        lngRow = .Range("A" & Rows.count).End(xlUp).Row
        varAry = .Range(.Cells(3, 1), .Cells(lngRow, 10))
    End With

    For lngRow = 1 To UBound(varAry)
        ListBox1.AddItem ""
        ListBox1.List(lngRow - 1, 0) = varAry(lngRow, 1)
        ListBox1.List(lngRow - 1, 1) = varAry(lngRow, 2)
        ListBox1.List(lngRow - 1, 2) = varAry(lngRow, 4)
        ListBox1.List(lngRow - 1, 3) = varAry(lngRow, 9)
        ListBox1.List(lngRow - 1, 4) = varAry(lngRow, 10)
    Next
'
End Sub