Excel VBA에서 전체 열을 반복합니다.

아래에서 우리는 Excel VBA 그 첫 번째 열 전체를 순환 함 특정 값보다 낮은 모든 값의 색상을 지정합니다.

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

1. 먼저 long 타입의 i라는 변수를 선언하십시오. Long 변수는 Integer 변수보다 용량이 크기 때문에 Long 형식의 변수를 사용합니다.

Dim i As Long

2. 다음으로 A 열의 모든 셀의 글꼴 색을 검정색으로 변경하는 코드 행을 추가하십시오.

Columns(1).Font.Color = vbBlack

3. 루프를 추가하십시오.

For i = 1 To Rows.Count

Next i

노트 : 워크 시트는 Excel 2003에서 최대 65,536 개의 행을, Excel 2007 이상에서는 최대 1,048,576 개의 행을 가질 수 있습니다. 사용중인 버전에 상관없이 위의 코드 줄은 모든 행을 반복합니다 (다운로드 가능한 Excel 파일은 Excel 97-2003 형식 임).

4. 다음으로 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

시트에서 명령 단추를 클릭하면 결과가 표시됩니다 (다소 시간이 걸릴 수 있음).