조건부로 변수 이름 수정

Question

안녕하세요 저는 VBA 프로그래밍을 처음 사용합니다. txtDept1, txtDept2 및 txtDept3이라는 레이블이 붙은 텍스트 상자가 있습니다. 내가 정수 (K)에

Private Sub test() 
Dim txtDept1, txtDept2, txtDept3, Testval As String 
Dim k As Integer 
txtDept1 = "Chem" 
txtDept2 = "Biol" 
txtDept3 = "Phys" 
k = 1 
Testval = Evaluate("txtDept" & CStr(k)) 
MsgBox (Testval) 
End Sub 

Answer 1

을 조건 선택하려는 대신 배열 사용을 고려할 수 있습니다

Option Base 1 

Private Sub test() 

Dim txtDept As Variant, Testval As String 
Dim k As Integer 

txtDept = Array("Chem", "Biol", "Phys") 

k = 1   'the first from the above array elements 

Testval = txtDept(k) 

MsgBox (Testval) 

End Sub 

_{중요 :로 위의 Option Base 1을 포함하는 것을 잊지 마십시오 코드를 복사 할 때 이는 VBA가 일반적으로 0부터 시작하는 배열의 요소를 계산하기 때문입니다. 따라서 0은 (귀하의 경우) Chem 및 Biol이 1이 될 것입니다. Option Base 1을 사용하면 VBA에 1로 계산을 시작하라는 메시지가 표시됩니다 올바른 결과를 얻을 수 있습니다.}