【ExcelVBA】フォーム上に設置されたListboxの項目をクリックして選択された値をテキストボックスに表示するには

この記事では、フォーム上に設置されたListboxの項目をクリックして選択された値をテキストボックスに表示する方法についてご説明します。

すぐにソースコードを見たい場合はこちらをクリック

Table of Contents

【動画】フォーム上に設置されたListboxの項目をクリックして選択された値をテキストボックスに表示する実際の動き

本題に入る前に、まずは次の動画をご覧ください。

Listboxのlistプロパティに行位置と列位置を指定することでListboxの値を取得することができます。

今回は選択している行位置の各値を取得したいので、行位置にはクリックした行位置を指定しています。

クリックした行が何行目かは、ListBoxのListIndexから取得することができます。

取得したListboxの値は、各テキストボックスに出力して表示しています。

STEP.1

Listboxのlistプロパティに、クリックした行位置と列位置を指定する

Listboxのlistプロパティに行位置と列位置を指定します。listプロパティからは、クリックした行位置の指定した列位置にある値を返します。

STEP.2

STEP.1で取得した値をセルに設定する

STEP.1で取得した値をテキストボックスに設定します。

目次へ戻る

フォームの例

今回は次のフォームを作成しました。

Listboxをクリックすると、下の画像のように選択した行の値が各テキストボックスに表示されます。

目次へ戻る

コードの例

Option Explicit

Private Sub ListBox1_Click()
    
    txb_no.Text = ListBox1.List(ListBox1.ListIndex, 0)
    txb_name.Text = ListBox1.List(ListBox1.ListIndex, 1)
    txb_empNo.Text = ListBox1.List(ListBox1.ListIndex, 2)
    txb_age.Text = ListBox1.List(ListBox1.ListIndex, 3)
    txb_hometown.Text = ListBox1.List(ListBox1.ListIndex, 4)
    txb_yearOfJoining.Text = ListBox1.List(ListBox1.ListIndex, 5)
    txb_department.Text = ListBox1.List(ListBox1.ListIndex, 6)
    txb_position.Text = ListBox1.List(ListBox1.ListIndex, 7)

End Sub