ник: Кабан
например
если значений только 12
то можно сконкатентить их в строку с разделителем "|"
а потом вычитывать, оббращаясь по индексу
?split("a|b|c|d","|")(0)
a
или через массив
?array("a","b","c","d")(0)
a
еще можно через коллекции
в хелпе все есть :)
Sub x()
'1. если присвоить списко значений в виде строки
m = "AW|QS|GH"
'массив значений
sm = Split(m, "|")
'если есть значения
If UBound(sm) Then
'вывести первый элемент
Debug.Print sm(0)
End If
'2. через массив
' инициализация массива размерностью 12 текстовых элементов
ReDim a(12) As String
'присвоить значения
a(0) = "AW"
a(1) = "QS"
a(2) = "GH"
'получить значения
Debug.Print a(0)
Debug.Print a(1)
Debug.Print a(2)
End Sub
|