İçindekiler
Matrisi Vektöre Dönüştür
Bu, Tek Satır Vektörünü Matrise Dönüştürme öğreticisinin tam tersi öğreticidir.
Aşağıdaki işlev, bir aralığı matris olarak alacak ve onu tek bir sütun vektörüne dönüştürecektir:
Seçenek Açık İşlev Create_Vector(Matrix_Range As Range) As Variant Dim No_of_Cols As Integer, No_Of_Rows As Integer Dim i As Integer Dim j As Integer Dim Cell No_of_Cols = Matrix_Range.Columns.Count Temp_Of_Rows (No_Of_Rows) 'NULL Koşullarını Ortadan Kaldırma Matrix_Range Hiçbir Şey Değilse O Zaman_Sol Sayısı = 0 ise İşlevden Çık İşlevden Çık No_Of_Rows = 0 ise İşlevden Çık j = 1 İçin No_Of_Rows İçin i = 0 için_Sol Sayısı - 1 Temp_Array((i * No_Of_Rows) + Matrix_Range.Cells(j, i + 1) Sonraki i Sonraki j Create_Vector = Temp_Array End Function
Yani örneğin vektör:
Olacak:
Vektörü yazdırmak için aşağıdaki alt yordamı kullandığımız yer:
Private Sub CommandButton1_Click() Dim Vector Dim k As Integer Vector = Create_Vector(Sheets("Sayfa1").Range("A4:D8")) For k = 1 To UBound(Vector) Sheets("Sayfa1").Range(" B20").Offset(k, 1).Value = Vector(k) Sonraki k End Sub
Bu rutinlerin hem sayılar hem de metin üzerinde çalıştığını unutmayın.
Bu öğreticiden .XLSM dosyasını indirmek için burayı tıklayın.