2016-09-04 10 views
1

商品のリスト(列A)の隣に合計があるとします。あなたがゼロに等しい任意の合計(列B)を見つけて、それ(列C)に次のセルにLOWを置きたい場合は、次の操作を行います。以下のコードで "Not Rng Is Nothing"(if内)の意味

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 

答えて

1

Find()方法は、それが時に呼び出されています範囲内のセルを探します見つからない場合は、そのパラメータ( "What"、 "LookIn"、 "LookAt"、...)で指定された基準に一致し、見つかったセル参照(Rangeオブジェクト)またはヌル参照オブジェクト(キーワードNothingで参照)一致が見つかりました

+0

ありがとうございました – Arie

+3

私は勇敢なdownvoterが表示され、この答えが行かない理由を説明しますお互いにOP(そして他の人たち)が正しい方法でいるようにして、私の答えを改善する – user3598756

関連する問題