** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - VBA: Access. Trasponer Array
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: Access. Trasponer Array

 Responder Responder
Autor
Mensaje Invertir el orden de clasificación
genoma111 Ver desplegable
Administrador
Administrador
Avatar

Unido: 28/Marzo/2011
Localización: ...
Estado: Sin conexión
Puntos: 3248
Enlace directo a este mensaje Tema: VBA: Access. Trasponer Array
    Enviado: 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable