0

セルに特定の値「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

任意の提案をいただければ幸いです。

ありがとうございます！

4

1 に答える 1

4

Lookat関数の引数を探してい.Findます。

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

この引数にはxlPartとの 2 つの定数がありxlWholeます。お気づきのように、指定されていない場合、関数はデフォルトで になりxlPartます。

.Find関数の詳細については、このリンクを参照してください。

于 2013-11-04T01:29:52.887 に答える