Forループ内の次のセルを参照しているVBA

-1

ループ内のセルと比較する必要があります。私はあなたが何かを言うことができるほとんどの言語を知っている "セル（i、1）.value =セル（i + 1,1）.value then ..."Forループ内の次のセルを参照しているVBA

vbaでこれを行う方法があります私のために働いていない何らかの理由があります。ありがとう

For i = 7 To ltrw 
    If (Cells(i, 1).Value = 0 And Cells(i + 1, 1).Value = 0 Then 
     Cells(i, 1).EntireRow.Hidden = True 
    End If 
Next i

出典

2016-07-25 Daniel Saathoff

i> 0と仮定すると、正常に動作するはずです - 動作しないと思われますか？ –

うまく動作しない場合は、実際に行っているコードと、取得した可能性のあるエラーメッセージを投稿することをお勧めします。 –

コードは下に貼り付けられます。基本的には、その行のセルだけでなく、その行のセルがゼロを含む場合は、行全体を非表示にしようとしています。私はエラーメッセージを受け取っていない、私はそれを実行するときに何も起こっていない。（セル（I、1）.Valueの= 0細胞（I + 1、1）.Valueの= 0そして細胞（I、1）.EntireRow.Hidden = Trueの場合、I = 7 をltrwするの終了の場合次へi –

このような？

For i = 7 To ltrw 
    If Cells(i).Value = Cells(i + 1).Value Then ' you can skip the ", 1" as its optional 
     Cells(i).EntireRow.Hidden = True 
    End If 
Next i

出典

2016-07-25 23:19:51 Slai

Forループ内の次のセルを参照しているVBA

答えて

関連する問題