Как в Excel объявить функцию глобально?

[Sneaky Pete]

Сосбсвенно, есть функция каторую хочется вызывать методом call
из разных листов и форм.
Я ее добавляю в ThisWorkBook General , затем вызываю из других листов - пишет ошибку - функция неопределена. sub or function not defined

[GSerg]

Собственно, метод call, являющийся наследнием не пойми чего, я никогда не понимал.

А что, в модуль поместить функцию никак нельзя совсем?

[Sneaky Pete]

Собсвенно как выполнить функцию я понял...
call thisworkbook.function_name
А вот как передать из нее значение, в модуль, откуда она была вызвана мне не понятно.
Проше говоря...

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

[Bagathur]

Как сказал ГСерг, поместить функцию в тот же модуль.
А вообще если ты определишь переменные в модуле класса и поставишь туда функцию, а потом будешь отдельно запускать только другие модули или формы, не запустив модуль класса, то функция не будет работать.

[GSerg]

Bagathur
Очень сложно в excel не запустить модуль класса thisworkbook...
У меня ни разу не получилось...

[Bagathur]

Я говорю про то, что у меня было, а именно

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

Public dirsave, projname, projpath As String
Public i, j, s, r, As Integer

Public Sub auto_open()
projpath = ActiveWorkbook.path
projname = ActiveWorkbook.Name
dirsave = ActiveWorkbook.Sheets(1).Cells(100, 5).Value
(...)


Было там, где "невозможно пропустить", да ещё и с автораном.
При открывании книги всё было ОК, значения переменным присваивались, по модулям передавались, в формы выводились и тп
Но при выходе из выполнения кода и попытке отладки-настройки его отдельных элементов и форм значения публично объявлённых переменных скидывались и процедуры начинали ругаться.
Мб я что-то не так делал и ты подскажешь, как этого избегать кроме дублирования строк присвоения значения публичным переменным в отлаживаемой процедуре?

[KL]

Привет Bagathur,

...поместить функцию в тот же модуль...

Думаю, что речь не о том же модуле, а о стандартном модуле, т.е. не модуле класса (в т.ч. ThisWorkbook). Достаточно поместить функцию в модуль типа Модуль1 и вызывай откуда хочешь как любую другую.
Но в принцыпе можно и то, о чем говорит Sneaky Pete, напр.:
в модуле ThisWorkbook:

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

Function MyFunction(txt As String) As Long
    MyFunction = Len(txt)
End Function

в любом другом модуле:

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

Sub test()
    MsgBox ThisWorkbook.MyFunction("abracadabra")
End Sub

И не нужен никакой Call