İçindekiler
☰
- Aşama 1Etkileşimli VBA Eğitimini Ücretsiz Çıkarın
- Adım 2VBA Eklentimiz Kodlamayı Kolay İndirme Yapıyor
- Aşama 3VBA Örnek Kodumuza bakın
- Bizi İşe AlınKarmaşık VBA Gereksinimi? Uzmanlarımızı işe alın.
Tek Satır Vektörünü Matrise Dönüştür
Bu, Matrisi Vektöre Dönüştür öğreticisinin tam tersi öğreticidir.
Aşağıdaki işlev, tek bir satır vektörü alır ve bir matrise dönüştürür:
| 123456789101112131415161718 | Varyant Olarak Create_Matrix(Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) Function Create_MatrixYeniden Karartma Temp_Array(No_Of_Cols_in_output, No_of_Rows_in_output)Tamsayı Olarak No_Of_Elements_In_Vector DimCol_Count Tamsayı olarak Dim, Row_Count Tamsayı olarakKarartma HücresiNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'BOŞ Koşulları Ortadan KaldırınVector_Range Hiçbir Şey Değilse İşlevden ÇıkNo_Of_Cols_in_output = 0 ise Fonksiyondan ÇıkNo_of_Rows_in_output = 0 ise İşlevden ÇıkNo_Of_Elements_In_Vector = 0 ise İşlevden ÇıkCol_Count için = 1 - No_Of_Cols_in_outputRow_Count için = 1 - No_of_Rows_in_outputTemp_Array(Col_Count, Row_Count) = Vector_Range.Cells(((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Sonraki Satır_SayısıSonraki Sütun_SayısıCreate_Matrix = Temp_ArrayBitiş İşlevi |
İşlev 3 bağımsız değişken alır:
• İlk vektörün aralığı
• Matriste gerekli olan satır sayısı
• Matriste gerekli olan sütun sayısı
Öyleyse, eğer sahipsek:
O zaman fonksiyonumuzu çağırabiliriz:
Dönüştürme_matrix(c7:c16,2,5)
Nereye:
1. c7:c16 matris aralığıdır
2. 2, matriste gerekli olan satır sayısıdır.
3. 5 gerekli sütun sayısıdır
Ve şunu elde ederiz:
.XLSM dosyasını bu fonksiyondan indirmek için buraya tıklayın.
