Excel - Operadores logicos con Eventos de controles activeX

   
Vista:

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".

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad