Loop to Userform의 옵션 버튼이 작동하지 않습니다.

Question

Userform에 여러 옵션 버튼을 만들 필요가 있습니다 (각 요소는 배열 요소 용입니다).

여기에 뭔가가 있습니까? 이 오류를 반환 원인 ..

DefaultTop = 60 

For X = 0 To UBound(ArrPlants) 

    Set Jonas(x) = SAPPlants.Controls.Add("Forms.optionbutton.1", Y, True) 
     'Error on the above line ^^^ 

     With Jonas(x) 
      .Top = DefaultTop + 20 
      .Left = 12 
      .Caption = ArrPlants(x) 
     End With 

Next X 

오류 : 당신이 (가) OptionButton의 이름 대신 Jonas(X)을 사용하여에 X를 통과해야

Error Expected Sub or Procedure

Answer 1

. 아래 시도하고 당신을 위해 작동하는 방법을 참조하십시오

DefaultTop = 60 

Dim Jonas as OptionButton 

For X = 0 To UBound(ArrPlants) 

    Set Jonas = SAPPlants.Controls.Add("Forms.optionbutton." & X + 1, Y, True) 

     With Jonas 
      .Top = DefaultTop + 20 
      .Left = 12 
      .Caption = ArrPlants(X) 
     End With 

Next X 

또한 설명 found here :