Imprimir página | Cerrar ventana

Llenar varios COMBOBOX con los mismos items

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Word
Descripción del foro: Foro de Word
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86103
Fecha de impresión: 27/Septiembre/2023 a las 01:00


Tema: Llenar varios COMBOBOX con los mismos items
Publicado por: MILGUAKI
Asunto: Llenar varios COMBOBOX con los mismos items
Fecha de publicación: 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


Respuestas:
Publicado por: xavi
Fecha de publicación: 06/Septiembre/2021 a las 09:49
Pregunta: los combobox, ¿están en el documento o en un UserForm?

-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: MILGUAKI
Fecha de publicación: 06/Septiembre/2021 a las 10:44
Los Combobox están en el formulario, ya que el documento está oculto.

Publicado por: MILGUAKI
Fecha de publicación: 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.

Publicado por: xavi
Fecha de publicación: 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

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: MILGUAKI
Fecha de publicación: 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.


Imprimir página | Cerrar ventana