回答編集履歴
2
追記
test
CHANGED
|
@@ -84,6 +84,8 @@
|
|
|
84
84
|
|
|
85
85
|
Target = Range("B" & cnt).Value
|
|
86
86
|
|
|
87
|
+
' 同じグループ名が既にある場合はコンボに追加しない
|
|
88
|
+
|
|
87
89
|
If AreaGroupComboList.Exists(Target) = False Then
|
|
88
90
|
|
|
89
91
|
AreaGroupComboList.Add Target, Target
|
|
@@ -138,6 +140,8 @@
|
|
|
138
140
|
|
|
139
141
|
|
|
140
142
|
|
|
143
|
+
' A列よりB列値に対応する情報のみ市コンボに追加
|
|
144
|
+
|
|
141
145
|
Do While break = False
|
|
142
146
|
|
|
143
147
|
If Range("A" & cnt).Value = "" Then
|
1
修正
test
CHANGED
|
@@ -185,3 +185,5 @@
|
|
|
185
185
|
|
|
186
186
|
|
|
187
187
|
これで、どこに入れてもその時の最新の状態でコンボボックスができあがるはず。
|
|
188
|
+
|
|
189
|
+
Dictionaryは個人的に使いやすいためなので、「同じ情報があればスルー」みたいなのができる配列要素であれば何でも構いません。
|