Kак определить содержит ли ячейка формулу или нет?

Категория: Basic

2012-08-29 15:10:39

code: #vba

If Range("A1").HasFormula = True Then
   MsgBox "Ячейка содержит формулу"
Else
   MsgBox "Ячейка не содержит формулы"
End If

Настоятельно не рекомендуется использовать следующий вариант(ы), так как:

Вы получите ошибку, если формула скрыта, а рабочий лист защищён.
Вы получите некорректный результат, если в ячейке установлен текстовый формат и введён текст, например = ТЕКСТ =
Вы получите некорректный результат, если в ячейке введён текст, например '= Знак равенства является оператором сравнения, например: A1=F5

code: #vba

If Left(Range("A1").Formula, 1) = "=" Then
   MsgBox "Ячейка содержит формулу"
Else
   MsgBox "Ячейка не содержит формулы"
End If

code: #vba

If Asc(Range("A1").Formula) = 61 Then
   MsgBox "Ячейка содержит формулу"
Else
   MsgBox "Ячейка не содержит формулы"
End If

code: #vba

If Range("A1").Formula Like "=*" Then
   MsgBox "Ячейка содержит формулу"
Else
   MsgBox "Ячейка не содержит формулы"
End If

code: #vba

If InStr(Range("A1").Formula, "=") = 1 Then
   MsgBox "Ячейка содержит формулу"
Else
   MsgBox "Ячейка не содержит формулы"
End If

Поделиться:

Sample Code