वीबीए सरणी लंबाई / आकार

यह ट्यूटोरियल आपको सिखाएगा कि VBA में किसी ऐरे की लंबाई (आकार) कैसे प्राप्त करें।

सरणी लंबाई प्राप्त करें

एक सरणी की लंबाई प्राप्त करने के लिए, आपको सरणी की शुरुआत और अंत स्थिति जानने की जरूरत है। आप इसे वीबीए के यूबाउंड और एलबाउंड फ़ंक्शंस के साथ कर सकते हैं।

एलबाउंड और यूबाउंड फ़ंक्शंस

यह प्रक्रिया दर्शाती है कि एकल आयाम सरणी पर UBound और LBound फ़ंक्शंस का उपयोग कैसे करें:

123456

उप यूबाउंडएलबाउंड ()मंद exArr(1 से 4) स्ट्रिंग के रूप मेंMsgBox UBound(exArr)MsgBox LBound(exArr)अंत उप

दोनों को घटाने पर आपको सरणी की लंबाई मिलेगी (यूबाउंड - एलबाउंड +1).

ऐरे लेंथ फंक्शन प्राप्त करें

यह फ़ंक्शन एकल-आयामी सरणी के आकार (लंबाई) की गणना करेगा:

1234567

सार्वजनिक समारोह GetArrLength (एक संस्करण के रूप में) लंबे समय तकयदि खाली है (ए) तोGetArrLength = 0अन्यथाGetArrLength = UBound(a) - LBound(a) + 1अगर अंतअंत समारोह

2D सरणी आकार प्राप्त करें

यह फ़ंक्शन द्वि-आयामी सरणी में पदों की संख्या की गणना करेगा:

12345678910111213141516171819

उप परीक्षणअरी आकार ()मंद arr2D(१ से ४, १ से ४) लंबे समय तकMsgBox GetArrSize_2D(arr2D)अंत उपसार्वजनिक समारोह GetArrSize_2D (एक संस्करण के रूप में) लंबे समय तकमंद x जितना लंबा, y जितना लंबायदि खाली है (ए) तोGetArrSize_2D = 0अन्यथाx = UBound(a, 1) - LBound(a, 1) + 1y = UBound(a, 2) - LBound(a, 2) + 1GetArrSize_2D = x * yअगर अंतअंत समारोह