¿Cómo cambiar el color de la fila con un clic en Uso de VBA en Microsoft Excel 2010
En este artículo, aprenderá a cambiar el color de la fila con un clic.
Haga clic en la pestaña Desarrollador. Desde el grupo Código, seleccione Visual Basic
Ingrese el siguiente código en la hoja de trabajo actual (sheet1 en nuestro ejemplo)
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim rownumber As Integer
rownumber = ActiveCell.Row
Si ActiveCell.Value <> «» Entonces
Rango («A» & rownumber & «: D» & rownumber) .Interior.ColorIndex = 6
Finalizar si
End Sub
El evento SelectionChange se activará cada vez que el usuario seleccione cualquier celda y cambiará el color de blanco a amarillo.
Si la celda activa está vacía, el código no se ejecutará.
Si hacemos clic en la celda B3, la fila se resaltará en color amarillo. Consulte la instantánea que se muestra a continuación
Aquí, puede ver que la barra de fórmulas muestra la celda seleccionada, es decir, la celda B3.Si seleccionamos la celda A8, la fila 8 se resaltará. Consulte la instantánea que se muestra a continuación.
En caso de que desee resaltar solo una fila a la vez, debe agregar una línea al código anterior.
Código añadido:
Rango («A1: D13»). Interior.ColorIndex = xlNone
El código se convierte en:
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim rownumber As Integer
rownumber = ActiveCell.Row
Si ActiveCell.Value <> «» Entonces
Rango («A1: D13»). Interior.ColorIndex = xlNone
Rango («A» & rownumber & «: D» & rownumber) .Interior.ColorIndex = 6
Finalizar si
End Sub
Ahora, solo se resaltará una fila en un momento determinado.
De esta manera, puede resaltar las filas con un solo clic, utilizando el código VBA.