विषय - सूची
मैट्रिक्स को वेक्टर में बदलें
यह एकल पंक्ति वेक्टर को मैट्रिक्स ट्यूटोरियल में परिवर्तित करने का विपरीत ट्यूटोरियल है।
निम्नलिखित फ़ंक्शन एक मैट्रिक्स के रूप में एक श्रेणी लेगा और इसे एकल कॉलम वेक्टर में परिवर्तित करेगा:
विकल्प स्पष्ट कार्य Create_Vector(Matrix_Range as Range) वैरिएंट Dim No_of_Cols के रूप में Integer, No_Of_Rows as Integer Dim i as Integer Dim j Integer Dim Cell No_of_Cols = Matrix_Range.Columns.Count No_Of_Rows = Matrix.Rows 'न्यूल शर्तों को हटा दें यदि मैट्रिक्स_रेंज कुछ भी नहीं है तो फ़ंक्शन से बाहर निकलें यदि No_of_Cols = 0 फिर फ़ंक्शन से बाहर निकलें यदि No_Of_Rows = 0 तो j = 1 से No_Of_Rows के लिए फ़ंक्शन से बाहर निकलें i = 0 से No_of_Cols - 1 Temp_Array ((i * No_Of_Rows) + j) = Matrix_Range.Cells(j, i + 1) Next i Next j Create_Vector = Temp_Array End Function
तो उदाहरण के लिए वेक्टर:
हो जाएगा:
जहां हमने वेक्टर को प्रिंट करने के लिए निम्नलिखित सबरूटीन का उपयोग किया है:
निजी उप कमांडबटन 1_क्लिक () डिम वेक्टर डिम के इंटीजर वेक्टर = क्रिएट_वेक्टर (शीट्स ("शीट 1")। रेंज ("ए 4: डी 8")) के लिए के = 1 टू यूबाउंड (वेक्टर) शीट्स ("शीट 1")। रेंज ("शीट 1")। B20")। ऑफसेट (के, 1)। मान = वेक्टर (के) अगला के अंत उप
ध्यान दें कि ये रूटीन नंबर और टेक्स्ट दोनों पर काम करते हैं।
इस ट्यूटोरियल से .XLSM फ़ाइल डाउनलोड करने के लिए, यहाँ क्लिक करें।
