excel-vba
जिसका नाम रंगे रखा गया

परिचय

एक नामांकित सीमा को परिभाषित करें

नामित श्रेणियों का उपयोग करने से आप एक सेल (एस) सामग्री के अर्थ का वर्णन कर सकते हैं और वास्तविक सेल पते के स्थान पर इस परिभाषित नाम का उपयोग कर सकते हैं।

उदाहरण के लिए, सूत्र =A5*B5 को सूत्र =A5*B5 =Width*Height साथ प्रतिस्थापित किया जा सकता है, सूत्र को पढ़ने और समझने में बहुत आसान बनाने के लिए।

एक नई नामित सीमा को परिभाषित करने के लिए, नाम के लिए सेल या कोशिकाओं का चयन करें और फिर सूत्र पट्टी के बगल में नाम बॉक्स में नया नाम लिखें।

नोट: नामांकित रेंज वैश्विक स्तर पर डिफ़ॉल्ट हैं, जिसका अर्थ है कि उन्हें कार्यपुस्तिका के भीतर कहीं से भी एक्सेस किया जा सकता है। एक्सेल के पुराने संस्करणों में डुप्लिकेट नामों की अनुमति है, इसलिए वैश्विक दायरे के डुप्लिकेट नामों को रोकने के लिए देखभाल की जानी चाहिए अन्यथा परिणाम अप्रत्याशित होंगे। कार्यक्षेत्र बदलने के लिए सूत्र टैब से नाम प्रबंधक का उपयोग करें।

VBA में नामित सीमाओं का उपयोग करना

सेल A1 को सौंपी गई 'MyRange' नामक नई नामित सीमा बनाएँ

ThisWorkbook.Names.Add Name:="MyRange", _
    RefersTo:=Worksheets("Sheet1").Range("A1")

नाम से परिभाषित नाम सीमा हटाएं

ThisWorkbook.Names("MyRange").Delete

नाम से नामांकित सीमा

Dim rng As Range
Set rng = ThisWorkbook.Worksheets("Sheet1").Range("MyRange")
Call MsgBox("Width = " & rng.Value)

एक शॉर्टकट के साथ एक नामांकित सीमा तक पहुंचें

किसी भी अन्य श्रेणी की तरह , नामांकित श्रेणियों को सीधे शॉर्टकट नोटेशन के माध्यम से एक्सेस किया जा सकता है, जिसके लिए Range ऑब्जेक्ट को बनाने की आवश्यकता नहीं होती है। ऊपर दिए गए कोड अंश से तीन पंक्तियों को एक पंक्ति द्वारा प्रतिस्थापित किया जा सकता है:

Call MsgBox("Width = " & [MyRange])

नोट: एक रेंज के लिए डिफ़ॉल्ट संपत्ति, अपने मूल्य है, इसलिए [MyRange] के रूप में ही है [MyRange].Value

आप सीमा पर विधियों को भी कॉल कर सकते हैं। निम्नलिखित MyRange का चयन करता है:

[MyRange].Select

नोट: एक चेतावनी यह है कि शॉर्टकट नोटेशन उन शब्दों के साथ काम नहीं करता है जो VBA लाइब्रेरी में कहीं और उपयोग किए जाते हैं। उदाहरण के लिए, Width नाम की एक सीमा [Width] रूप में सुलभ नहीं होगी, लेकिन यह उम्मीद के मुताबिक काम करेगी, अगर ThisWorkbook.Worksheets("Sheet1").Range("Width") माध्यम से पहुँचा जा सकता है ThisWorkbook.Worksheets("Sheet1").Range("Width")

नाम प्रबंधक का उपयोग करके नामांकित श्रेणी प्रबंधित करें

सूत्र टैब> निर्धारित नाम समूह> नाम प्रबंधक बटन

नामित प्रबंधक आपको इसकी अनुमति देता है:

1. नाम बनाएँ या बदलें
2. सेल संदर्भ बनाएं या बदलें
3. दायरा बनाएं या बदलें
4. मौजूदा नाम सीमा हटाएं

नामित प्रबंधक टूटे हुए लिंक के लिए एक उपयोगी त्वरित रूप प्रदान करता है।

जिसका नाम रेंज एरे रखा गया है

उदाहरण पत्र

कोड

Sub Example()
    Dim wks As Worksheet
    Set wks = ThisWorkbook.Worksheets("Sheet1")
    
    Dim units As Range
    Set units = ThisWorkbook.Names("Units").RefersToRange
    
    Worksheets("Sheet1").Range("Year_Max").Value = WorksheetFunction.Max(units)
    Worksheets("Sheet1").Range("Year_Min").Value = WorksheetFunction.Min(units)
End Sub

परिणाम