데이터 유효성 검사 목록 - 소스

Question

VBA에서 데이터 유효성 검사 목록 원본을 찾을 수 있습니까?

여기 예입니다. 나는 'List1'시트에 셀 'A1'이 있고이 셀에 'List2'시트의 데이터 유효성 검사 목록이 있습니다.

'List2'시트에는 'Banana', 'Apple'...과 같은 셀 A1 (List1)에 대한 여러 값이 있습니다. 이러한 값은 A 열에 있고 B 열에는 1과 같은 숫자가 있습니다. 2 ....

열 A (List2)에있는 셀 A1 (List1)에 데이터 유효성 검사가 있는지 VBA에서 검사 할 수 있습니까? 그리고이 경우에 확실하지 않다 그것은 가능한 어떤 조언 :

Answer 1

가치 '바나나'

그것은 이해할 수 있다면 나는 확실하지 않다

.... 감사와 관련하여 열 B에서 번호를 얻을 수 있습니다 원하는 내용이지만 셀의 데이터 유효성 검사 유형을 확인한 다음 목록 범위를 반환 할 수 있습니다.

With Sheets("List1").Range("A1").Validation 
If .Type = 3 Then ' data validation is a list ? 
    MsgBox .Formula1 
End If 
End With