강조 표시된 셀의 VBA 식별 열 머리글

Question

VBA를 처음 사용합니다. 나는 셀 A10 : E10에서 사용자가 선택한 드롭 다운이있는 Excel 시트를 사용하고 있습니다. 내 매크로는 사용자가 입력 한 정보에 대해 데이터 유효성 검사를 실행합니다. 입력 된 데이터가 매크로에 의해 설정된 매개 변수에 맞지 않으면 셀이 강조 표시됩니다. 매크로 끝에서 강조 표시된 셀이 x 열/s에 있음을 나타내는 MsgBox를 원합니다. 여기에 내가 무엇을 가지고 :

Sub CheckErrors() 
Range("A11:E100000").Select 
Dim high As Range 
Dim c As Range 
Set high = Selection 
    For Each c In high 
    If c.Interior.Pattern <> xlNone Then 
    MsgBox ("Please update highlighted cells in " & c.Column & " and run Data Validation again") 
    Exit Sub 
    End If 
    Next c 
MsgBox ("Data verification is complete") 

End Sub 

대신 c.Column 말을 나는 것 이상적으로 강조되는 세포를 식별하고 A10의 열 머리글을 표시하는 코드 같은 : E10를. 예를 들어 B24 및 C82가 강조 표시된 경우 MsgBox에서 "전화 번호 및 주소에서 강조 표시된 셀을 업데이트하십시오."라고 말합니다. "전화 번호"및 "주소"는 셀 B10 및 C10의 값이되며 사용자가 이전에 선택한 드롭 다운 목록에서 가져옵니다.

도움을 주시면 감사하겠습니다. 감사!

Answer 1

쉽지! 이미 열을 가져와 대부분의 작업을 완료 했으므로 필요한 행에 값을 삽입하면됩니다. 다음과 같은 메시지 박스 라인이 보일 것입니다 무엇을 : 나는 당신이 세포와 얼마나 잘 알고 잘 모르겠어요

`MsgBox ("Please update hilighted cells in " & Cells(10, c.Column).value & " and run Data Validation again")` 

하지만 세포 (행 인덱스, 열 인덱스)와 .Value 속성을 사용하는 내용을 반환 그 세포의. 머리글이 통합 문서 열 번째 행에 있다고 가정하면 찾고있는 것을 얻을 수 있습니다.