2013-05-02 3 views
1

제목은 일반적으로 간단 할 수 있지만 그물에서 여러 포럼을 조사한 후에도 아직 해결책을 얻지 못했습니다.빨간색으로 셀을 식별하는 VBA

문제를 설명해 드리겠습니다.

다른 셀을 참조하는 조건 인 경우 열이 거의 사용되지 않는 Excel 통합 문서가 있습니다. 셀의 내용에 따라 셀의 뒷면 색이 정의됩니다. 예를 들면. 셀이 비어 있으면 자동으로 빨간색으로 바뀝니다. 이 빨간색 셀은 누락 된 정보를 나타냅니다. 그래서 나는이 적색 셀을 식별하고 각 적색 셀의 주소를 얻는 매크로를 디자인하려고합니다. 이를 위해

내가 테스트를위한 코드가있는 MsgBox하여 IIf 사용 (ActiveCell.Interior.ColorIndex = 3, "예", "아니오")

하지만이 작동하지 않습니다. 그 이유는 매크로가 색상 색인에 관계없이 색상 색인을 -4142로 식별하기 때문입니다. 흰색이든 파란색이든 빨간색이든, 여전히 -4142를 보여줍니다.

포럼에서이 질문을했을 때이 페이지로 리디렉션되었습니다.

http://www.cpearson.com/excel/CFColors.htm

는 그 페이지에 주어진 기능을 테스트했다. 그것은 내가 만든 샘플 워크 북에 잘 작동합니다. 하지만 통합 문서에 나와 있지 않습니다.

도와 주시겠습니까?

+0

IIf의 조합이라고 생각 colorindex = 3를 사용하여 작동합니다. – Santosh

+0

cPearson 링크의 함수는 특정 유형의 조건부 형식 만 처리합니다 (VBA IDE의 Imediate 창에서 오류를보고하는지 확인할 수 있음). 셀을 컬링하는 데 사용중인 CF의 전체 세부 정보로 질문을 업데이트하십시오. –

+0

실제로 한 열만 IF = (AND (D5 = ""), "1", OR (AX5 : BO5 ), "2", IF (D5 <> "") , "3", "0"))). 그리고 다른 열에 조건부 서식을 사용할 수 있는지 여부를 확신하지 못합니다. Excel 통합 문서는 누군가에 의해 만들어 졌기 때문에 사용할 수 없습니다. 데이터 유효성 검사를 통해 이러한 열이 활성화되었다고 생각합니다. 셀 내용을 제거하면 자동으로 빨간색이됩니다. 이게 도움이 되나요? – user2341632

답변

2

나를 위해 다음과 같은 작품을 사용하여 C의 기본 빨간색으로 몇 개의 셀을 만들었습니다.

Dim ws As Worksheet 
Set ws = Sheets("sheet1") 
Dim i As Integer 
i = 1 
Do Until i = 11 
    If ws.Range("C" & i).Interior.Color = RGB(255, 0, 0) Then 
     debug.print "C" & i & " is red!!" 
    End If 
i = i + 1 
Loop 

enter image description here

편집 :

이 또한 내가 문제가 파일을 업로드하고 링크를 줄 수 activecell

관련 문제