回答編集履歴
2
コードの間違い修正
answer
CHANGED
|
@@ -106,20 +106,23 @@
|
|
|
106
106
|
|
|
107
107
|
Private Sub Workbook_Open()
|
|
108
108
|
Dim i As Integer
|
|
109
|
-
|
|
109
|
+
|
|
110
|
-
|
|
111
110
|
With Worksheets("Sheet1")
|
|
111
|
+
Set SelBtnGrp(0) = New SelectButtonGroup
|
|
112
112
|
For i = 1 To 5
|
|
113
113
|
SelBtnGrp(0).Add .OLEObjects("CommandButton" & i).Object
|
|
114
114
|
Next
|
|
115
|
+
Set SelBtnGrp(1) = New SelectButtonGroup
|
|
115
116
|
For i = 6 To 8
|
|
116
117
|
SelBtnGrp(1).Add .OLEObjects("CommandButton" & i).Object
|
|
117
118
|
Next
|
|
119
|
+
Set SelBtnGrp(2) = New SelectButtonGroup
|
|
118
120
|
For i = 9 To 10
|
|
119
121
|
SelBtnGrp(2).Add .OLEObjects("CommandButton" & i).Object
|
|
120
122
|
Next
|
|
121
123
|
End With
|
|
122
124
|
With Worksheets("Sheet2")
|
|
125
|
+
Set SelBtnGrp(3) = New SelectButtonGroup
|
|
123
126
|
For i = 1 To 5
|
|
124
127
|
SelBtnGrp(3).Add .OLEObjects("CommandButton" & i).Object
|
|
125
128
|
Next
|
1
コードの修正
answer
CHANGED
|
@@ -88,15 +88,20 @@
|
|
|
88
88
|
```
|
|
89
89
|
|
|
90
90
|
Sheet1 に、CommandButton1 ～ 10 の10個のコマンドボタンがあり、
|
|
91
|
-
1 ～ 5, 6 ～ 8, 9 ～ 10 の３グループに分ける
|
|
91
|
+
1 ～ 5, 6 ～ 8, 9 ～ 10 の３グループに分ける、
|
|
92
|
+
Sheet2 に、CommandButton1 ～ 5 がありすべて一つのグループにする、
|
|
93
|
+
場合のコード例
|
|
92
94
|
|
|
93
95
|
ThisWorkBookモジュール
|
|
94
96
|
```
|
|
95
97
|
Option Explicit
|
|
96
|
-
Private SelBtnGrp(
|
|
98
|
+
Private SelBtnGrp(3) As SelectButtonGroup
|
|
97
99
|
|
|
98
100
|
Private Sub Workbook_BeforeClose(Cancel As Boolean)
|
|
99
101
|
Set SelBtnGrp(0) = Nothing
|
|
102
|
+
Set SelBtnGrp(1) = Nothing
|
|
103
|
+
Set SelBtnGrp(2) = Nothing
|
|
104
|
+
Set SelBtnGrp(3) = Nothing
|
|
100
105
|
End Sub
|
|
101
106
|
|
|
102
107
|
Private Sub Workbook_Open()
|
|
@@ -111,9 +116,14 @@
|
|
|
111
116
|
SelBtnGrp(1).Add .OLEObjects("CommandButton" & i).Object
|
|
112
117
|
Next
|
|
113
118
|
For i = 9 To 10
|
|
114
|
-
SelBtnGrp(
|
|
119
|
+
SelBtnGrp(2).Add .OLEObjects("CommandButton" & i).Object
|
|
115
120
|
Next
|
|
116
121
|
End With
|
|
122
|
+
With Worksheets("Sheet2")
|
|
123
|
+
For i = 1 To 5
|
|
124
|
+
SelBtnGrp(3).Add .OLEObjects("CommandButton" & i).Object
|
|
125
|
+
Next
|
|
126
|
+
End With
|
|
117
127
|
End Sub
|
|
118
128
|
```
|
|
119
129
|
|