Índice

Solución 5.6 Declarar y utilizar una tabla de dos dimensiones

Sub EX6()  
    Dim intTab2D(1 To 5, 1 To 5) As Integer 
    Dim intLinea As Integer 
    Dim intColumna As Integer 
    VBA.Randomize 
    For intLinea = 1 To 5 
        For intColumna = 1 To 5 
            intTab2D(intLinea, intColumna) = (100 * VBA.Rnd) + 1 
            Debug.Print "Línea", ...