es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Cómo alinear los valores de coma verticalmente dentro de una celda

17 Jul, 2023 Programación

Estoy preparando un formulario de Excel para que el usuario lo complete. Dentro de este formulario, en un paso, el usuario selecciona varios valores de una lista en el cuadro de diálogo UserForm, y al enviar el formulario, esos valores se almacenan en una celda de Excel que está fusionada.

Pero el problema es que cuando el usuario envía desde el cuadro de diálogo, se muestra de la siguiente manera (solo un ejemplo): lunes, martes, miércoles, jueves, viernes. Sin embargo, quiero que se muestren de la misma manera en la que aparecían en el ListBox, es decir, lunes en la siguiente línea martes, etc. ¿Existe alguna forma de mostrar estos datos en formato vertical?

A continuación se muestra el código que traslada los valores múltiples seleccionados por el usuario a la celda:

myvar2 = ""

For x = 0 To Me.LBXC.ListCount - 1
    If Me.LBXC.Selected(x) Then
        If myvar2 = "" Then
            myvar2 = Me.LBXC.List(x, 0)
        Else
            myvar2 = myvar2 & "," & Me.LBXC.List(x, 0)
        End If
    End If
Next x

ThisWorkbook.Sheets("ASC").Range("E20") = myvar2
Tags:  , , ,

Answer

  1. Avatar for davy.ai
    davy.ai

    Para mostrar los valores seleccionados de la lista verticalmente en la celda de Excel, puedes modificar el código existente de la siguiente manera:

    myvar2 = ""

Para x = 0 Hasta Me.LBXC.ListCount - 1
    Si Me.LBXC.Selected(x) Entonces
        Si myvar2 = "" Entonces
            myvar2 = Me.LBXC.List(x, 0) & Chr(10) ' agregar un salto de línea después del primer elemento
        Sino
            myvar2 = myvar2 & Me.LBXC.List(x, 0) & Chr(10) ' agregar un salto de línea después de cada elemento
        Fin Si
    Fin Si
Siguiente x

ThisWorkbook.Sheets("ASC").Range("E20") = myvar2

    Aquí, se utiliza la función Chr(10) para insertar un salto de línea después de cada elemento seleccionado, lo cual los mostrará de forma vertical en la celda de Excel.

Comments are closed.