Из какой ячейки вызвана функция?

[ALink]

Вопрос опытным товарищам.

Мне требуется разработать пользовательскую функцию, вызываемую непосредственно из ячейки рабочего листа Excel.

Может ли VBA код функции «узнать», из какой ячейки вызвана функция?
ActiveCell не годится. Активной в момент вычисления функции вполне может быть совершенно иная ячейка.



Function AAA(ByVal X as Double) As Double

Часть 1.
Сначала вычисляется возвращаемое значение:
AAA = вычисляемый результат (число)

Часть 2.
Далее выполняются некоторые полезные, но сложные
и с негарантированным результатом действия.
Чтобы быстро визуально определять их успешность,
Было бы неплохо менять фон ячейки, из которой
функция вызвана:
Если все завершилось хорошо,
то меняем фон ячейки на желтый,
А если нет,
то делаем его розовым.

End Function

Как получить ссылку на ячейку?


Буду очень признателен за пример решения.

ALink

[дмидми]

VBE: набрать Caller и сразу нажать F1.
А можно и не сразу, но тогда придётся на Caller курсор поставить.

[IgorGO]

Думаю ActiveCell подойдет.
Извините, не внимательно прочитал задачу...а убить ответ не могу(((

[ALink]

Сообщение от IgorGO

Думаю ActiveCell подойдет.
Извините, не внимательно прочитал задачу...а убить ответ не могу(((

На листе может быть несколько ячеек с нашей функцией ААА.
В процессе пересчета листа эти ячейки по очереди вызывают наш код.
Активной же при этом является какая-то одна
вполне конкретная (и, вообще говоря, произвольная) ячейка листа.
Именно на нее возвращает ссылку ActiveCell.
Но эта ячейка в нашей задаче бесполезна.


И возникает вопрос:
А может ли вообще функция в момент вычисления получить информацию,
из какой именно ячейки ее вызвали, или Excel API это скрывает?


Каких-то более или менее очевидных подходов не вижу
Увы...

ALink

[дмидми]

Сообщение от ALink

Каких-то более или менее очевидных подходов не вижу

Ваш браузер вредительски скрывает от Вас сообщение #2?
Или у Вас на клаве выдрана с корнем клавиша F1?
Или Excel без хэлпов?
Или хэлпы по-китайски?

[ALink]

Сообщение от дмидми

Ваш браузер вредительски скрывает от Вас сообщение #2?
Или у Вас на клаве выдрана с корнем клавиша F1?
Или Excel без хэлпов?
Или хэлпы по-китайски?

Уважаемый “дмидми”,

Я, конечно же, прочитал ваш пост #2.
Однако смысл его остался мне совершенно неясен,
потому и остался он без комментариев.

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

Чтобы такая затея сработала, функция должна каким-то образом
выяснить адрес ячейки, из которой ее на этот раз вызвали.
Предполагается, что на рабочем листе имеется несколько десятков ячеек
с одной и той же функцией. И каждая должна быть отформатирована
независимо от других. Программно. Внутренняя логика
принятия решения о характере форматирования сложна и
не укладывается в штатные средства пользователя.

Вы можете пояснить вашу идею про VBE, Caller и клавишу F1
в контексте обсуждаемой задачи?
А едкими репликами прошу не беспокоить. Лишнее это.

ALink

[дмидми]

(Цитируется с незначительными сокращениями.)

Сообщение от ALink

Я прочитал пост #2. Однако смысл его остался мне совершенно неясен,
потому и остался он без комментариев.

А я-то по простоте душевной считал, что в таких случаях не пост комментируют, а вопросы задают... Век живи...

Сообщение от ALink

Вы можете пояснить вашу идею про VBE, Caller и клавишу F1
в контексте обсуждаемой задачи?

Ну, наконец-то речь не мальчика, но мужа. Поясняю.

VBE (Visual Basic Editor) - это то, при помощи чего Вам предстоит писать и отлаживать Вашу функцию и что вызывается к жизни командой Excel "Сервис -- Макрос >> Редактор Visual Basic".

VBE снабжён контекстно-чувствительной справкой. В частности, это даёт возможность в любом месте любого модуля набрать некоторое ключевое слово (или поместить курсор на уже написанное) и, нажав клавишу F1, получить для него справку (если, конечно, это слово известно справочной системе первого уровня).

Caller - то слово, которое, по моему скромному мнению, является ключом к решению заявленной Вами проблемы ("как определить ячейку, из которой вызвана функция").

Итак, войти в VBE, набрать в каком-нибудь модуле (можно создать новый) слово Caller и нажать F1. Если при изучении справки (и тех ссылок и примеров, которые к справке частенько прилагаются) возникнут вопросы - очень может быть, что и в них Вам здесь помогут разобраться.

Сообщение от ALink

А едкими репликами прошу не беспокоить.

Вы вольны не читать моих постов.


P.S. "Вы принимаете себя слишком всерьёз."
("Искусство быть человеком", Правило пятое.)

[ALink]

Сообщение от дмидми

(Цитируется с сокращениями.)Caller - то слово, которое, по моему скромному мнению, является ключом к решению заявленной Вами проблемы ("как определить ячейку, из которой вызвана функция").

Решение действительно очень простое.
Достаточно обратиться к свойству Caller объекта Application.
В обсуждаемой выше ситуации результатом выполнения кода

Dim R As Variant
R = Application.Caller.Address

будет адрес ячейки, из которой осуществлен вызов кода.


«дмидми», спасибо за наводку.
Тема закрыта.


ALink