Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


2SendMessage, оффтопиком:
читать дальше »
Так:
Код: Выделить весь код
Dim arrRepl

arrRepl = Array("_something1_", "_something2_", "_something3_", "_something4_")
…
For Each elem In arrRepl
'или
'For i = LBound(arrRepl) To Ubound(arrRepl)
…
удобнее.

Отправлено: 02:17, 26-06-2012 | #13