- Passo 1Tire o tutorial interativo do VBA grátis
- Passo 2Nosso suplemento VBA facilita o download da codificação
- etapa 3Consulte nosso código de amostra VBA
- Contrate-nosRequisito complexo do VBA? Contrate nossos especialistas.
Converter vetor de linha única em matriz
Este é o tutorial oposto do tutorial Converter Matriz em Vetor.
A função a seguir pega um vetor de linha única e converte em uma matriz:
| 123456789101112131415161718 | Função Create_Matrix (Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) As VariantReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector As IntegerDim Col_Count como inteiro, Row_Count como inteiroDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'Eliminar condições NULLSe Vector_Range for Nothing Then Exit FunctionSe No_Of_Cols_in_output = 0, então saia da funçãoSe No_of_Rows_in_output = 0, então saia da funçãoSe No_Of_Elements_In_Vector = 0, então saia da funçãoPara Col_Count = 1 Para No_Of_Cols_in_outputPara Row_Count = 1 para No_of_Rows_in_outputTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells (((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Próximo Row_CountPróximo Col_CountCreate_Matrix = Temp_ArrayFunção Final |
A função leva 3 argumentos:
• O intervalo do vetor inicial
• O número de linhas necessárias na matriz
• O número de colunas necessárias na matriz
Então, se tivermos:
Então podemos chamar nossa função:
Convert_to_matrix (c7: c16,2,5)
Onde:
1. c7: c16 é o intervalo da matriz
2. 2 é o número de linhas necessárias na matriz
3. 5 é o número de colunas necessárias
E nós temos:
Para baixar o arquivo .XLSM desta função, clique aqui.
