回答編集履歴
2
コードの間違い修正
test
CHANGED
@@ -214,24 +214,28 @@
|
|
214
214
|
|
215
215
|
Dim i As Integer
|
216
216
|
|
217
|
-
|
217
|
+
|
218
|
-
|
219
|
-
|
220
218
|
|
221
219
|
With Worksheets("Sheet1")
|
222
220
|
|
221
|
+
Set SelBtnGrp(0) = New SelectButtonGroup
|
222
|
+
|
223
223
|
For i = 1 To 5
|
224
224
|
|
225
225
|
SelBtnGrp(0).Add .OLEObjects("CommandButton" & i).Object
|
226
226
|
|
227
227
|
Next
|
228
228
|
|
229
|
+
Set SelBtnGrp(1) = New SelectButtonGroup
|
230
|
+
|
229
231
|
For i = 6 To 8
|
230
232
|
|
231
233
|
SelBtnGrp(1).Add .OLEObjects("CommandButton" & i).Object
|
232
234
|
|
233
235
|
Next
|
234
236
|
|
237
|
+
Set SelBtnGrp(2) = New SelectButtonGroup
|
238
|
+
|
235
239
|
For i = 9 To 10
|
236
240
|
|
237
241
|
SelBtnGrp(2).Add .OLEObjects("CommandButton" & i).Object
|
@@ -242,6 +246,8 @@
|
|
242
246
|
|
243
247
|
With Worksheets("Sheet2")
|
244
248
|
|
249
|
+
Set SelBtnGrp(3) = New SelectButtonGroup
|
250
|
+
|
245
251
|
For i = 1 To 5
|
246
252
|
|
247
253
|
SelBtnGrp(3).Add .OLEObjects("CommandButton" & i).Object
|
1
コードの修正
test
CHANGED
@@ -178,7 +178,11 @@
|
|
178
178
|
|
179
179
|
Sheet1 に、CommandButton1 ~ 10 の10個のコマンドボタンがあり、
|
180
180
|
|
181
|
-
1 ~ 5, 6 ~ 8, 9 ~ 10 の3グループに分ける
|
181
|
+
1 ~ 5, 6 ~ 8, 9 ~ 10 の3グループに分ける、
|
182
|
+
|
183
|
+
Sheet2 に、CommandButton1 ~ 5 がありすべて一つのグループにする、
|
184
|
+
|
185
|
+
場合のコード例
|
182
186
|
|
183
187
|
|
184
188
|
|
@@ -188,7 +192,7 @@
|
|
188
192
|
|
189
193
|
Option Explicit
|
190
194
|
|
191
|
-
Private SelBtnGrp(
|
195
|
+
Private SelBtnGrp(3) As SelectButtonGroup
|
192
196
|
|
193
197
|
|
194
198
|
|
@@ -196,6 +200,12 @@
|
|
196
200
|
|
197
201
|
Set SelBtnGrp(0) = Nothing
|
198
202
|
|
203
|
+
Set SelBtnGrp(1) = Nothing
|
204
|
+
|
205
|
+
Set SelBtnGrp(2) = Nothing
|
206
|
+
|
207
|
+
Set SelBtnGrp(3) = Nothing
|
208
|
+
|
199
209
|
End Sub
|
200
210
|
|
201
211
|
|
@@ -224,12 +234,22 @@
|
|
224
234
|
|
225
235
|
For i = 9 To 10
|
226
236
|
|
227
|
-
SelBtnGrp(
|
237
|
+
SelBtnGrp(2).Add .OLEObjects("CommandButton" & i).Object
|
228
238
|
|
229
239
|
Next
|
230
240
|
|
231
241
|
End With
|
232
242
|
|
243
|
+
With Worksheets("Sheet2")
|
244
|
+
|
245
|
+
For i = 1 To 5
|
246
|
+
|
247
|
+
SelBtnGrp(3).Add .OLEObjects("CommandButton" & i).Object
|
248
|
+
|
249
|
+
Next
|
250
|
+
|
251
|
+
End With
|
252
|
+
|
233
253
|
End Sub
|
234
254
|
|
235
255
|
```
|