我编写了一个代码,用于单击一次即可重新设置所有选项按钮,但它给出了错误“对象不支持属性或事项”。
Sub Add_New_Record()
Dim i As Integer
For i = 1 To 30
With Sheets("Form")
'-- unlock the worksheet
.Unprotect
.OptionButton(i).Value = False
'-- lock the worksheet
'.Protect
.Activate
.Range("Q12").Select
End With
Next i
End Sub
任何人都可以建议我如何修复代码并使所有选项按钮的值均为“假”。
我知道如何单独完成,例如:
Sub Add_New_Record()
With Sheets("Form")
'-- unlock the worksheet
.Unprotect
.OptionButton1.Value = False
'-- lock the worksheet
'.Protect
.Activate
.Range("Q12").Select
End With
End Sub
但由于按钮太多,代码会变得很长而且效率低下。
感谢您的帮助和时间。
首先,With
声明应该在For
环形。它应该是.OptionButtons
。试试这个。
Sub Add_New_Record()
Dim i As Integer
With Sheets("Form")
.Unprotect
For i = 1 To 30
.OptionButtons(i).Value = False
Next i
.Protect
End With
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)