回答編集履歴

2

コード修正

2020/10/11 15:46

投稿

hatena19
hatena19

スコア34075

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

説明の改善

2020/10/11 15:46

投稿

hatena19
hatena19

スコア34075

test CHANGED
@@ -14,7 +14,7 @@
14
14
 
15
15
 
16
16
 
17
- ComboBox1、ComboBox2のAfterUpdateイベントでは、入れ子構造のDictionaryから簡単にリストデータを取り出してコンボボックスのListに代入すればいいだけになります。
17
+ ComboBox1、ComboBox2のAfterUpdateイベントでは、入れ子構造のDictionaryからリストデータを取り出してコンボボックスのListに代入すればいいだけになります。
18
18
 
19
19
 
20
20