** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Word
  Mensajes nuevos Mensajes nuevos RSS - Llenar varios COMBOBOX con los mismos items
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoLlenar varios COMBOBOX con los mismos items

 Responder Responder
Autor
Mensaje
MILGUAKI Ver desplegable
Nuevo
Nuevo


Unido: 25/Mayo/2021
Localización: MÁLAGA
Estado: Sin conexión
Puntos: 20
Enlace directo a este mensaje Tema: Llenar varios COMBOBOX con los mismos items
    Enviado: 05/Septiembre/2021 a las 11:17
Buenos días (Otra pregunta de novato)

Estoy con un Formulario en un documento Word, y ese formulario tiene varios Combobox que tienen los mismos ítems en la lista desplegable.

Ejemplo:

Como ese documento tiene varios campos con nombre de persona, hay un Combobox con el sexo , cuyos ítems son "MASCULINO" "FEMENINO"

Se que se pueden añadir Items de la siguiente forma:

ComboBox1.AddItem ("MASCULINO")
ComboBox1.AddItem ("FEMENINO")

ComboBox2.AddItem ("MASCULINO")
ComboBox2.AddItem ("FEMENINO")

ComboBox3.AddItem ("MASCULINO")
ComboBox3.AddItem ("FEMENINO")

Y así, hasta el infinito y mas allá.

La pregunta es (y puede que sea una chorrada de pregunta, pero no se como se hace)

¿Hay alguna manera de añadir los mismos ítems a varios Combobox para simplificar el código?

Nota: El ejemplo que he puesto es un poco chorra, y pregunto esto porque en el Formulario que estoy haciendo hay muchos combos compartidos con muchos ítems comunes.
         Si el formulario estuviera en excel o en access si sabría hacerlo, pero en Word ni idea.

Gracias y perdonad el tocho

Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 06/Septiembre/2021 a las 09:49
Pregunta: los combobox, ¿están en el documento o en un UserForm?
Xavi, un minyó de Terrassa

Mi web
Arriba
MILGUAKI Ver desplegable
Nuevo
Nuevo


Unido: 25/Mayo/2021
Localización: MÁLAGA
Estado: Sin conexión
Puntos: 20
Enlace directo a este mensaje Enviado: 06/Septiembre/2021 a las 10:44
Los Combobox están en el formulario, ya que el documento está oculto.
Arriba
MILGUAKI Ver desplegable
Nuevo
Nuevo


Unido: 25/Mayo/2021
Localización: MÁLAGA
Estado: Sin conexión
Puntos: 20
Enlace directo a este mensaje Enviado: 06/Septiembre/2021 a las 10:44
Publicado originalmente por xavi xavi escribió:

Pregunta: los combobox, ¿están en el documento o en un UserForm?

Los Combobox están en el formulario, ya que el documento está oculto.
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 06/Septiembre/2021 a las 11:29
Un UserForm creo que se comporta igual que en Excel por lo que no veo el problema.

En el caso de tener un montón de combos numerados (ComboBox1, ComboBox2...ComboBoxN) se trataría de utilizar un bucle:

Private Function RellenaCombosNumerando(intNumControles As Integer)
    Dim arrValores As Variant
    Dim i As Integer
    Dim j As Integer
    

    arrValores = Array("Masculino", "Femenino")
    
    For i = 0 To intNumControles
        For j = 0 To UBound(arrValores)
            Me("ComboBox" & i).AddItem arrValores(j)
        Next j
    Next i

End Function

Si los combos tienen nombres variopintos, puedes utilizar un doble Array:

Private Function RellenaCombosNombre()
    Dim arrControles As Variant
    Dim arrValores As Variant
    Dim i As Integer
    Dim j As Integer
    

    arrControles = Array("unCombo", "otroCombo", "aunOtroCombo")
    arrValores = Array("Masculino", "Femenino")
    
    For i = 0 To UBound(arrControles)
        For j = 0 To UBound(arrValores)
            Me(arrControles(i)).AddItem arrValores(j)
        Next j
    Next i

End Function

Escrito al vuelo. Espero te sirva

Un saludo

Xavi, un minyó de Terrassa

Mi web
Arriba
MILGUAKI Ver desplegable
Nuevo
Nuevo


Unido: 25/Mayo/2021
Localización: MÁLAGA
Estado: Sin conexión
Puntos: 20
Enlace directo a este mensaje Enviado: 07/Septiembre/2021 a las 10:35
ClapClap

Muchas gracias.

Me ha funcionado con el doble array (con el bucle no lo he conseguido, seguramente hice algo mal)

Reitero, muchísimas gracias
ClapClap

Editado para eliminar una cita completa innecesaria al mensaje justo anterior.


Editado por xavi - 07/Septiembre/2021 a las 12:17
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable