回答編集履歴
2
コード修正
test
CHANGED
@@ -54,14 +54,6 @@
|
|
54
54
|
|
55
55
|
|
56
56
|
|
57
|
-
Private Sub ComboBox1_Change()
|
58
|
-
|
59
|
-
Debug.Print ComboBox1.Text
|
60
|
-
|
61
|
-
End Sub
|
62
|
-
|
63
|
-
|
64
|
-
|
65
57
|
Private Sub ComboBox2_AfterUpdate()
|
66
58
|
|
67
59
|
Dim dicList2 As Dictionary
|
@@ -84,8 +76,6 @@
|
|
84
76
|
|
85
77
|
|
86
78
|
|
87
|
-
|
88
|
-
|
89
79
|
Private Sub UserForm_Initialize()
|
90
80
|
|
91
81
|
Dim aryData()
|
@@ -96,13 +86,9 @@
|
|
96
86
|
|
97
87
|
End With
|
98
88
|
|
99
|
-
|
100
|
-
|
101
89
|
|
102
90
|
|
103
|
-
Set dicList = New Dictionary
|
91
|
+
Set dicList = New Dictionary
|
104
|
-
|
105
|
-
|
106
92
|
|
107
93
|
Dim i As Long
|
108
94
|
|
@@ -134,9 +120,7 @@
|
|
134
120
|
|
135
121
|
End If
|
136
122
|
|
137
|
-
dicList3(CStr(aryData(i, 3))) = aryData(i, 3)
|
123
|
+
dicList3(CStr(aryData(i, 3))) = aryData(i, 3)
|
138
|
-
|
139
|
-
|
140
124
|
|
141
125
|
Set dicList2(CStr(aryData(i, 2))) = dicList3
|
142
126
|
|
1
説明の改善
test
CHANGED
@@ -14,7 +14,7 @@
|
|
14
14
|
|
15
15
|
|
16
16
|
|
17
|
-
ComboBox1、ComboBox2のAfterUpdateイベントでは、入れ子構造のDictionaryから
|
17
|
+
ComboBox1、ComboBox2のAfterUpdateイベントでは、入れ子構造のDictionaryからリストデータを取り出してコンボボックスのListに代入すればいいだけになります。
|
18
18
|
|
19
19
|
|
20
20
|
|