回答編集履歴
1
コード微修正
test
CHANGED
@@ -19,7 +19,7 @@
|
|
19
19
|
OffBtns = Me.ActiveControl.Tag
|
20
20
|
For Each ctl In Me.Controls
|
21
21
|
If ctl.Name Like "btn*" Then
|
22
|
-
ctl.Enabled = (InStr(OffBtns,
|
22
|
+
ctl.Enabled = (InStr(OffBtns, ctl.Caption) = 0)
|
23
23
|
End If
|
24
24
|
Next
|
25
25
|
End Function
|