すいません、エクセルVBAのユーザーフォームのリストボックスの表示方法について質問があります。
シートのセルに
A列 D列 G列
1行 りんご 赤 120円
2行 みかん 黄 130円
3行 すいか 緑 110円
4行 りんご 赤 160円
. ・・・ ・ ・・・
.
と、50行まで値を入れます。
VBAでユーザーフォームを挿入し、
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "りんご"
.AddItem "みかん"
.AddItem "すいか"
End With
End Sub
でコンボボックスの値を設定し、次に
Private Sub ComboBox1_Change()
Dim i As Integer
For i = 1 To 50
If Cells(i, 1).Value = ComboBox1.Value Then
With ListBox1
.ColumnCount = 3
.AddItem Cells(i, 1)
End With
End If
Next i
End Sub
このときコンボボックスと同じ値の行について、
リストボックスにA列、D列、G列を表示させるにはどうしたらいいのでしょうか。
例えばコンボボックスで「りんご」を選択したときに、
リストボックスを
りんご 赤 120円
りんご 赤 160円
と表示させたいのですが、
.AddItem Cells(i, 1)
では一列だけしか表示できません。
Rowsorceを使ってみたりしましたが、どうにもうまく出来ませんでした。
よろしくお願いいたします。
すいません、エクセルVBAのユーザーフォームのリストボックスの表示方法について質問があります。
シートのセルに
A列 D列 G列
1行 りんご 赤 120円
2行 みかん 黄 130円
3行 すいか 緑 110円
4行 りんご 赤 160円
. ・・・ ・ ・・・
.
と、50行まで値を入れます。
VBAでユーザーフォームを挿入し、
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "りんご"
.AddItem "みかん"
.AddItem "すいか"
End With
End Sub
でコンボボックスの値を設定し、次に
Private Sub ComboBox1_Change()
Dim i As Integer
For i = 1 To 50
If Cells(i, 1).Value = ComboBox1.Value Then
With ListBox1
.ColumnCount = 3
.AddItem Cells(i, 1)
End With
End If
Next i
End Sub
このときコンボボックスと同じ値の行について、
リストボックスにA列、D列、G列を表示させるにはどうしたらいいのでしょうか。
例えばコンボボックスで「りんご」を選択したときに、
リストボックスを
りんご 赤 120円
りんご 赤 160円
と表示させたいのですが、
.AddItem Cells(i, 1)
では一列だけしか表示できません。
Rowsorceを使ってみたりしましたが、どうにもうまく出来ませんでした。
よろしくお願いいたします。
