セルに特定の値「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
任意の提案をいただければ幸いです。
ありがとうございます!