回答編集履歴
1
コードの修正
test
CHANGED
|
@@ -50,7 +50,9 @@
|
|
|
50
50
|
|
|
51
51
|
'Dictionary生成
|
|
52
52
|
|
|
53
|
-
Set dicList = CreateObject("Scripting.Dictionary")
|
|
53
|
+
Set dicList = CreateObject("Scripting.Dictionary")
|
|
54
|
+
|
|
55
|
+
|
|
54
56
|
|
|
55
57
|
'シート「一覧」のリストを配列に格納
|
|
56
58
|
|
|
@@ -88,11 +90,13 @@
|
|
|
88
90
|
|
|
89
91
|
Private Sub cbArea_Change()
|
|
90
92
|
|
|
91
|
-
|
|
93
|
+
Me.cbCity.Text = ""
|
|
92
94
|
|
|
93
|
-
'
|
|
95
|
+
'dicListより選択した地域に対応するItem(カンマ区切りの市町村リスト)を
|
|
94
96
|
|
|
97
|
+
'取得して、Splitで配列にして cbCity.List に設定
|
|
98
|
+
|
|
95
|
-
Me.cbCity.List = Split(dicList(Me.cbArea.
|
|
99
|
+
Me.cbCity.List = Split(dicList(Me.cbArea.Text), ",")
|
|
96
100
|
|
|
97
101
|
End Sub
|
|
98
102
|
|