Saltar al contenido

MOSTRAR UN ARRAY EN UN SOLO MSGBOX

publicado

Hola de nuevo compañeros,

¿Cómo puedo hacer para mostrar toda la información contenida dentro de un array en un sólo cuadro MsgBox?

Tengo el siguiente código de pruebas con dos opciones disponibles, pero ninguna de las dos funciona:

Sub pruebas()
   ' Declaramos las variables...
   Dim miArray() As Variant
   miArray = Range(Cells(2, 1), Cells(2, 8))

   ' Opción 1:
'   MsgBox Join(miArray(1, 3), vbCr)

   ' Opción 2:
   For i = 0 To UBound(miArray)
      msgString = miArray(i) & vbCr
   Next i

   ' Mostramos el contenido del array...
   MsgBox "Los valores del Array son los siguientes: " & vbCr & msgString
End Sub

Featured Replies

publicado
Sub pruebas()
   ' Declaramos las variables...
   Dim miArray() As Variant
   
   'Opción 1
   miArray = Application.Transpose(Range(Cells(2, 1), Cells(2, 8)).Value)
   For i = 0 To UBound(miArray) - 1
      msgString = msgString & miArray(i + 1, 1) & vbCr
   Next i

   ' Mostramos el contenido del array...
   MsgBox "Los valores del Array son los siguientes: " & vbCr & msgString
End Sub

 

publicado
  • Autor
Hace 13 horas, Antoni dijo:
Sub pruebas()
   ' Declaramos las variables...
   Dim miArray() As Variant
   
   'Opción 1
   miArray = Application.Transpose(Range(Cells(2, 1), Cells(2, 8)).Value)
   For i = 0 To UBound(miArray) - 1
      msgString = msgString & miArray(i + 1, 1) & vbCr
   Next i

   ' Mostramos el contenido del array...
   MsgBox "Los valores del Array son los siguientes: " & vbCr & msgString
End Sub

 

Hola @Antoni, resuelto!! Pero tengo una pregunta: Existe alguna razón teórica por la cual no trabajes con "Option Base 1"?

publicado
Hace 8 horas, jesuspg dijo:

Hola @Antoni, resuelto!! Pero tengo una pregunta: Existe alguna razón teórica por la cual no trabajes con "Option Base 1"?

Absolutamente ninguna.

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.