回答編集履歴
2
修正漏れ：WorkBook_Open内の[ Bpca_ShLbl_Left , Bpca_ShLbl_Right ]の ShLbl を ShChk に修正
test
CHANGED
|
@@ -72,9 +72,9 @@
|
|
|
72
72
|
|
|
73
73
|
|
|
74
74
|
|
|
75
|
-
Bpca_Sh
|
|
75
|
+
Bpca_ShChk_Left.Rgst BPCA_Change
|
|
76
76
|
|
|
77
|
-
Bpca_Sh
|
|
77
|
+
Bpca_ShChk_Right.Rgst BPCA_Change
|
|
78
78
|
|
|
79
79
|
End Sub
|
|
80
80
|
|
1
式の一部修正
test
CHANGED
|
@@ -56,7 +56,7 @@
|
|
|
56
56
|
|
|
57
57
|
For j = 1 To 44
|
|
58
58
|
|
|
59
|
-
Bpca_ShChk_Left.Add .OLEObjects("CheckBox" & (j +44)).Object
|
|
59
|
+
Bpca_ShChk_Left.Add .OLEObjects("CheckBox" & (j + 44)).Object
|
|
60
60
|
|
|
61
61
|
Bpca_ShChk_Right.Add .OLEObjects("CheckBox" & j).Object
|
|
62
62
|
|