изменить имя переменной условно

Question

Привет, я новичок в программировании vba. У меня есть три текстовых поля с меткой txtDept1, txtDept2 и txtDept3. что я хочу, чтобы выбрать обусловливаться целочисленного (к)

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 и вы получите правильный результат.}