Как получить адреса ячеек, которые вызывают конкретную функцию

Question

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

Если моя функция MyFunction (arg1, arg2), Я должен быть в состоянии найти адреса ячеек, используя имя "MyFunction".

Пожалуйста, помогите мне найти наиболее эффективный способ сделать это.

Спасибо

Answer 1

Я задавал тот же вопрос , но сформулировал его по-другому, поэтому я не нашел этот, когда искал.

Интересно то, что ответ, который я получил, кажется, лучше, чем зацикленный, по двум причинам:

1. Быстрее - без зацикливания. Просто используйте Application.Caller
2. Работает, если ваша функция вызывается из более чем одной ячейки

Answer 2

Вы можете перебирать диапазон ячеек, ища эту конкретную функцию:

Dim name as String
Dim searchRange as Range
Dim row as Integer
Dim col as Integer

name = "MyFunction" ''// for example
Set searchRange = Range("A1:P:50") ''// for example

For row = 1 to searchRange.Rows.Count
  For col = 1 to searchRange.Columns.Count
    If Left(searchRange.Cells(row, col).Formula, Len(name)) = name Then
      ''// do something with this cell
    End If
  Next col
Next row