VBA를 사용하여 셀에 데이터 유효성 검사를 추가하는 방법

Question

VBA를 사용하는 셀 (변수)에 "데이터 유효성 검사"를 추가하고 데이터 유효성 검사 목록에 올 범위도 가변적입니다. 지금까지 나는 데이터 유효성 검사에게 내가 무엇입니까

Dim range1, rng As range 
Set range1 = range("a1:a5") 
Set rng = range("b1") 
With rng 
With .Validation 
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:="range1" 
End With 
End With 

을 원하는 셀을 "RNG를"데이터 유효성 검사 목록에 와서하는 범위를이 여기

"범위 1을"입니다 사용하고있다 "응용 프로그램 정의 개체 정의 오류"또한

사람이

With .Validation 
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:="range1" 

Answer 1

사용에 나에게이 일을 다른 인수의 의미를 설명 할 수

01 당신이 Dim range1, rng As range를 사용하는 경우에만 rng Range의 유형을 가지고 있지만, range1이 Variant 것을 23,516,는

Dim ws As Worksheet 
Dim range1 As Range, rng As Range 
'change Sheet1 to suit 
Set ws = ThisWorkbook.Worksheets("Sheet1") 

Set range1 = ws.Range("A1:A5") 
Set rng = ws.Range("B1") 

With rng.Validation 
    .Delete 'delete previous validation 
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ 
     Formula1:="='" & ws.Name & "'!" & range1.Address 
End With 

참고. 그래서 Dim range1 As Range, rng As Range을 사용하고 있습니다. 당신이 읽을 수있는 매개 변수의 의미에 대해
는 MSDN이지만, 짧은 :

• Type:=xlValidateList는이 경우에 당신이
• AlertStyle:=xlValidAlertStop 검증 중에 표시되는 메시지 상자에 사용되는 아이콘을 지정 목록에서 값을 선택해야합니다, 검증 유형을 의미 . 사용자가 목록에서 값을 입력하면 오류 메시지가 나타납니다.
• 원래 코드로는 Operator:= xlBetween이 이상합니다. 유효성 확인을 위해 두 개의 수식이 제공된 경우에만 사용할 수 있습니다. 목록 데이터 유효성 검사에 대한
• Formula1:="='" & ws.Name & "'!" & range1.Address가 (형식 =Sheet!A1:A5에서) 값