우리는 전체 첫 번째 열 및 색상 특정 값보다 낮은 모든 값을 통해 루프 엑셀 VBA에서 프로그램을보고 아래.

Loop Through Entire Column in Excel VBA

Loop Through Entire Column in Excel VBA

워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가

  1. 먼저, 타입 롱의 난이라는 변수를 선언합니다. 긴 변수가 정수 변수보다 큰 용량을 가지고 있기 때문에 우리는 긴 여기 유형의 변수를 사용합니다.

Dim i As Long

  1. 그 다음, 블랙 컬럼 A의 모든 셀의 폰트 색 변경 코드 라인을 추가한다.

Columns(1).Font.Color = vbBlack

루프를 추가합니다.

For i = 1 To Rows.Count

Next i

참고 : 워크 시트는 엑셀 2007 이상에서 1,048,576 행까지 할 수 있습니다.

아니 당신이 모든 행을 통해 루프 위의 코드 라인을 사용하는 버전을 중요.

  1. 다음으로, 우리는 D2 셀에 입력 된 값보다 낮은 값이 모두 색상. 빈 셀은 무시됩니다. 루프에 다음 코드 줄을 추가합니다.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then

Cells(i, 1).Font.Color = vbRed

End If

당신이 시트에 명령 단추를 (이 시간이 걸릴 수 있음)을 클릭하면 검색 결과 :

Loop Through Entire Column Result

Loop Through Entire Column Result