リストボックスに複数シートのデーターを表示させる。

質問

リストボックスに複数シートのデーターを表示させる。

下記の構文で複数表示はできたのですが、このListBox1のColumnCount７つ目に
シートBのC列のデーターを表示させる方法をお教えください。

With ListBox1
.ColumnCount = 7　　　　　　　　　↓
.ColumnWidths = "0;100;120;0;0;0;120"
.RowSource = "シートA!B5:G" & Worksheets("シートA").Cells(Rows.Count, 5).End(xlUp).Row

　　→　.RowSource = "シートB!C5:C" & Worksheets("シートB").Cells(Rows.Count, 5).End(xlUp).Row

.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
End With

よろしくお願いします

回答No.2

myRange · ベストアンサー

７列目のセットは、シートBのＣ列をひとつずつセットすることになるでしょう。

処理の流れは次のようになります。
'------------------------------------------------
先ず、シートＡのＢ～Ｇ列の６列ではなくて、Ｂ～Ｈ列までの７列セットしておく
（Ｈ列はダミーなのでデータがあってもなくてもいい）

次に、ListBoxにセットされている７列目とシートＢのＣ列のデータを入れ替える

-------------------------------------------------
　Dim R As Long
　Dim LastRow As Long

'●最終行の取得
　LastRow = Sheets("シートA").Cells(Rows.Count, 5).End(xlUp).Row

　With ListBox1
　　.ColumnCount = 7
　　.ColumnWidths = "0;100;120;0;0;0;120"

'●シートAのＢ５～Ｈ最終行をセット（７列セットしておく）

　　.List = Sheets("シートA").Range("B5:H" & LastRow).Value

'●シートBのＣ５～Ｃ最終行をひとつずつ７列目にセット

　　For R = 5 To LastRow
　　　　.List(R - 5, 6) = Sheets("シートB").Cells(R, "C").Value
　　Next R

　　.MultiSelect = fmMultiSelectMulti
　　.ListStyle = fmListStyleOption
　End With
'----------------------------------------------------

上記のようにシートBの最終行もシートＡの最終行を使用した方がいいでしょう
また、セットするプロパティは統一した方が見やすいので
質問者のコードのRowSourceプロパティは、Listプロパティに変更してあります。

以上です。

回答No.1

imogasi

この質問は下記の点ではどれか。質問をするとき良く認識せずに質問してるのでは。
（１）エクセルシート上にＬｉｓｔＢｏｘを貼り付けたもの（表示ーツールバーーコントロール）
（２）シート上にＬｉｓｔＢｏｘを貼り付けたもの（表示ーツールバーフォーム）
（３）ＵｓｅｒＦｏｒｍ１フォームの上にＬｉｓｔＢｏｘ貼り付け
（４）ＶＢなどでフォームの上にＬｉｓｔＢｏｘ貼り付けかつリストボックスのアイテムだけ
シートデータから取りたい
（４）ではエクセルシートのセルデータをリストボックスのアイテムとして採る（利用する）のが難しい（質問のコードでは出来ない？）
それぞれ微妙に違いがある。
ーーー
以下は参考に。
（１）ではエクセル（ＶＢＡ）では、プロパティのＦｉｌｌｌｉｓｔＲａｎｇｅをB5:H7のように設定するが、別のセル範囲から（同一シート上や別シートから）寄せ合わせては出来ないようだ。
Ｈ列に=Sheet2!C2のような式を入れて参照し=Sheet1!B5:H7のように設定は出来た。
（２）でも同じと思う。
ーー
（３）でも
Private Sub UserForm_Click()
With UserForm1.ListBox1
.ColumnCount = 7
.ColumnWidths = "0;100;120;0;0;0;120"
'.RowSource = "Sheet1!B5:G" & Worksheets("シートA").Cells(Rows.Count, 5).End
の行を
'.RowSource = Union(Worksheets("Sheet1").Range("B5:G7"), Worksheets("Sheet2").Range("C2:C4"))
や「＆」や「,」や「；」でつないでやってみたがダメだった。
Sheet1!B5:H7のような表記でつなげてもダメだった。
End With
End Sub
ーー
他の点参考事項
（１）では
.ColumnCount = 7も可能
.ColumnWidths = "0;100;120;0;0;0;120"も可能・Ｂ，Ｃ，Ｈ列が表示される。
.LinkedCell = "C2"は１セル指定に限りで、アイテムの一番左列に限られる？Ｃ２：Ｄ２など２列を採ることは出来ない。
ーー
ＵｓｅｒｆｏｒｍのＬｉｎｋｅｄｃｅｌｌは無いのか？
それに対しＷＥＢ記事から
フォームオブジェクトは、どうも「LinkedCell」プロパティーに変わるプロパティーを持っていないようです。私は、コードを書く以外方法がないと思います。ー＞
Private Sub ListBox1_Click()
Worksheets("Sheet1").Range("c2") = UserForm1.ListBox1.Text
End Sub
にするとうまく行った。

お礼

ありがとうございます。
リストボックスは、ユーザーフォーム上に貼り付けています。
２つのシートのデーターを、１つのリストボックスに表示することは
無理なのでしょうか。