Excel VBA Macro ・ リストボックス・コントロール ・ FAQ
リストボックス、コンボボックス、テキストボックスを関連させるには？
Question 45.2
VBAに興味を持ち始めて約1年、諸先輩方の本やホームページを見ながら、休憩時間に少しずつ勉強し、楽しんでいます。しかしながら、まったく無知の状態からはじめたので、諸先輩方のコードをコピーしては、定数や変数など書き換えたり組替えたりして使用しています。
Ａnswer
Copyright (C) 2001.6.13 永井善王
ややこしいかも知れませんが、むつかしいこととは思いません。1. リストボックスに A〜C を挿入する方法
Private Sub UserForm_Initialize()
ListBox1.AddItem ("A")
ListBox1.AddItem ("B")
ListBox1.AddItem ("C")
End Sub
このイベントプロシージャは、ユーザーフォームが表示されたときに自動的に実行されます。ユーザーフォームのコード画面で作成します。標準モジュールに作成するのでは、ありません。2. リストボックスで選択された値を取得する方法
Option Explicit
Dim シート名 As String
'----------------------------------------
Private Sub ListBox1_Click()
シート名 = ListBox1.Value
End Sub
変数「シート名」を Dimステートメントにより宣言しています。これは、その値を他のプロシージャでも使いたいからです。3. シートの値をコンボボックスのリストに表示する方法 「 印刷範囲をR1C1形式の文字列変数で設定するには？ 」 を見て研究してください。
Private Sub シートの値をコンボボックスに表示する()
Worksheets(シート名).Activate
Range("A1").CurrentRegion.Select
With Selection
行数 = .Rows.Count
範囲 = .Cells(1, 1).Address & ":" & .Cells(行数, 1).Address
End With
ComboBox1.RowSource = シート名 & "!" & 範囲
End Sub
なお、質問文中に （シートの 列 は変動します） とあって気がかりですが、 行 の誤りと解釈して進めました。4. コンボボックスで選択された行に対応するシートのセルの値をテキストボックスに表示する方法
Private Sub ComboBox1_Click()
行 = ComboBox1.ListIndex + 1
TextBox1.Text = Worksheets(シート名).Cells(行, 2)
End Sub
2行目のコードは、コンボボックスのリストの何行目がクリックされたかを知るために、ListIndexプロパティの値を取得しています。これで取得できる行は 0オリジンです。ワークシートの行は 1オリジンですから、1加えておきます。
サンプルブックのダウンロードは ここをクリック （YNxv9g044_ListComboText.xls 66KB）
左図のようなリストボックスを表示したいのでしょうか。
わかりやすくするために、左図を シートA ということにしましょう。このシートの A列の値を、コンボボックスに表示してみます。
ユーザーがコンボボックスのリスト上でクリックすると、Clickイベントが発生します。