选择题模板的批量设置问题

希望123456

根据论坛大佬的帮助，我优化了代码，现在还有一个问题要解决，就是多个Optionbutton的caption属性如何批量赋值？如果一个一个复制粘贴就很繁琐了。附件已经上传了，欢迎各位大佬批评指正修改！

希望123456

没人解决我的问题吗？

sogo777

参考

1. Sub 批量设置OptionButtonCaption()
   
2.     Dim optButton As OptionButton
   
3.     Dim i As Integer
   
4.     Dim captions() As String
   
5.    
   
6.     ' 定义要赋值的Caption数组，按照OptionButton的顺序排列
   
7.     captions = Array("选项1", "选项2", "选项3", "选项4") ' 根据需要进行修改
   
8.    
   
9.     ' 循环遍历每个OptionButton
   
10.     For i = 1 To captions.Length
    
11.         Set optButton = Me.Controls("OptionButton" & i)
    
12.         If Not optButton Is Nothing Then
    
13.             optButton.Caption = captions(i - 1)
    
14.         End If
    
15.     Next i
    
16. End Sub
    

复制代码

希望123456

sogo777 发表于 2023-5-25 11:07
参考

好的，这个得试试，你这个代码试过了吗？我改天把这个代码测试一下！