VBA에서 정수 변수의 이름과 동일한 이름을 가진 텍스트 변수의 값을 가져 오는 방법은 무엇입니까?

Question

일부 값을 얻는 사용자 형식이 있습니다 ... 그리고 나는 텍스트 상자를 통해 얻는 theses 변수의 값을 얻기 위해 루프를 사용하려고하므로 다른 변수 (텍스트)를 통해 변수의 값을 얻으려고합니다. 숫자 변수의 이름이 같아야합니다. 누구든지 나를 도와 줄 수 있습니까? 내 변수의 예는 다음과 같습니다 amountfra11a, amountfra12a (이 내 텍스트 상자의 이름이다)

코드 다음과

Private Sub OKTESTE_Click() 

    Dim b As Integer 


For i = 1 To 1 

    a = "amountfra1" & i & "a.value" 
    b = CInt(a) 


    If b = 10 Then 
     c = d 
    End If 

Next 

최종 하위

Answer 1

당신이 얻을 수있는 texbox 값을 통해를 사용자 폼의 Controls 컬렉션 :

Private Sub OKTESTE_Click() 
    Dim i, nm, a 
    For i = 11 To 12 'for example 
     nm = "amountfra" & i & "a" 
     a = Me.Controls(nm).Text 
     MsgBox nm & " = " & a 
    Next 

End Sub