Помогите!!!
Вопрос1. Как передать данные в VBA из одного модуля в другой, т.е. результат
Например я хочу чтобы
В Модуль1 Процедура 1(a,c) выполнила в = a+с
В Модуле2 вызывалась Процедура 1 из первого модуля (a,c) и возвращала значение в
Вопрос2. Как изменить пути для жизненно важны ссылок на библиотеки в VBA для Microsoft Exsel90\object Library
Дело в том, что у меня два диска С и Н и для все (2) самых необходимых библ. указывается путь с диска С, а для этой черт ее того с диска Н и как следствие при выполнении макроса возникает ошибка типа метод такойто завершен неверно и стопор незнаю что делать SOS!
Цитата:
Originally posted by Rene
Пожайлусто, люди помогите решить 2 проблемы:
Вопрос1. Как передать данные в VBA из одного модуля в другой, т.е. результат
Например я хочу чтобы
В Модуль1 Процедура 1(a,c) выполнила в = a+с
В Модуле2 вызывалась Процедура 1 из первого модуля (a,c) и возвращала значение в
Вопрос2. Как изменить пути для жизненно важны ссылок на библиотеки в VBA для Microsoft Exsel90\object Library
Дело в том, что у меня два диска С и Н и для все (2) самых необходимых библ. указывается путь с диска С, а для этой черт ее того с диска Н и как следствие при выполнении макроса возникает ошибка типа метод такойто завершен неверно и стопор незнаю что делать SOS!
Пожайлусто, люди помогите решить 2 проблемы:
Вопрос1. Как передать данные в VBA из одного модуля в другой, т.е. результат
Например я хочу чтобы
В Модуль1 Процедура 1(a,c) выполнила в = a+с
В Модуле2 вызывалась Процедура 1 из первого модуля (a,c) и возвращала значение в
Вопрос2. Как изменить пути для жизненно важны ссылок на библиотеки в VBA для Microsoft Exsel90\object Library
Дело в том, что у меня два диска С и Н и для все (2) самых необходимых библ. указывается путь с диска С, а для этой черт ее того с диска Н и как следствие при выполнении макроса возникает ошибка типа метод такойто завершен неверно и стопор незнаю что делать SOS!
Пример по вопросу 1.
В Модуль1 пишем:
Public Function SumDig(ByVal dig1 As Integer, ByVal dig2 As Integer) As Integer
SumDig = dig1 + dig2
End Function
В Модуль2 пишем:
Sub TestSum()
Dim x As Integer
x = Module1.SumDig(2, 22)
End Sub
По вопросу 2.
А библиотека к проекту подключена (Tools - References)? Там же есть и кнопка "Browse...", чтобы указать путь к файлу библиотеки.