Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
añadir valores a un combobox para chechbox
7 views
Skip to first unread message
Ady Fitiu
Nov 5, 2020, 10:01:36 AM11/5/20
to
si alguien puede sacarme de duda...
Tengo que hacer un desplegable con una lista de elementos y luego, dependiendo del elemento elegido en la lista desplegable, se marcarán las casillas de verificación.
Por ejemplo, para el primer elemento, se marque las primeras 5 casillas de verificación. Para el segundo elemento, la casilla de verificación 1, 3 y 5 y así sucesivamente ...
Este es mi código en este momento:
Private Sub ComboBox1_Change()
ComboBox1.AddItem("Puesto1")
ComboBox1.AddItem("Puesto2")
If ComboBox1.ListIndex = puesto1 Then
CheckBox101.Value = True
CheckBox102.Value = True
CheckBox103.Value = True
CheckBox104.Value = True
CheckBox105.Value = True
else: ComboBox1.ListIndex = Puesto2
CheckBox101.Value = True
CheckBox102.Value = False
CheckBox103.Value = True
CheckBox104.Value = False
CheckBox105.Value = True
End If
End Sub
no consigo hacer funcionar los valores del cuadro combinado
Tengo que hacer un desplegable con una lista de elementos y luego, dependiendo del elemento elegido en la lista desplegable, se marcarán las casillas de verificación.
Por ejemplo, para el primer elemento, se marque las primeras 5 casillas de verificación. Para el segundo elemento, la casilla de verificación 1, 3 y 5 y así sucesivamente ...
Este es mi código en este momento:
Private Sub ComboBox1_Change()
ComboBox1.AddItem("Puesto1")
ComboBox1.AddItem("Puesto2")
If ComboBox1.ListIndex = puesto1 Then
CheckBox101.Value = True
CheckBox102.Value = True
CheckBox103.Value = True
CheckBox104.Value = True
CheckBox105.Value = True
else: ComboBox1.ListIndex = Puesto2
CheckBox101.Value = True
CheckBox102.Value = False
CheckBox103.Value = True
CheckBox104.Value = False
CheckBox105.Value = True
End If
End Sub
no consigo hacer funcionar los valores del cuadro combinado
0 new messages