teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

追記

2018/05/14 06:50

投稿

m.ts10806
m.ts10806

スコア80888

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

修正

2018/05/14 06:49

投稿

m.ts10806
m.ts10806

スコア80888

answer CHANGED
@@ -91,4 +91,5 @@
91
91
 
92
92
  ```
93
93
 
94
- これで、どこに入れてもその時の最新の状態でコンボボックスができあがるはず。
94
+ これで、どこに入れてもその時の最新の状態でコンボボックスができあがるはず。
95
+ Dictionaryは個人的に使いやすいためなので、「同じ情報があればスルー」みたいなのができる配列要素であれば何でも構いません。