Сделайте небольшое изменение в моем коде

Question

Я использовал код ниже, но хотел бы помочь сделать 1 небольшое изменение. Мне нужно изменить поиск "15" в следующей строке кода:«Set Found = SearchCell.Найти (Что:= 15, Lookat:= xlPart)», чтобы найти любое число в формате 000.00.

Код, используемый в настоящее время;

Option Explicit

Sub Found()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet2")
Dim SearchRange As Range, SearchCell, Found As Range
Set SearchRange = ws.Range("F1:F20")
For Each SearchCell In SearchRange
    Set Found = SearchCell.Find(What:=15, Lookat:=xlPart)
    If Not Found Is Nothing Then
        Found.Interior.Color = vbRed
    End If
    Set Found = Nothing
Next SearchCell
End Sub

Answer 1

вот немного измененный код:

Sub Found()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet2")
Dim SearchRange As Range, SearchCell As Range
Set SearchRange = ws.Range("F1:F20")
For Each SearchCell In SearchRange
    If SearchCell.NumberFormat = "000.00" Then
        SearchCell.Interior.Color = vbRed
    End If
Next SearchCell
End Sub