Попробуйте следующую пользовательскую функцию:
Public Function Zum(rng As Range) As String
Dim r2 As Range, r3 As Range
Set r2 = rng
On Error GoTo out
Set r3 = r2.Cells.SpecialCells(xlCellTypeFormulas)
On Error Resume Next
For Each r In r3
t = r.Formula
If InStr(t, "SUMIF") > 0 Then
Zum = "Yes"
Exit Function
End If
Next r
out:
Zum = "No"
End Function
Она основана на Range
, но вы можете установить диапазон для всех ячеек на любом конкретном листе.Например, чтобы проверить Sheet2
, укажите любую ячейку в Sheet1
:
=ZUM(Sheet2!1:1048576)