teratail
回答率
85.37%
teratail 10th-anniversary
teratail 10th-anniversary
質問するログイン新規登録
トップVBAに関する質問VBA 複数のCheckBoxの組み合みせについて

編集履歴

回答編集履歴

8

こちらかがいいかも

2020/05/04 23:16

投稿

退会済みユーザー
test CHANGED
@@ -222,6 +222,10 @@
222
222
 
223
223
  Listboxで作るとこんな感じでしょうか・・・・。
224
224
 
225
+ コードはコンボがリストボックスに
226
+
227
+ なっただけでほぼ同じです。
228
+
225
229
 
226
230
 
227
231
  ![Listbox](5a04ba6fc3866767ce800c3ddae2e848.png)

7

こちらかがいいかも

2020/05/04 23:16

投稿

退会済みユーザー
test CHANGED
@@ -218,6 +218,16 @@
218
218
 
219
219
  ```
220
220
 
221
+
222
+
223
+ Listboxで作るとこんな感じでしょうか・・・・。
224
+
225
+
226
+
227
+ ![Listbox](5a04ba6fc3866767ce800c3ddae2e848.png)
228
+
229
+
230
+
221
231
  ＜初回の投稿＞
222
232
 
223
233
  拝見しました。チェックボックスの組み合わせですがチェックボックスは複数選択が可能なので

6

こちらかがいいかも

2020/05/04 15:35

投稿

退会済みユーザー
test CHANGED
@@ -1,6 +1,8 @@
1
1
  こんばんは。少し強引ですがコンボボックスの連動のみCollectionを使って作ってみました。
2
2
 
3
+ あまり時間をかけれずコードが汚いので、調整をお願いします。
4
+
3
- 今回は、オートフィルターのデータ集計方法はふれていません。
5
+ また。今回は、オートフィルターのデータ集計方法はふれていません。
4
6
 
5
7
 
6
8
 
@@ -16,7 +18,13 @@
16
18
 
17
19
  Userform1
18
20
 
19
- Combobox1,Combobox2,Combobox3
21
+ Combobox1:商品名
22
+
23
+ Combobox2:サイズ
24
+
25
+ Combobox3:産地
26
+
27
+
20
28
 
21
29
 
22
30
 

5

こちらかがいいかも

2020/05/04 15:04

投稿

退会済みユーザー
test CHANGED
@@ -1,8 +1,8 @@
1
- こんばんは。少し強引ですがコンボボックスの連動部分のみ
1
+ こんばんは。少し強引ですがコンボボックスの連動のみCollectionを使って作ってみました。
2
-
2
+
3
- 入力フォームをCollectionを使って作ってみました。
3
+ 今回は、オートフィルターのデータ集計方法はふれていません。
4
-
5
- まずは、コードを上げさせていただきます。
4
+
5
+
6
6
 
7
7
 
8
8
 
@@ -14,6 +14,10 @@
14
14
 
15
15
  セルA列～D列
16
16
 
17
+ Userform1
18
+
19
+ Combobox1,Combobox2,Combobox3
20
+
17
21
 
18
22
 
19
23
  ```VBA

4

こちらかがいいかも

2020/05/04 15:00

投稿

退会済みユーザー
test CHANGED
File without changes

3

こちらかがいいかも

2020/05/04 14:53

投稿

退会済みユーザー
test CHANGED
@@ -1,9 +1,21 @@
1
+ こんばんは。少し強引ですがコンボボックスの連動部分のみ
2
+
1
- こんばんは。少し強引ですがCollectionを使って作ってみました。
3
+ 入力フォームをCollectionを使って作ってみました。
2
4
 
3
5
  まずは、コードを上げさせていただきます。
4
6
 
5
7
 
6
8
 
9
+ ![コンボボックスの連動](7b09ad60e2fabab5de89f061a591805e.png)
10
+
11
+
12
+
13
+ メインシート：master
14
+
15
+ セルA列～D列
16
+
17
+
18
+
7
19
  ```VBA
8
20
 
9
21
  Private Sub ComboBox2_Change()

2

こちらかがいいかも

2020/05/04 14:53

投稿

退会済みユーザー
test CHANGED
@@ -194,6 +194,8 @@
194
194
 
195
195
  ```
196
196
 
197
+ ＜初回の投稿＞
198
+
197
199
  拝見しました。チェックボックスの組み合わせですがチェックボックスは複数選択が可能なので
198
200
 
199
201
  現実的ではないような気がします。

1

こちらかがいいかも

2020/05/04 14:45

投稿

