【エクセルVBA】リストボックスのListプロパティで複数列の値を更新する

皆様こんにちは、ノグチです。

ユーザーフォームを作って使ってみるまでを目標に、連載記事でコントロールのメソッドやプロパティ、イベントをご紹介しています。

前回記事では、リストボックスのAddItemメソッドで、リストボックスに、ワークシート範囲以外の値を追加する方法をご紹介しました。

【エクセルVBA】AddItemメソッドでリストボックスに値を追加してみよう！

ユーザーフォームを作って使ってみるまでを目標に、連載記事でコントロールのメソッドやプロパティ、イベントをご紹介しています。今回は、リストボックスにAddItemメソッドを使って値を追加する方法をご紹介しています。

しかしAddItemメソッドのパラメータを見てみると、1列分の値しかセット出来なさそうですよね…

AddItemメソッドでは1列の値しかセットできない…ということは、RowSourceプロパティでワークシートの範囲をセットしないと、VBAでリストボックスに複数列の値をセットすることはできないの？

いえいえ、ちゃんと複数列の値をセットすることができますよ！

ということで今回は、リストボックスのListプロパティで、2列目以降の値を更新する方法をご紹介します！

前回までのおさらい
Listプロパティとは？
1. Listプロパティでリストボックスの値を取得する
2. Listプロパティでリストボックスの値を更新する
AddItemメソッド行を追加して列の値をListプロパティで更新する
最後に
連載目次：【エクセルVBA】ユーザーフォームを使ってみよう！

前回までのおさらい

毎回の記事でご紹介していますが、前回までに作成しているユーザーフォームがこちら。

前回は、「品名」のテキストボックスに入力した値からこちらのワークシートを検索して、検索結果をユーザーフォームのリストボックスに、AddItemメソッドで追加していったのでした。

このAddItemメソッドで追加した行の2列目以降の値を、Listプロパティで更新する、というのが今回の主旨です。

Listプロパティとは？

リストボックスのListプロパティは、リストボックスの値の読み書きができるプロパティです。

Listプロパティでリストボックスの値を更新したい場合、下記のように記述します。

ListBoxオブジェクト.List(行, 列) = 値として表示したい内容

パラメータで、読み書き対象の行と列を指定するのですが、この行と列、0から数え始めますので注意が必要です。

Listプロパティでリストボックスの値を取得する

Listプロパティは、リストボックスにすでにある行の値を取得することができます。

例えばこちらのリストボックスの3行目にある値を取得したい場合。

こんなコードで取得することができます。(コマンドボタンのClickイベントを用いています。)

Private Sub btnOK_Click()
  MsgBox ListRegion.List(2, 0)
End Sub

こちらのコードを実行すると…

この通りリストボックスの3行目にある値を取得して、メッセージで表示出来ていますね。

Listプロパティでリストボックスの値を更新する

Listプロパティは、リストボックスにすでにある行の値を更新することもできます。

例えばこちらのリストボックスの上から2行目の値を更新したい場合。

このように記述して更新することができます。

Private Sub btnOK_Click()
    MsgBox ListRegion.List(2, 0) = "すだち"
End Sub

そしてこちらのコードを実行すると、

この通り、リストボックスの値を変更することができます。

AddItemメソッド行を追加して列の値をListプロパティで更新する

先に述べた通り、リストボックスのAddItemメソッドでは、リストボックスに新しい行を追加してくれます。

しかし、リストボックスのColumnCountプロパティで2以上の値が設定されていた(複数列の設定になっていた)としても、AddItemメソッドのパラメータで指定できるのは1列目にあたる値のみ。

そこでListプロパティとセットで使えば、新しく追加した行の2列目以降の値も更新することができます。

こんな感じで。

Private Sub TextItem_AfterUpdate()
    With ListRegion
        Dim i As Long
        i = .ListCount
        .AddItem TextItem.Value, i
        .List(i, 1) = TextItem.Value & "2列目"
        .List(i, 2) = TextItem.Value & "3列目"
    End With
End sub

AddItemメソッドでリストボックスに新しい行を追加して、1列目にはAdditemメソッドのパラメータでテキストボックスに入力された値をセットし、2,3列目はListプロパティで値を指定する、というコードです。

このコードを実行してみると…