우리가 엑셀 VBA에서 프로그램을보고 아래 그 색상 동적 범위의 최대 값입니다.

상황 :

우리는 엑셀 VBA는이 숫자의 최대 값을 색상을 원하는 때마다 우리는 번호를 추가하고 우리는 명령 단추를 클릭하십시오.

Dynamic Range in Excel VBA

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

  1. 먼저, 우리는 하나 개의 변수와 두 개의 범위 객체를 선언합니다. 유형을 두 번 중 하나 개 변수는 우리가 최대 호출합니다. 우리는 범위가 RNG 세포 개체를 호출합니다.

Dim maximum As Double, rng As Range, cell As Range

  1. 우리는 ‘없음 채우기’에 모든 셀의 배경색을 변경하는 행을 추가합니다.

Cells.Interior.ColorIndex = 0

  1. 우리는 숫자 RNG 초기화합니다. 이것에 대한 / VBA – 예 – currentregion [CurrentRegion]`재산 : 우리는`링크를 사용합니다. 우리가 사전에 범위의 정확한 경계를 모를 때 CurrentRegion 유용합니다.

Set rng = Range("A1").CurrentRegion

  1. 우리는 수의 최대 값을 최대 초기화합니다. 우리는 최대 값을 찾기 위해 워크 시트 함수 최대를 사용합니다.

maximum = WorksheetFunction.Max(rng)

  1. 마지막으로, 우리는 최대 값을 색상. 우리는 각각 다음 루프를 사용합니다.

For Each cell In rng

If cell.Value = maximum Then cell.Interior.ColorIndex = 22

Next cell

참고 : 대신 ColorIndex 22 번 (빨간색)의, 당신은 어떤 ColorIndex 번호를 사용할 수 있습니다.

번호를 추가 6..

당신이 시트에 명령 단추를 클릭하면 검색 결과 :

Dynamic Range Result