조건부 서식 오류

시트에 조건부 서식을 추가하는 일부 vba 코드를 작성하려고하지만 응용 프로그램 정의 오류가 계속 발생합니다. 다음은 내 코드입니다조건부 서식 오류

With sheet1.Range("C2:C") 
    .FormatConditions.Delete 
    .FormatConditions.Add Type:=xlExpression, Formula1:="=NOT(ISBLANK($B2))" 
    .FormatConditions(1).Interior.ColorIndex = RGB(225, 242, 255) 
End With

왜 이런 일이 벌어 질 수 있을지에 대한 제안이 있으십니까?

감사합니다.

출처

2016-11-10 ViggieSmalls

어떤 줄에 오류가 나타나지 않습니다

그런 ColorIndex 단지 Color 사용자로 변경? 만약 내가 틀렸어. Range ("C2 : C")'가 유효 범위가 아니겠습니까? –

시작 셀 행을 지정하고 있지만 마지막 셀 행을 포함하지 않는 것처럼 보입니다.이 번호를 동적으로 추가 할 방법을 찾고 있습니까? – Clyde

네가 맞아, 방금 끝 줄을 포함하도록 범위를 변경했다. 하지만 지금은 코드의 Interior.ColorIndex 줄에 "범위 밖의 첨자 오류"가 나타납니다. – ViggieSmalls

Range("C2:C") 유효한 범위가 아닌, 그것은 고정 만들거나 다음은 동적한다 :

With Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row) 
    .FormatConditions.Delete 
    .FormatConditions.Add Type:=xlExpression, Formula1:="=NOT(ISBLANK($B2))" 
    .FormatConditions(1).Interior.Color = RGB(225, 242, 255) 
End With

출처

2016-11-10 16:12:56

조건부 서식 오류

답변

관련 문제