可以通过以下步骤实现:
Sub ChangeOptionButtonNames()
Dim optButton As OptionButton
Dim i As Integer
i = 1 ' 设置起始数字
For Each optButton In ActiveSheet.OptionButtons
optButton.Caption = "选项按钮" & i ' 更改选项按钮名称
i = i + 1 ' 增加数字
Next optButton
End Sub
这个方法可以帮助你批量更改选项按钮的名称,特别适用于需要大量选项按钮的情况,例如问卷调查或多选题等场景。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云