एक्सेल वीबीए

Question

में ऐरे फ़ंक्शन मेरे पास वीबीए में एक फ़ंक्शन है जो तारों की एक सरणी उत्पन्न करता है। यह एक और वीबीए समारोह से बुलाया जाने पर ठीक काम करता है, लेकिन जब वर्कशीट से नहीं कहा जाता है।

यह ऐसे इस्तेमाल किया जाना चाहिए:

• चयन A1: A3
• सूत्र बार =Test() में लिखने, तो Ctrl-Shift-Enter मारा यह एक सरणी समारोह
• A1 A शामिल करना चाहिए बनाने के लिए, A2 चाहिए B, और ए 3 में C

जब मैं वास्तव में यह कोशिश करता हूं, तो पु सरणी के सभी तीन कोशिकाओं में टी A। मैं सरणी की विभिन्न कोशिकाओं में Test द्वारा वापस लौटा डेटा कैसे प्राप्त कर सकता हूं?

---

उन लोगों के लिए जो इसे देखना चाहते हैं, यहां फ़ंक्शन का कोड है। ध्यान रखें, फ़ंक्शन ठीक काम करता है जब अन्य कार्यों से बुलाया जाता है।

Function Test() As String() 
    Dim a(1 To 3) As String 
    a(1) = "A" 
    a(2) = "B" 
    a(3) = "C" 
    Test = a 
End Function 

Answer 1

यदि आप डेटा को ट्रांसफर करते हैं तो आप ठीक काम करते हैं। ऐसा करने के लिए, आप Variant() बजाय String() की जरूरत है:

Function Test() As Variant() 
    Dim a(1 To 3) As Variant 
    a(1) = "A" 
    a(2) = "B" 
    a(3) = "C" 
    Test = Application.Transpose(a) 
End Function 

Answer 2

बस पता लगा समस्या - एक सरणी VBA से एक्सेल में जाने का पहला आयाम क्षैतिज, ऊर्ध्वाधर नहीं है। Test के आउटपुट को देखने के लिए, ए 1: सी 1 (ए 1: ए 3 नहीं) में सरणी फ़ंक्शन =Test() डालें।

Answer 3

आप Chip Pearson's advice on returning an array from a UDF जांच करना चाह सकते।

यह मेरी पहली प्रतिक्रिया है। मुझे उम्मीद है कि यह अनुचित नहीं है।

Answer 4

मैं इसे सरल हमेशा 2-आयामी सरणी के साथ काम करने लगता है, तो आप स्थानांतरित आदि

Function Test() As String() 
    Dim a(1 To 3, 1) As String 
    a(1, 1) = "A" 
    a(2, 1) = "B" 
    a(3, 1) = "C" 
    Test = a 
End Function