Как определить, имеет ли ячейка определенное числовое значение с помощью VBA

У меня есть следующий код, чтобы узнать, имеет ли ячейка конкретное значение «0.0». Тем не менее, я не понимал, что в случае, если значение 10.0 будет стоить, программа также подберет его. Как мне изменить код, чтобы получить ровно 0,0?

Sub ReformatDeplete() Dim SrchRng3 As Range Dim c3 As Range, f As String Set SrchRng3 = Worksheets("Melanoma").Range("M4", Worksheets("Melanoma").Range("M65536").End(xlUp)) Set c3 = SrchRng3.Find("0.0", LookIn:=xlValues) If Not c3 Is Nothing Then f = c3.Address Do With Worksheets("Melanoma").Range("A" & c3.Row & ":M" & c3.Row) .Font.ColorIndex = 1 .Interior.ColorIndex = 16 End With Set c3 = SrchRng3.FindNext(c3) Loop While c3.Address <> f End If End Sub 

Мы ценим любые предложения.

Заранее спасибо!

Вы ищете аргумент .Find функции .Find .

 Set c3 = SrchRng3.Find("0.0", LookIn:=xlValues, Lookat:=xlWhole) 

Для этого аргумента есть две константы: xlPart и xlWhole . Как вы заметили, если значение не указано, функция по умолчанию имеет значение xlPart .

Чтобы узнать больше о функции .Find , ознакомьтесь с этой ссылкой.

Давайте будем гением компьютера.