Andrew sabe cómo cambiar el color de las pestañas de la hoja de trabajo manualmente.

Sin embargo, le gustaría una forma de cambiar el color de la pestaña según un valor en una celda de la hoja de trabajo.

Para hacer esto, necesitará usar una macro. La clave es que desea cambiar la propiedad Color del objeto Tab, de esta manera:

ActiveSheet.Tab.Color = vbRed

La lógica que utilice para llegar al punto de realizar una asignación de color de este tipo depende de lo que quiera hacer y cuándo quiera hacerlo. Suponiendo que desea cambiar el color de la pestaña según lo que está en la celda A1, podría usar una macro como la siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)

MyVal = Range("A1").Text

With ActiveSheet.Tab         Select Case MyVal             Case "0"

.Color = vbBlack             Case "1"

.Color = vbRed             Case "2"

.Color = vbGreen             Case "3"

.Color = vbYellow             Case "4"

.Color = vbBlue             Case "5"

.Color = vbMagenta             Case "6"

.Color = vbCyan             Case "7"

.Color = vbWhite             Case Else                 .ColorIndex = xlColorIndexNone         End Select     End With End Sub

Debe agregar la macro al código de la hoja de trabajo cuya pestaña desea modificar. (Haga clic con el botón derecho en la pestaña de la hoja y elija Ver código en el menú contextual. Pegue el código en esa ventana de código). La macro toma lo que esté en la celda A1 y luego usa una estructura Seleccionar caso para cambiar el color de la pestaña. La lógica cambia el color si A1 contiene de 0 a 7. Si hay algo más allí (o nada en absoluto), entonces la propiedad ColorIndex se usa para restablecer el color de la pestaña a su valor predeterminado.

La macro podría modificarse para que lo que pruebe sea una cadena de texto (como «Negro», «Rojo», etc.) o alguna palabra clave (como «Bajo» o «Alto»). También puede usar diferentes designaciones de color con la propiedad Color, como la función RGB:

.Color = RGB(255, 0, 0)

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (13138) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.