回答編集履歴
2
追記
answer
CHANGED
@@ -41,6 +41,7 @@
|
|
41
41
|
break = True
|
42
42
|
Else
|
43
43
|
Target = Range("B" & cnt).Value
|
44
|
+
' 同じグループ名が既にある場合はコンボに追加しない
|
44
45
|
If AreaGroupComboList.Exists(Target) = False Then
|
45
46
|
AreaGroupComboList.Add Target, Target
|
46
47
|
AreaGroupCombo.AddItem Target
|
@@ -68,6 +69,7 @@
|
|
68
69
|
cnt = 1
|
69
70
|
break = False
|
70
71
|
|
72
|
+
' A列よりB列値に対応する情報のみ市コンボに追加
|
71
73
|
Do While break = False
|
72
74
|
If Range("A" & cnt).Value = "" Then
|
73
75
|
break = True
|
1
修正
answer
CHANGED
@@ -91,4 +91,5 @@
|
|
91
91
|
|
92
92
|
```
|
93
93
|
|
94
|
-
これで、どこに入れてもその時の最新の状態でコンボボックスができあがるはず。
|
94
|
+
これで、どこに入れてもその時の最新の状態でコンボボックスができあがるはず。
|
95
|
+
Dictionaryは個人的に使いやすいためなので、「同じ情報があればスルー」みたいなのができる配列要素であれば何でも構いません。
|