エクセル2010基本講座：リストボックス(ActiveXコントロール)をシートに配置する

はじめに　　　　topへ

このページではActiveXコントロールのリストボックスをシートに配置して利用する例について書きます。
このページではVBAのコードは使わずにシートで処理する方法を書きます。
開発タブを使いますので、開発タブが表示されていない場合は　開発タブを表示する　をご覧ください。

リストボックスをシートに配置する　　　　topへ

シートにリストボックスを配置し、設定をします。
1. 開発タブの[コントロール]グループにある[挿入]をクリックし、ActiveXコントロールの[リストボックス]をクリックします。
2. リストボックスを配置したいところでクリックすると、リストボックスが配置されます。
  - [コントロール]グループにある[デザインモード]がオンになっているのを確認してください。
    プロパティなどの編集をするときには[デザインモード]をオンにして操作します。
3. 開発タブの[コントロール]グループにある[プロパティ]をクリックします。
4. リストに表示する内容をF2:F8に入力します。
  リストボックスを選択して、プロパティでLinkedCell「A3」、ListFillRange「F2:F8」と設定しました。
5. 開発タブの[デザインモード]をオフにして、リストボックスの動作を見てみます。
  - リストボックスにListFillRange「F2:F8」の内容が表示され、リストから選択するとLinkedCell「A3」に選択された値が表示されました。

VBAのコードを使ってシートのデータを表示する　　　　topへ

上記はプロパティウィンドウを使ってシートのデータをリストボックスに表示しました。
この項では、VBAのコードを使って、シートのデータをリストボックスに表示してみます。
当サイトの掲示板で、リストボックスとテキストボックスを使ってデータを修正する・・・らしい件で質問を受けました。
それに関連して、リストボックスやテキストボックスを使ってデータをやり取りするコードを書いてみました。(2018/5/4)

表示するデータはSheet3に入力してあります。
Sheet1にリストボックスを配置しました。
赤色で囲んだ部分がリストボックスです。

Sheet3のデータをリストボックスに書き出します。
コードは標準モジュールに書いています。

Sheet3のデータを配列 myDataに読み込んで、Sheet1の ListBox1に　Worksheets("Sheet1").ListBox1.List = myDataとして、書き出しています。
リストボックスの位置やサイズを指定しているのは、リストボックスをクリアしたりコードを実行するたびに表示位置がずれたり、サイズが変わったりしたため、その対策としてコード内で位置やサイズを指定しました。
リストボックス内は7つの列でそれぞれ列のサイズを指定しています。
下記のコードの一部は、上の図とは異なります。

Sub test()
　Dim myData As Variant
　'Worksheets("Sheet3").Activate
　'myData = Worksheets("Sheet3").Range(Cells(2, 1), Cells(11, 7)).Value　冗長な気がしたので↓に変更
　myData = Worksheets("Sheet3").Range("A2:H11").Value
　'Worksheets("Sheet1").Activate
　With Worksheets("Sheet1").ListBox1
　　　　.Left = 480
　　　　.Height = 300
　　　　.Width = 500
　　　　.ColumnCount = 7
　　　　.ColumnWidths = "25;70;100;25;25;25;25"
　　　　.List = myData
　End With
End Sub

コードを実行して、Ｓｈｅｅｔ3のデータリストをリストボックスに表示しました。
リストボックス内をクリアするコードは下表のようにしています。

Sub test0()
　　Worksheets("Sheet1").Activate
　　With Worksheets("Sheet1").ListBox1
　　　　.Clear
　　End With

End Sub

リストボックスで選択したデータをテキストボックスに表示する　　　　topへ

リストボックスに表示したデータを選択して、その選択した行(データ)をテキストボックスに表示してみました。
テキストボックスは、TextBox1～7が配置してあります。

コードは下表のようにしました。

