2014-05-13 2 views
1

VBA를 사용하고 있으며 작성한 Excel과 관련하여 도움을 요청하고 싶습니다. 셀에 값이 있고 행 수가 짝수 인 경우 배경색을 변경하고 싶습니다. 다음은 내 코드입니다 :값과 행 수에 따라 배경색을 변경하십시오.

Sub ChangeColor() 
Dim rw as Variant 
Dim rng As Range 

Set rng = Range("B10:H10000") 

For each rw In rng.Rows 
    If rw.Row Mod 2 = 0 And (I dont know what to put here) Then 
    rw.Interior.Color = RGB (183,222,232) 
    End If 
Next rw 
End Sub 

내가 어떻게 요청할 수 있다면 나는 때문에 입력 된 데이터 (의 둔화 때문에 빨리 정상보다 내 응용 프로그램의 프로세스를 만들 수 있죠 더 많거나 적은 1,000 + 또는 거의 10k).

나는 이미 행 수가 해결되었습니다. 친절하게도 저를 도와줍니다.

+1

왜 조건부 서식을 사용하지? '= AND (MOD (ROW(), 2) = 0, NOT (ISBLANK (A1)))'과 같은 공식을 사용하십시오. – Chel

+0

셀의 조건부 서식을 지정하거나 매크로 안에 배치해야합니까? 나는 내가 작성한 코드와 같은 if 문을 배치하여 프로그래밍 방식으로 처리 할 생각이다. 어쨌든 아이디어와 도움을 주셔서 감사합니다.하지만 여전히 매크로 내부에서 선택합니다. –

+1

"조건부 서식"은 도구 모음의 홈 탭에있는 스타일 섹션에있는 컨트롤입니다. 범위를 선택한 다음 새 규칙을 클릭하고 수식을 사용해야합니다. 위의 코드를 실행하는 것보다 동적으로 업데이트되므로 아마도 최상의 솔루션 일 것입니다. Google에서 검색하는 경우 도움이 더 필요하면 조건부 형식을 만드는 단계별 자습서를 찾을 수 있습니다. – Davis

답변

1

CF는 이것에 대한 VBA보다 훨씬 빨리해야한다 : 나는 선택

SO23637299 example

공식은 다음과 같습니다

=AND(ISEVEN(ROW()),B10<>"")