वीबीए में रेंजों के एक ऐरे का उपयोग - एक्सेल

Question

क्या वीबीए श्रेणी चर के सरणी का उपयोग कर समर्थन करता है?

dim rangeArray() as range 
dim count as integer 
dim i as integer 

count = 3 

redim rangeArray(1 to count) 

for i = 1 to count 
    msgbox rangeArray(i).cells(1,1).value 
next 

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

Answer 1

नहीं, सरणी वस्तुओं को पकड़ नहीं सकती है। लेकिन ओ ऑब्जेक्ट ऑब्जेक्ट्स रख सकते हैं। मुझे लगता है कि आप जो चाहते हैं वह एक रेंज ऑब्जेक्ट है जिसमें विभिन्न विशिष्ट अन्य रेंज ऑब्जेक्ट होते हैं। इस उदाहरण में, rMaster मेरा "सरणी" है जिसमें तीन कोशिकाएं होती हैं।

Sub StoreRanges() 

    Dim rMaster As Range 
    Dim rCell As Range 

    Set rMaster = Sheet1.Range("A1") 
    Set rMaster = Union(rMaster, Sheet1.Range("A10")) 
    Set rMaster = Union(rMaster, Sheet1.Range("A20")) 

    For Each rCell In rMaster 
     MsgBox rCell.Address 
    Next rCell 

End Sub 

अपने नए पाया ज्ञान है कि सरणियों पर्वतमाला (thnx jtolle) पकड़ कर सकते हैं, आपके द्वारा एक सरणी में पर्वतमाला की दुकान और उन्हें सॉर्ट

Sub UseArray() 

    Dim aRng(1 To 3) As Range 
    Dim i As Long 

    Set aRng(1) = Range("a1") 
    Set aRng(2) = Range("a10") 
    Set aRng(3) = Range("a20") 

    BubbleSortRangeArray aRng 

    For i = LBound(aRng) To UBound(aRng) 
     Debug.Print aRng(i).Address, aRng(i).Value 
    Next i 

End Sub 

Sub BubbleSortRangeArray(ByRef vArr As Variant) 

    Dim i As Long, j As Long 
    Dim vTemp As Variant 

    For i = LBound(vArr) To UBound(vArr) - 1 
     For j = i To UBound(vArr) 
      If vArr(i).Value > vArr(j).Value Then 
       Set vTemp = vArr(i) 
       Set vArr(i) = vArr(j) 
       Set vArr(j) = vTemp 
      End If 
     Next j 
    Next i 

End Sub 

Answer 2

यह मेरे लिए बिल्कुल स्पष्ट नहीं है कि आप किस बारे में बात कर रहे हैं।

यदि आप Range एस बनाने की क्षमता के बारे में पूछ रहे हैं जो कि कुछ भी नहीं है और अपने आप पर मौजूद है, तो नहीं, कोई रास्ता नहीं है। Range ऑब्जेक्ट केवल कुछ ऐसा है जो वर्कशीट के किसी निश्चित क्षेत्र को संदर्भित करता है। इसमें अपने या कुछ का कोई भंडारण नहीं है। Range वर्ग के कई अलग-अलग उदाहरण भी वही वर्कशीट क्षेत्र का संदर्भ ले सकते हैं।

और यदि आप सिर्फ सरणी में कुछ संदर्भों को स्टोर करना चाहते हैं, तो यह ठीक है, इसके लिए जाएं। आपके कोड के साथ एकमात्र समस्या यह है कि आप उन्हें उपयोग करने से पहले सरणी तत्वों को प्रारंभ नहीं करते हैं: Range एक संदर्भ प्रकार है, इसलिए सभी तत्व डिफ़ॉल्ट रूप से Nothing s के साथ आरंभ किए जाते हैं।

Answer 3

यह पूरी तरह स्पष्ट नहीं है जाएगा का एक उदाहरण है कि तुम क्या करना चाहते हैं, लेकिन ...

यदि आप एक संग्रह चाहते हैं, तो वीबीए संग्रह ऑब्जेक्ट का उपयोग क्यों न करें?

Dim myRanges as New Collection 

एक संग्रह। यह एक रेंज समेत कोई वस्तु हो सकती है।

एक रेंज ऑब्जेक्ट में डेटा नहीं है; यह वर्कशीट कोशिकाओं का संदर्भ रखता है। यदि आप अपने संग्रह में श्रेणी सामग्री चाहते हैं, तो आपको उन्हें वर्कशीट से और कॉपी करना होगा।

जावा के साथ, आपके वीबीए वेरिएबल अस्थायी हैं, भले ही एक ऐरे या संग्रह में हों। यदि आप फ़ाइल को बंद करना चाहते हैं और जब आप इसे फिर से खोलते हैं तो वहां डेटा होता है, तो आपको इसे वर्कशीट सेल में रखना होगा। वर्कशीट्स आपकी दृढ़ता तंत्र हैं।

मैं यहां एक बड़ी छलांग लगाने जा रहा हूं, इसलिए यदि मैं रास्ता बंद कर रहा हूं, तो मुझे अनदेखा करें। मुझे लगता है कि आप जो खोज रहे हैं, वह आपके "डेटाबेस" के रूप में एक अलग वर्कशीट स्थापित करने का सुझाव देता है, जो आपके कच्चे डेटा वाले सूची/तालिका ऑब्जेक्ट्स के साथ पॉप्युलेट होता है। इसके सामने, आपकी "उपयोगकर्ता शीट" है जहां आप दिलचस्प चीजें करते हैं, डेटाबेस शीट में डेटा का जिक्र करते हैं। सबकुछ नाम दें।