Eventos del CommandButton

CommandButton

Dicho control hace referencia al botón de comando el cual permite ejecutar alguna rutina, procedimiento o fórmula especificada en Visual Basic a través de un botón incluido en la hoja de Excel misma o a través de un UserForm.

Dicho control permite realizar 13 eventos:

• BeforeDragOver
• BeforeDropOrPaste
• Click
• DblClick
• Error
• GotFocus
• KeyDown
• KeyPress
• KeyUp
• LostFocus
• MouseDown
• MouseMove
• MouseUp

Primero es necesario crear un UserForm con el proceso que queramos realizar. Desde este UserForm es que se llamará a la función a la hoja de Excel donde el botón se encuentre. Para crear un botón en Excel es necesario ir a la pestaña Programador en la barra de herramientas, seleccionar el modo edición y colocar el botón desde ActiveX, luego darle doble clic y colocar la rutina:

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Este es el primer ejemplo de una de los principales eventos a explicar: Click, dicho evento se activa al clicar el botón en cuestión, en el caso a tratar genera la ventana:

Otros de los principales eventos son: GotFocus, LostFocus, MouseDown, MouseMove y MouseUp. Los primeros dos eventos se activan a partir de la relación del evento con el foco, si recibe foco se activa GotFocus, mientras que si lo pierde se activa el evento LostFocus.

Private Sub CommandButton1_GotFocus()
UserForm1.Show
End Sub

Por otra parte los últimos tres están relacionados a la posición del cursos respecto del botón. Si el cursor está debajo del botón de comando este se activará en el 3° caso, si el cursor se mueve encima de dicho botón se activará el evento y finalmente si el cursor está encima del botón se activará el evento.

Elaborado por: José Raunelli