Segue um exemplo de subrotina em VBA que lê uma matriz de qualquer tamanho do Excel, com base nos parâmetros fornecidos: ``` Sub LerMatriz(matriz As Variant, linha As Integer, coluna As Integer) Dim i As Integer, j As Integer Dim linhas As Integer, colunas As Integer linhas = UBound(matriz, 1) colunas = UBound(matriz, 2) For i = 0 To linhas For j = 0 To colunas matriz(i, j) = Cells(linha + i, coluna + j).Value Next j Next i End Sub ``` Para utilizar essa subrotina, basta criar uma matriz no VBA e chamar a subrotina passando a matriz, o número da linha e o número da coluna onde o primeiro elemento da matriz se encontra. Por exemplo: ``` Sub Teste() Dim minhaMatriz(1 To 3, 1 To 4) As Variant LerMatriz minhaMatriz, 1, 1 'A partir daqui, a matriz minhaMatriz contém os valores lidos do Excel End Sub ``` Nesse exemplo, a subrotina lê uma matriz de 3 linhas e 4 colunas a partir da célula A1 do Excel e armazena os valores na matriz minhaMatriz.
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar