Operadores logicos con Eventos de controles activeX
Publicado por Noe CS (1 intervención) el 20/10/2017 08:25:49
Que tal todo el mundo!
Desarrollé un programa en VBA y estoy en el proceso de reducción de código.
*Tengo un botón de comando de activeX que ejecuta un código largo al hacer clic;
*El mismo botón ejecuta el mismo código largo cuando se presiona "enter".
Este código lo pude reducir a la mitad, ejecutando el código largo en otra función:
__________________________________________________
Private sub codigolargo()
'aquí se ejecuta el código largo
Pero sigo ocupando espacio con la función 'click' y la función 'keydown'; así que la duda es si se pueden utilizar operadores lógicos para declarar algo similar a esto:
Desarrollé un programa en VBA y estoy en el proceso de reducción de código.
*Tengo un botón de comando de activeX que ejecuta un código largo al hacer clic;
*El mismo botón ejecuta el mismo código largo cuando se presiona "enter".
1
2
3
Private sub commandbutton_click()
'aquí se ejecuta el código largo
end sub
1
2
3
Private sub commandbutton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'aquí se ejecuta el código largo
end sub
Este código lo pude reducir a la mitad, ejecutando el código largo en otra función:
__________________________________________________
Private sub codigolargo()
'aquí se ejecuta el código largo
Pero sigo ocupando espacio con la función 'click' y la función 'keydown'; así que la duda es si se pueden utilizar operadores lógicos para declarar algo similar a esto:
1
2
3
4
5
private sub commandbutton_change()
if commandbutton_click=true or comandbutton_keydown=true then
'aquí se ejecuta código largo
end if
end sub
Valora esta pregunta
0