Sub test2()
'選択項目をテキストボックスに表示
　　Worksheets("Sheet1").Activate
　　With Worksheets("Sheet1").ListBox1
　　　　Worksheets("Sheet1").TextBox1 = .List(.ListIndex, 0)
　　　　Worksheets("Sheet1").TextBox2 = .List(.ListIndex, 1)
　　　　Worksheets("Sheet1").TextBox3 = .List(.ListIndex, 2)
　　　　Worksheets("Sheet1").TextBox4 = .List(.ListIndex, 3)
　　　　Worksheets("Sheet1").TextBox5 = .List(.ListIndex, 4)
　　　　Worksheets("Sheet1").TextBox6 = .List(.ListIndex, 5)
　　　　Worksheets("Sheet1").TextBox7 = .List(.ListIndex, 6)
　　End With
End Sub

テキストボックスの値にリストボックスで選択したデータを書き換える　　　　topへ

テキストボックスに表示されたリストボックスで選択したデータを修正します。
修正したデータ（ここでは数学を88に修正)にリストボックスの選択している行を書き換えます。
テキストボックス　1～7の値をリストボックスの選択している行に上書きします。

コード

Sub test4()
'テキストボックスからリストボックスへ転記
　　Worksheets("Sheet1").Activate
　　With Worksheets("Sheet1").ListBox1
　　　　.List(.ListIndex, 0) = Worksheets("Sheet1").TextBox1.Value
　　　　.List(.ListIndex, 1) = Worksheets("Sheet1").TextBox2.Value
　　　　.List(.ListIndex, 2) = Worksheets("Sheet1").TextBox3.Value
　　　　.List(.ListIndex, 3) = Worksheets("Sheet1").TextBox4.Value
　　　　.List(.ListIndex, 4) = Worksheets("Sheet1").TextBox5.Value
　　　　.List(.ListIndex, 5) = Worksheets("Sheet1").TextBox6.Value
　　　　.List(.ListIndex, 6) = Worksheets("Sheet1").TextBox7.Value
　　End With
End Sub

テキストボックスの値にデータリストのデータを書き換える　　　　topへ

テキストボックスで修正した値で、Sheet3のデータリストのデータを書き換えました。

コード
書き換えるデータリストの行はリストボックスで選択している行と同じにしています。

Sub test3()
'テキストボックスをシートに転記
　Dim myRow As Long
　Worksheets("Sheet1").Activate
　With Worksheets("Sheet3")
　　myRow = Worksheets("Sheet1").ListBox1.ListIndex + 2
　　.Cells(myRow, 1).Value = Worksheets("Sheet1").TextBox1.Value
　　.Cells(myRow, 2).Value = Worksheets("Sheet1").TextBox2.Value
　　.Cells(myRow, 3).Value = Worksheets("Sheet1").TextBox3.Value
　　.Cells(myRow, 4).Value = Worksheets("Sheet1").TextBox4.Value
　　.Cells(myRow, 5).Value = Worksheets("Sheet1").TextBox5.Value
　　.Cells(myRow, 6).Value = Worksheets("Sheet1").TextBox6.Value
　　.Cells(myRow, 7).Value = Worksheets("Sheet1").TextBox7.Value
　End With
Worksheets("Sheet3").Activate
End Sub

リストボックスの値をシートに書き出す　　　　topへ

リストボックスの値をシートに書き出す

コード
リストボックスの値をSheet1の5行目以降に書き出しています。

Sub test5()
'リストボックスからシート1へ転記
　Dim myData As Variant
　Worksheets("Sheet1").Activate
　With Worksheets("Sheet1").ListBox1
　　　myData = .List
　　　Worksheets("Sheet1").Range(Cells(5, 1), Cells(5 + .ListCount - 1, 7)).Value = myData
　End With
End Sub

スポンサードリンク

よねさんのExcelとWordの使い方｜エクセル2010基本講座：目次｜フォーム・ActiveX・マクロ（ＶＢＡ）｜リストボックス(ActiveXコントロール)をシートに配置する

エクセル2010基本講座：リストボックス(ActiveXコントロール)をシートに配置する

はじめに topへ

リストボックスをシートに配置する topへ

VBAのコードを使ってシートのデータを表示する topへ

リストボックスで選択したデータをテキストボックスに表示する topへ

テキストボックスの値にリストボックスで選択したデータを書き換える topへ

テキストボックスの値にデータリストのデータを書き換える topへ

リストボックスの値をシートに書き出す topへ