VBA リストボックスについて
VBA初心者です。どうぞよろしくお願いします。
ユーザーフォームにタブつきのリストボックスを作りたいと思っています。
リストはsheet1の中にあります。
A B C D・・・
1 NO 品名 売場
2 1 いちご 果物
3 2 みかん 果物
4 3 もも 果物
5 4 ハクサイ 野菜
6 5 キャベツ 野菜
7 6 きゅうり 野菜
8 7
9
果物のタブには、果物の品名が表示される。
1 いちご
2 みかん
3 もも
野菜のタブには、野菜の品名が表示される。
4 ハクサイ
5 キャベツ
6 きゅうり
青果のタブには、果物、野菜が表示される。
1 いちご
2 みかん
3 もも
4 ハクサイ
5 キャベツ
6 きゅうり
本を見ながら格闘しておりますが、きっと的違いで滅茶苦茶なことをしているのだと思います。
どうにも出来ず困っております。どなたか教えていただけないでしょうか。よろしくお願いします。
Private Sub UserForm_Initialize()
Dim LastRow As Long
Dim i As Integer
Dim ListBoxNo As Integer
Dim ListBox As Control
Dim Listtabu(3) As Long 'タブの数
For i = 1 To 3
Listtabu(i) = 0
Next i
Worksheets("sheet1").Activate
With Worksheets("sheet1")
LastRow = .Range("A65536").End(xlUp).Row
For i = 2 To LastRow
If Worksheets("sheet1").Range(Cells(i, 3)) = "果物" Then
ListBoxNo = 1
Set ListBox = 果物
果物.List = Worksheets("sheet1").Range(Cells(i, 1), Cells(i, 2)).Value
End If
If Worksheets("sheet1").Range(Cells(i, 3)) = "野菜" Then
ListBoxNo = 2
Set ListBox = 野菜
野菜.List = Worksheets("sheet1").Range(Cells(i, 1), Cells(i, 2)).Value
End If
If Worksheets("sheet1").Range(Cells(i, 3)) = "果物" & "野菜" Then
ListBoxNo = 3
Set ListBox = 青果
青果.List = Worksheets("sheet1").Range(Cells(i, 1), Cells(i, 2)).Value
End If
ListBox.AddItem
ListBox.List(Listtabu(LstBxNo), 0) = Worksheets("sheet1").Cells(i, 1).Value
ListBox.List(Listtabu(LstBxNo), 1) = Worksheets("sheet1").Cells(i, 2).Value
Listtabu(LstBxNo) = Listtabu(LstBxNo) + 1
Next
End With
End Sub
