Определить ячейки в формуле в Excel 2007

Question

Я пишу приложение, которое предназначено для защиты ячеек, связанных/ссылающихся в формуле. , например.

, если ячейка A1 содержит формулу, которая суммирует 2 клетки, как = B1 + C1,

Случай использования: когда пользователь случайно пытается изменить содержимое ячейки B1, C1, то приложение уведомляет пользователя, что такая операция не допускается, следовательно, сбрасывает содержимое.

Я могу сбросить содержимое отдельных ячеек, но моя задача - сначала найти ячейки, участвующие в формуле.

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

Спасибо.

Answer 1

Запустите макрос ниже: новая книга. Он покажет вам прецеденты ячейки B1

B1 имеет формулу =SUM(A1,A3,A5,A7,A9,A10)

и MsgBox должен сказать вам, какие именно клетки используются в формуле.

Sub Main() 

    Range("A1").Resize(10, 1).Formula = "=Rand()" 

    Range("B1").Formula = "=SUM(A1,A3,A5,A7,A9,A10)" 


    Dim cell As Range 
    For Each cell In Range("B1") 
     If cell.HasFormula Then 
      MsgBox cell.Precedents.Address 
     End If 
    Next 

End Sub