VBA. Задание аргументов в функции

Avsha · 09 май 2008, 06:29

Teslenko_EA, Aent спасибо за внимание и помощь!
Вот теперь все работает.

Остановился на варианте функции:

Public Function GlobalTo2(VarString$)
Dim zone() As String
zone = Split(VarString, ",")
 Stop
For i = 0 To UBound(zone)
dfg = zone(i)
Next i
End Function

а вызываю ее двумя способами:
способ-1)

Код: Выделить всё

Dim Vars$
Vars = "mem1,mem2,mem3,mem4"
GlobalTo2 Vars

способ-2)

Код: Выделить всё

GlobalTo2 "mem5,mem6,mem3,mem4"

Теперь зачем мне это ...
- в приложении порядка 20-30 вызовов уже известной нам функции, в 90% случаев (способ-1) у этих вызовов одинаковый набор аргументов и в этом случае мне будет удобно в отдельном модуле объявить переменную как глобальную константу Vars. Тогда очевидно преимущество, при изменении Vars - списке разрешенных станций (пользователей), мне придеться менять только в одном месте.
Хотя остается возможность индивидуального вызова (способ-2) функции.

Aent, код функции не рабочий - для форумных разбирательств

Спасибо - это здорово облегчит конфигурирование системы!