回答編集履歴
2
修正漏れ：WorkBook_Open内の[ Bpca_ShLbl_Left , Bpca_ShLbl_Right ]の ShLbl を ShChk に修正
answer
CHANGED
|
@@ -35,8 +35,8 @@
|
|
|
35
35
|
Next j
|
|
36
36
|
End With
|
|
37
37
|
|
|
38
|
-
|
|
38
|
+
Bpca_ShChk_Left.Rgst BPCA_Change
|
|
39
|
-
|
|
39
|
+
Bpca_ShChk_Right.Rgst BPCA_Change
|
|
40
40
|
End Sub
|
|
41
41
|
|
|
42
42
|
'---------------------------------------------------------
|
1
式の一部修正
answer
CHANGED
|
@@ -27,7 +27,7 @@
|
|
|
27
27
|
' [ ワークシート.OLEObjects(コントロール名).Object ]のスタイルで指定します
|
|
28
28
|
With Worksheets("Sheet1")
|
|
29
29
|
For j = 1 To 44
|
|
30
|
-
Bpca_ShChk_Left.Add .OLEObjects("CheckBox" & (j +44)).Object
|
|
30
|
+
Bpca_ShChk_Left.Add .OLEObjects("CheckBox" & (j + 44)).Object
|
|
31
31
|
Bpca_ShChk_Right.Add .OLEObjects("CheckBox" & j).Object
|
|
32
32
|
|
|
33
33
|
'この設定により左(45-88)/右(1-44)のチェックボックスの
|