Обновление ячейки с собственной функцией VBA

[Руслан Т.]

Здравствуйте.

Подскажите, а то я никак не пойму. Если в Excel мы задаём формулу, н-р, в ячейке А3 вида =A1+A2 , то при изменении ячеек А1 или А2 результат в ячейке А3 автоматически пересчитается.

Однако если мы в А3 запишем собственную VBA-функцию =функ() вида:

Public Function функ()
  Dim a As Double
  Dim b As Double  
  a = Range("A1").Value
  b = Range("A2").Value
  функ = a + b
End Function

то при изменении ячеек А1 или А2 результат в ячейке А3 автоматически не пересчитается.

Думаю, вопрос понятен: как сделать так, чтобы ячейка А3 с функцией =функ() пересчитывалась автоматически при изменении данных в ячейках А1 и А2? Либо пересчитывалась при любом изменении данных на рабочем листе?

[Hugo121]

Public Function функ()
  Dim a As Double
  Dim b As Double
  Application.Volatile
  a = Range("A1").Value
  b = Range("A2").Value
  функ = a + b
End Function

[doober]

Как вариант

=функ(A1;A2)
Public Function функ(a As Range, b As Range)
  функ = a + b
End Function

[IgorGO]

обьявите свою функцию так:

Public Function функ(a As Range, b As Range)
  функ = a + b
End Function

передайте ей аргументами ссылки на ячейки А1 и А2 и будет Вам счастье! (причем, при каждом изменении значений в А1 или А2).

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

[IgorGO]

мы с Серегой не сговаривались)))
я писал дольше потому что употребил много букв...

[Руслан Т.]

Hugo121, doober, IgorGO спасибо за ответы. Действительно, работают все варианты: и с Application.Volatile и с явным указанием аргументов функции.