Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Глобальный массив констант / 8 сообщений из 8, страница 1 из 1
12.11.2007, 14:24:46
    #34932340
sqrk
sqrk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глобальный массив констант
Добрый день, знатоки!

Принципиально мне надо сделать так

Public Const gc As String = Array("A", "C", "D", "E", "F", "G", "H", "I", "J").

Но excel на такую контсрукцию ругается (констуркция размещена в пользовательском модуле). Как можно реализовать такую конструкцию?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2007, 16:36:21
    #34933011
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глобальный массив констант
убери точку справа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2007, 17:35:29
    #34933276
sqrk
sqrk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глобальный массив констант
Точка не из excel'я. Она конец предложения в форуме показывает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2007, 17:59:37
    #34933378
LETME
LETME
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глобальный массив констант
Если нажать справку по этой ошибке, то можно прочитать следующее:
Код: plaintext
1.
2.
...You tried to declare an array using a variable to specify the number of elements. 
To declare a dynamic array within a procedure, declare the array with ReDim and specify the number of elements with a variable.

Думаю не случится катастрофы, если объявить массив не через константу...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2007, 15:44:16
    #34935797
sqrk
sqrk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глобальный массив констант
Константа хороша тем, что ее инициализация происходит сразу. Мне это и нужно. У меня нет специальной процедуры инициализации и не хотелось бы ее делать, потому как в логику не вкладываеться слегка.

Так нельзя чтоли объявить константный массив?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2007, 17:50:18
    #34936319
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глобальный массив констант
массив констант не получится сделать. ну, а если содержимое примерно такое, как в примере, то сделай константой "ABCDEF..." и обращайся, типа, MID(gc, i, 1)

или сделай

Код: plaintext
1.
2.
3.
4.
Public Const gc As String = "A,C,D,E,F,G,H,I,J"

...
DIM gcA() as String
gcA=split(gc, ",")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2007, 09:42:05
    #34937253
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глобальный массив констант
vbaproмассив констант не получится сделать. ну, а если содержимое примерно такое, как в примере, то сделай константой "ABCDEF..." и обращайся, типа, MID(gc, i, 1)

или сделай

Код: plaintext
1.
2.
3.
4.
Public Const gc As String = "A,C,D,E,F,G,H,I,J"

...
DIM gcA() as String
gcA=split(gc, ",")


можно даже массив не обьявлять
а обращаться на прямую к строке
Код: plaintext
If Split(gc, ",")(i) = ... ' обращение к i элементу массива
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2007, 15:05:23
    #34938887
sqrk
sqrk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глобальный массив констант
Спасибо! То что нужно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Глобальный массив констант / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 373ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2181909]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 235ms
total:  373ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]