Объявление массива данных

Пользователь

Сообщений: 27 Регистрация: 01.01.1970

16.05.2011 07:21:42

Здравствуйте.
Возможно ли как-то объявить массив данных и сразу присвоить ему значения, чтобы к нему можно было обратиться из любой формы, модуля, что-то вроде:
Public const arr1 = Array("а", "б", "в")
чтобы потом можно было использовать arr1(i)?
Спасибо.

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 16.05.2011 07:52:21 Я бы сделал так (в стандартном модуле): Public Function arr1() arr1 = Array("а", "б", "в") End Function Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Diana Ch. Tailor Пользователь Сообщений: 27 Регистрация: 01.01.1970	#3 16.05.2011 07:55:36 EducatedFool, спасибо, разбираюсь :)

Guest Гость	#4 16.05.2011 09:06:27 Как вариант:) Public strS = "а б в" arr1 = split(strS) обращаться можно сразу, только помнить что нижняя граница массива созданного через split=0 k = split(strS)(i) игорь67

Hugo

Пользователь

Сообщений: 26341 Регистрация: 22.12.2012

16.05.2011 09:44:35

Другой вариант - в модуль
Public arr2

На открытие книги или выполнить один раз перед использование массива:
Sub tt()
arr2 = Array("г", "д", "е")
End Sub

Затем в любом месте:
Sub ttt()
Dim i
For i = 0 To 2
Debug.Print arr2(i)
Next
End Sub

В этом случае массив не будет заполняться заново каждый раз при обращении к нему, как с функцией. Если массив большой и обращений много - я бы сделал так.

Diana Ch. Tailor Пользователь Сообщений: 27 Регистрация: 01.01.1970	#6 16.05.2011 10:17:47 Спасибо большое за помощь, теперь стало ясно :)

Читают тему