Clic del ratón Evento en VBA

Supriyo preguntó si hay un controlador de eventos de ratón en VBA. Quiere un valor insertado en una célula cuando la célula que se hace clic sobre.

La forma habitual de hacerlo es con el evento SelectionChange. Cada vez que la selección cambia en la hoja de cálculo, se activa el evento. El evento no sólo se disparan cuando una célula se hace clic en, pero también si alguien presiona una tecla de control de cursor que se traduce en una celda diferente siendo seleccionado.

A modo de ejemplo, digamos que usted quería celda B5 para contener el valor 10 siempre que se seleccione esa celda. Para llevar a cabo esto, se puede utilizar el siguiente:

Private Sub Worksheet_SelectionChange (ByVal Target como gama)
Si no se intersectan (Target, Range ("B5")) no es nada Entonces _
Range ("B5"). Value = 10
End Sub

Se añade este código a uno de los objetos de hoja en el área Explorador de proyectos del Editor de Visual Basic. Haga doble clic en la hoja de trabajo que desea que el controlador de eventos a cargo y luego añadir la macro a la ventana de código resultante.

Cuando se activa el evento SelectionChange, el objetivo (el rango de celdas que se selecciona) se pasa al controlador. La macro comprueba si el rango de destino contiene la celda B5, y si lo hace, se mete el valor 10 en la celda B5. Si desea asegurarse de que el macro sólo mete información en B5 si sólo se selecciona B5 (la única célula), puede utilizar esta versión de la macro:

Private Sub Worksheet_SelectionChange (ByVal Target como gama)
Si Target.Address = Range ("B5"). Dirección Entonces _
Range ("B5"). Value = 10
End Sub

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (3070) se aplica a Microsoft Excel 97, 2000, 2002, y 2003. Usted puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y versiones posteriores) aquí: clic del ratón Evento en VBA.