| |
▼YU さん 今日は
とりあえず
>ListBoxは一個なんですが、
>ListBoxに入れたい値が10列分あるんです。
この部分は、これでできると思います。
Private Sub CommandButton1_Click()
Dim A As Range
Dim MyRange As Range
Dim MaxRow As Long, Listmax As Long, i As Long
Dim wsNmae As String
wsNmae = 一覧"
MaxRow = Worksheets(wsNmae).Range("A65536").End(xlUp).Row
Set MyRange = Worksheets(wsNmae).Range("A2:A" & MaxRow)
ListBox1.ColumnCount = 10 'ListBox1の列は10列にする
For Each A In MyRange
If A.Text = TextBox1.Text Then
ListBox1.AddItem A.Text 'A列
For i = 1 To 9
ListBox1.List(ListBox1.ListCount - 1, i) = A.Offset(, i).Text 'i番目の列
Next
End If
Next
ListBox1.TextColumn = 1 '選択されたら1列目を表示する
'選択されたとき何列目を表示させるのか分からないので、
'１列目にしています。
'For r = 1 To MemberCount
' TextBox1.Text = MyColl(r).Value '<------したいことがよく分からない???
'Next r
End Sub
|
|
kobasan
- 05/8/1(月) 16:48 -
