1

農産物のリスト (列A) があり、その横に合計が表示されているとします。Bゼロに等しい合計 (列) を見つけてLOW、その隣のセル (列C) に配置する場合は、次のようにします。

Set Rng = Range("B1:B16").Find(What:="0", LookAt:=xlWhole, LookIn:=xlValues)
Rng.Offset(, 1).Value = "LOW"

Sub MyOffset()
    With Range("B1:B16")
        Set Rng = .Find(What:="0", LookAt:=xlWhole, LookIn:=xlValues)
        If Not Rng Is Nothing Then
            firstAddress = Rng.Address
            Do
                Rng.Offset(, 1).Value = "LOW"
                Set Rng = .FindNext(Rng)
                Loop While Not Rng Is Nothing And Rng.Address <> firstAddress
        End If
    End With
End Sub
4

1 に答える 1

1

Find()メソッドは、パラメーター ("What"、"LookIn"、"LookAt" など) で指定された条件に一致するときに呼び出される範囲内のセルを検索し、見つかったセル参照 (Rangeオブジェクト) またはいずれかを返します。Nothing一致が見つからない場合は null 参照オブジェクト (キーワードで参照)

于 2016-09-04T13:18:12.120 に答える