退会済みユーザー
test CHANGED
@@ -1,3 +1,199 @@
1
+ こんばんは。少し強引ですがCollectionを使って作ってみました。
2
+
3
+ まずは、コードを上げさせていただきます。
4
+
5
+
6
+
7
+ ```VBA
8
+
9
+ Private Sub ComboBox2_Change()
10
+
11
+
12
+
13
+ Dim MyData3 As New Collection
14
+
15
+ Dim cnt3 As Long
16
+
17
+ Dim i3 As Long
18
+
19
+
20
+
21
+
22
+
23
+ cnt3 = Sheets("master").Range("A1").CurrentRegion.Rows.Count
24
+
25
+
26
+
27
+ 商品名 = ComboBox1.Text
28
+
29
+ サイズ = ComboBox2.Text
30
+
31
+
32
+
33
+ ComboBox3.Clear
34
+
35
+
36
+
37
+ On Error Resume Next
38
+
39
+ For i3 = 2 To cnt3
40
+
41
+
42
+
43
+ If Sheets("master").Range("B" & i3).Value = 商品名 Then
44
+
45
+
46
+
47
+ If Sheets("master").Range("C" & i3).Value = サイズ Then
48
+
49
+ MyData3.Add Sheets("master").Range("D" & i3).Value, Sheets("master").Range("D" & i3).Value
50
+
51
+ End If
52
+
53
+ End If
54
+
55
+
56
+
57
+ Next i3
58
+
59
+ On Error GoTo 0
60
+
61
+
62
+
63
+ For i3 = 1 To MyData3.Count
64
+
65
+
66
+
67
+ ComboBox3.AddItem MyData3(i3)
68
+
69
+ Next
70
+
71
+
72
+
73
+
74
+
75
+ End Sub
76
+
77
+ Private Sub ComboBox1_Change()
78
+
79
+ Dim MyData2 As New Collection
80
+
81
+ Dim cnt2 As Long
82
+
83
+ Dim i2 As Long
84
+
85
+
86
+
87
+
88
+
89
+ cnt2 = Sheets("master").Range("A1").CurrentRegion.Rows.Count
90
+
91
+
92
+
93
+ 商品名 = ComboBox1.Text
94
+
95
+
96
+
97
+ ComboBox2.Clear
98
+
99
+
100
+
101
+ '■重複しない商品名のリストを作成（エラーを無視）
102
+
103
+ On Error Resume Next
104
+
105
+ For i2 = 2 To cnt2
106
+
107
+
108
+
109
+ If Sheets("master").Range("B" & i2).Value = 商品名 Then
110
+
111
+
112
+
113
+ MyData2.Add Sheets("master").Range("C" & i2).Value, Sheets("master").Range("C" & i2).Value
114
+
115
+ End If
116
+
117
+
118
+
119
+ Next i2
120
+
121
+ On Error GoTo 0
122
+
123
+
124
+
125
+ '■商品名のリストを作成
126
+
127
+
128
+
129
+ For i2 = 1 To MyData2.Count
130
+
131
+
132
+
133
+ ComboBox2.AddItem MyData2(i2)
134
+
135
+ Next
136
+
137
+
138
+
139
+
140
+
141
+ End Sub
142
+
143
+
144
+
145
+ Private Sub UserForm_Initialize()
146
+
147
+ Dim MyData1 As New Collection
148
+
149
+
150
+
151
+ Dim cnt As Long
152
+
153
+ Dim i As Long
154
+
155
+
156
+
157
+ cnt = Sheets("master").Range("A1").CurrentRegion.Rows.Count
158
+
159
+
160
+
161
+ '■重複しない商品名のリストを作成（エラーを無視）
162
+
163
+ On Error Resume Next
164
+
165
+ For i = 2 To cnt
166
+
167
+
168
+
169
+ MyData1.Add Sheets("master").Range("B" & i).Value, Sheets("master").Range("B" & i).Value
170
+
171
+
172
+
173
+ Next i
174
+
175
+ On Error GoTo 0
176
+
177
+
178
+
179
+ '■商品名のリストを作成
180
+
181
+
182
+
183
+ For i = 1 To MyData1.Count
184
+
185
+
186
+
187
+ ComboBox1.AddItem MyData1(i)
188
+
189
+ Next
190
+
191
+
192
+
193
+ End Sub
194
+
195
+ ```
196
+
1
197
  拝見しました。チェックボックスの組み合わせですがチェックボックスは複数選択が可能なので
2
198
 
3
199
  現実的ではないような気がします。
@@ -6,8 +202,6 @@
6
202
 
7
203
  他の記事ではコンボボックスが連動するように作られているようです。
8
204
 
9
-
10
-
11
205
  [Excel VBA 複数(2つ)のコンボボックスに連動するリストを登録する](https://officedic.com/excel-vba-howto-combobox-2lists/)
12
206
 
13
207