Здравствуйте.
Как можно обратиться из функции в надстройке к активной рабочей книге и ее листам?
У меня есть такая функция
Но при ее вызове ничего не происходит, т.е. в ячейку рабочей книги ничего не записывается. При этом MsgBox выводит название активной рабочей книги и ее активного листа. Если добавить обработчик ошибок то получаю сообщение: "Application-defined or object-defined error". Функцию вызываю из строки формул.
Как можно обратиться из функции в надстройке к активной рабочей книге и ее листам?
У меня есть такая функция
| Код |
|---|
Function compareLst(rFirst As Range, rSecond As Range) As String
Dim a() As Variant
Dim Dict1 As Object
Set Dict1 = CreateObject("Scripting.Dictionary")
Dim Dict2 As Object
Set Dict2 = CreateObject("Scripting.Dictionary")
Dim wb As Workbook
Dim ws As Worksheet
Set wb = rFirst.Parent.Parent
Set ws = wb.ActiveSheet
MsgBox wb.Name & " " & ws.Name
ws.Cells(9, 9) = "tra-ta-ta"
End Function |
Но при ее вызове ничего не происходит, т.е. в ячейку рабочей книги ничего не записывается. При этом MsgBox выводит название активной рабочей книги и ее активного листа. Если добавить обработчик ошибок то получаю сообщение: "Application-defined or object-defined error". Функцию вызываю из строки формул.
