वीबीए

Question

का उपयोग कर सेल में डेटा सत्यापन जोड़ने के लिए कैसे मैं वीबीए का उपयोग कर सेल (जो परिवर्तनीय है) में "डेटा सत्यापन" जोड़ना चाहता हूं और डेटा सत्यापन सूची में आने वाली सीमा भी परिवर्तनीय है। अब तक मैं सेल जहाँ मैं डेटा सत्यापन चाहते

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

उपयोग में विभिन्न तर्क का अर्थ मुझे व्याख्या कर सकते हैं:

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, rng As range उपयोग कर रहे हैं, केवल rngRange के प्रकार है, लेकिन range1Variant है। यही कारण है कि मैं Dim range1 As Range, rng As Range का उपयोग कर रहा हूं।
मापदंडों का अर्थ आप पढ़ सकते हैं के बारे में MSDN है, लेकिन संक्षेप में:

• Type:=xlValidateList सत्यापन प्रकार का मतलब है, उस मामले में आप सूची से मूल्य का चयन करना चाहिए
• AlertStyle:=xlValidAlertStop संदेश बॉक्स में इस्तेमाल आइकन सत्यापन के दौरान प्रदर्शित निर्दिष्ट करता है । यदि उपयोगकर्ता सूची से बाहर किसी भी मूल्य में प्रवेश करता है, तो उसे त्रुटि संदेश मिलेगा।
• अपने मूल कोड में, Operator:= xlBetween विचित्र है। इसका उपयोग केवल तभी किया जा सकता है जब सत्यापन के लिए दो सूत्र प्रदान किए जाते हैं।
• सूची डेटा सत्यापन के लिए Formula1:="='" & ws.Name & "'!" & range1.Address मूल्यों (प्रारूप =Sheet!A1:A5 में)