वैरिएबल सरणी VBA

Question

पर मान जोड़ना मैं table के माध्यम से लूप करने की कोशिश कर रहा हूं जिसमें column"customers" and "dollar amount" के लिए है। अगर मेरे लूप को customer"greg" or "henry" कहा जाता है, तो मैं अज्ञात आकार की सरणी में अपना "dollar amount" जोड़ना चाहता हूं।

क्या कोई मेरी मदद कर सकता है?

Answer 1

यदि अज्ञात आकार से, तो आपका मतलब है कि तत्वों की संख्या अज्ञात है, आप गतिशील सरणी का उपयोग कर सकते हैं।

Dim aArray() As Single ' or whatever data type you wish to use 
ReDim aArray(1 To 1) As Single 
If strFirstName = "henry" Then 
    aArray(UBound(aArray)) = 123.45 
    ReDim Preserve aArray(1 To UBound(aArray) + 1) As Single 
End If 

Ubound (aArray) एक त्रुटि है, तो सरणी dimensioned नहीं किया गया है फेंकता है, इसलिए हम इसे करने के लिए एक तत्व जोड़कर शुरू करते हैं। यह हमें पाठ के अंत में एक खाली तत्व के साथ छोड़ देता है, इसलिए आपके कोड को इसके लिए जिम्मेदार होना चाहिए। AArray (Ubound (aArray) -1) आपको सरणी में अंतिम मान्य तत्व देगा।

Answer 2

Private Sub ArrayMy(DataRange) 
    Dim DataIndex() As String 
    i = 0 
    On Error Resume Next 
    ReDim DataIndex(0) 
    For Each c In DataRange 
     DataIndex(i) = c 
     i = i + 1 
     ReDim Preserve DataIndex(i) 
    Next 
End Sub