For 루프에서 다음 셀을 참조하는 VBA

-1

셀을 루프 아래에서 비교해야합니다. 나는 당신이 "세포 (i, 1) .value = cells (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으로 가정하면 작동합니다. 작동하지 않는다고 생각합니까? –

작동하지 않는 경우 시도하고있는 실제 코드와 함께 나타날 수있는 오류 메시지를 게시하는 것이 가장 좋습니다. –

코드는 아래에 붙여 넣습니다. 기본적으로 나는 그 행의 셀뿐만 아니라 그 아래의 셀에도 0이 있으면 전체 행을 숨기려고합니다. 오류 메시지가 표시되지 않고 실행하면 아무 일도 일어나지 않습니다. I = 7 ltrw을하는 경우 (셀 (1, 1) 내지 .Value = 0 세포 (I + 1, 1) = 0이어서 .Value 세포 (1, 1) 내지 .EntireRow.Hidden = TRUE End If 다음 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

답변

관련 문제