Imprimir página | Cerrar ventana

VBA: Access. Trasponer Array

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=77984
Fecha de impresión: 15/Agosto/2020 a las 02:28


Tema: VBA: Access. Trasponer Array
Publicado por: genoma111
Asunto: VBA: Access. Trasponer Array
Fecha de publicación: 24/Noviembre/2013 a las 11:55
Una función simple para trasponer un array 2D.

'----------------------------------------------------------------------------
' Name:         ArrayT
' Purpose:      Traspone un array 2D.
' Description:  w:  El nombre del array.
' Author:       Diego F.Pereira-Perdomo
' Date:         Nov-24-2013
'----------------------------------------------------------------------------
Public Function ArrayT(w0 As Variant) As Variant
    Dim i0  As Long
    Dim j0  As Long
    Dim i1  As Long
    Dim j1  As Long
   
    Dim w1  As Variant
   
    i0 = UBound(w0, 1)
    j0 = UBound(w0, 2)
   
    ReDim w1(j0, i0)
   
    For i1 = 0 To j0
        For j1 = 0 To i0
            w1(i1, j1) = w0(j1, i1)
        Next j1
    Next i1
   
    ArrayT = w1
End Function



-------------
"To VBA or not to VBA... that's the question" DFP



Imprimir página | Cerrar ventana