userform의 다중 속성 편집

Question

25 개의 옵션 버튼 (OptionButton1, OptionButton2 등)이있는 userform이 있습니다. 각 버튼의 캡션을 스프레드 시트의 정보로 채 웁니다. 이 작업을 수행하는 데 가장 적합한 코드가 무엇인지 확신 할 수 없습니다.

For x = 1 to 25 
    OptionButton & x & .caption = range("a" & x) 
Next x 

분명히 그게 효과가 없지만 그렇게하고 싶습니다. 어떤 아이디어?

Answer 1

당신은 같은 것을 할 수 있습니다

Private Sub UserForm_Initialize() 
    Dim x As Byte 
    'change Sheet1 to suit 
    With ThisWorkbook.Worksheets("Sheet1") 
     For x = 1 To 25 
      Me.Controls("OptionButton" & x).Caption = .Range("A" & x) 
     Next x 
    End With 
End Sub