|
ただ単に、関数であるだけでなく、正しい関数かどうかも判定するのでしょう?
ならば、こんなかな?
Sub test()
Range("B1").Value = IIf(Range("A11").Formula = "=SUM(A1:A10)", "○", "×")
End Sub
A11に関数を入れたときに判定したいなら、
Worksheet_Changeイベントを使うといいかも。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Value = "" Then Exit Sub
If .Count > 1 Then Exit Sub
If .Address(0, 0) <> "A11" Then Exit Sub
Application.EnableEvents = False
Range("B1").Value = IIf(Range("A11").Formula = "=SUM(A1:A10)", "○", "×")
Application.EnableEvents = True
End With
End Sub
|
|