マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
エクセル上にリストがあってそこから読み出す場合の方法
Excel上に上のようなリストがあったとします。
Private Sub CommandButton2_Click()
ListBox1.List = Range("F2:G17").Value
End Sub
上記のように範囲を指定（Range("F2:G17")）することも可能です。
これを実行すると下のようになります。
またこのような記述も可能です。
Private Sub CommandButton2_Click()
Dim i As Long
With ListBox1
For i = 2 To 17
.AddItem
.List(.ListCount - 1, 0) = Cells(i, 6)
.List(.ListCount - 1, 1) = Cells(i, 7)
Next i
End With
End Sub
上記はFor〜Nextを使用して、２行目から１７行目までをリストにしています。
これも同じ結果が得られます。
また、将来的にリストに追記される場合も加味して考えてみましょう。
Private Sub CommandButton2_Click()
Dim i As Long
For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row
ListBox1.AddItem Cells(i, 6)
Next i
End Sub
上記のように記述します。
結果は上のようになります。
少しVBAの記述について説明しましょう。
「Cells(Rows.Count, 6).End(xlUp).Row」ここが分かりにくいですね。
ここで最終行の取得を行っています。
通常データはドンドン縦（行）に増えていく傾向にあります。
そのような時、リスト範囲を限定出来ない時があります。
そのために最終行の取得を行う必要があります。
「6」というのは、現在リストがF列にあるのでアルファベットで
６番目なので「6」になっています。
Rows.Countですが、一旦一番下のセルに移動するという意味です。
「Ctrl」＋「↓」で一番下まで行きますね。Excel2010なので「1048576行」に移動します。
次にEnd(xlUp)ですが、これは「Ctrl」＋「↑」になり、一番下の行から上に向かって
移動します。
今回の場合データ範囲はF2〜F17なので１７行目まで移動します。
これでForの繰り返しが２〜１７になりますね。
また別の方法として下記のような記述も出来ます。
Private Sub CommandButton2_Click()
ListBox1.List = Range(Range("f2"), Cells(Rows.Count, 6).End(xlUp)).Value
End Sub
