Note: The other languages of the website are Google-translated. Back to English

¿Cómo cambiar el color de la pestaña de la hoja según el valor de la celda?

Normalmente, puede cambiar el color de la pestaña de manera fácil y rápida en Excel, pero, ¿alguna vez ha intentado cambiar el color de la pestaña en función del valor de la celda en una hoja de trabajo? Si está interesado en esta tarea, hablaré sobre algunos códigos para que coloree la pestaña de la hoja en función de un valor de celda específico en Excel.

Cambie el color de la pestaña de una hoja según el valor de la celda con el código VBA

Cambie varias pestañas de hojas según el valor de la celda con el código VBA


flecha azul burbuja derecha Cambie el color de la pestaña de una hoja según el valor de la celda con el código VBA

Por ejemplo, quiero que el color de la pestaña de la hoja actual sea verde si el valor de la celda en A1 es el texto "VERDADERO", el color de la pestaña será rojo si el texto en A1 es "FALSO", y el color de la pestaña será azul si el valor en la celda A1 es cualquier otro texto como se muestra en la siguiente captura de pantalla:

hoja doc color por valor 1

1. Haga clic con el botón derecho en la pestaña de la hoja cuyo color desea cambiar en función de los datos de la celda A1 y luego elija Ver código desde el menú contextual.

2. En la Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código VBA en el Módulo ventana.

Código de VBA: cambie el color de la pestaña de una hoja según el valor de la celda:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

hoja doc color por valor 2

Nota: En el código anterior, A1 es la referencia de celda en la que desea colorear la pestaña, "Verdadero,Falso”Son el texto que necesita, puede cambiarlos según sus necesidades y puede cambiar el color en el código según lo necesite.

3. Luego guarde y cierre esta ventana de código, ahora, cuando ingrese el texto "Verdadero" en la celda A1, el color de la pestaña actual se volverá verde, y cuando ingrese el texto "Falso" en la celda A1, el color de la pestaña se volverá rojo, y si se ingresa otro texto en la celda A1, el color de la pestaña se volverá azul automáticamente.


flecha azul burbuja derecha Cambie varias pestañas de hojas según el valor de la celda con el código VBA

Si necesita cambiar el color de las pestañas de varias hojas según el valor de una celda, aquí también hay un código que puede ayudarlo, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana, en la ventana abierta, haga doble clic ThisWorkbook bajo el Proyecto VBA sección, luego copie y pegue el siguiente código en el espacio en blanco Módulo:

Código de VBA: cambie varias pestañas de hojas según el valor de la celda:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Updateby Extendoffice 20160930
  Select Case Sheets("Master").Range("A1").Value
         Case "KTE"
             Sheets("Sheet1").Tab.Color = vbRed
         Case "KTO"
             Sheets("Sheet2").Tab.Color = vbGreen
         Case "KTW"
             Sheets("Sheet3").Tab.Color = vbBlue
         End Select
End Sub

hoja doc color por valor 3

Nota: En el código anterior, A1 y Master son la celda y la hoja de trabajo en la que desea colorear la pestaña, Sheet1, Sheet2, Sheet3 son las hojas de trabajo en las que desea colorear las pestañas. KTE, KTW, KTO son los valores de celda en A1 en los que desea colorear las pestañas, puede cambiar las referencias y los colores en el código según lo necesite.

2. Luego, guarde y cierre esta ventana de código, ahora, cuando ingrese el texto KTE en la celda A1 de la hoja maestra, la pestaña Hoja1 se coloreará en rojo, cuando ingrese KTO en la celda A1, la Hoja2 se coloreará en verde y cuando ingresa KTW en la celda A1, la Hoja3 se coloreará en azul, vea la captura de pantalla:

hoja doc color por valor 4


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (23)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Muy señor mío.
Por favor, ayúdenme a cambiar el color de la pestaña de la hoja según la fecha/día.

por ejemplo:-
si la hoja n.º 1 es domingo, entonces - ficha de hoja 'RED'
si la hoja n.° 2 es el lunes, entonces: pestaña de la hoja 'Verde'
si la hoja n.º 3 es martes, entonces - ficha de hoja 'Verde'
si la hoja n.° 4 es miércoles, entonces: pestaña de la hoja 'Verde'
si la hoja n.° 5 es jueves, entonces: pestaña de la hoja 'Verde'
si la hoja n.° 6 es el viernes, entonces: pestaña de la hoja 'Verde'
si la hoja n.° 7 es sábado, entonces: pestaña de la hoja 'Verde'

Por favor, ayúdame con el problema de Excel anterior.

Gracias y saludos
Faiz Ibn Uvaiz P.
Este comentario fue minimizado por el moderador en el sitio
Su descripción es un poco vaga en cuanto a lo que realmente está tratando de hacer. Si el libro de trabajo es solo para una semana, colorea las pestañas. Si la duración es superior a una semana, la solución es un poco más compleja. Hasta que detalle el problema, hay varias soluciones disponibles. Yo, y muchas personas, no gastaremos nuestro tiempo codificando 2,000 soluciones para usted de forma gratuita. Pero usted detalla el problema que podríamos proporcionar 1 solución.
Este comentario fue minimizado por el moderador en el sitio
¿Cómo puedo cambiar el color de una pestaña dependiendo del clima? Un rango de celdas tiene texto en ellas
Este comentario fue minimizado por el moderador en el sitio
La fórmula funciona para 'Verdadero': la pestaña de la hoja es ROJA, por lo que es genial, pero si la cambio de 'Verdadero' a 'Falso', quiero que la pestaña de la hoja tenga 'sin color'. ¿Cuál es la fórmula para que no haya color en la pestaña de la hoja si no se selecciona 'Verdadero'? Además, si quiero que la fórmula sea para un grupo de celdas, por ejemplo. A1:A30 ¿cuál es el código que uso?
Este comentario fue minimizado por el moderador en el sitio
Hola, Shannon:
El siguiente código de VBA puede hacerte un favor, pruébalo:

Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)
Dim xRg como rango
Establecer xRg = Intersecar(Objetivo, Rango("A1:A30"))
Si xRg no es nada, salga de Sub
Seleccionar caso Target.Value
Caso "Verdadero"
Me.Tab.Color = vbRed
Caso "Falso"
Me.Tab.Color = Falso
Fin Seleccionar
End Sub

¡Espero que esto le pueda ayudar!
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna manera de hacer que el color de la pestaña cambie según lo siguiente? Tengo una pestaña maestra donde las filas 3-7 son de color azul y se corresponderán con las pestañas correspondientes 3-7 (que se nombran según los valores de celda en el maestro en esas filas) que me gustaría de color azul. Luego, las filas 8-12 son de color verde y también corresponden a las pestañas 8-12 y así sucesivamente.
Este comentario fue minimizado por el moderador en el sitio
Ese fue un truco increíble.
Enlacé el color de la pestaña según el valor de la celda A1 (<>0 RED y =0 Green), sin embargo, la macro se ejecuta solo si selecciono A1, luego presiono F2 y luego presiono enter. Sin hacer esto, aunque el color de la pestaña (en función de su valor) debería ser, digamos rojo, pero se mantiene verde.
Estoy usando excel 2007.
Este comentario fue minimizado por el moderador en el sitio
¿Es posible hacer que esto funcione cuando la celda A1 puede tener las 3 respuestas en líneas separadas dentro de la celda? Es decir, KTE, KTO y KTW están todos presentes en la celda, ya que permite múltiples selecciones de una lista desplegable.
Este comentario fue minimizado por el moderador en el sitio
Estoy tratando de usar ese código y aplicarlo a una casilla de verificación, así que cuando marco la casilla, el color cambia, si lo desactivo, vuelve a cambiar (obtuve verdadero = verde, falso = rojo, si no = rojo) . Pero cuando marco y desmarco arroja un error 'objeto necesario'


Private Sub CheckBox1_Click ()
_____If Target.Address = "$e$5" Entonces 'error aquí
__________Seleccione el destino del caso.Valor
__________Caso "Falso"
_______________Me.Tab.Color = vbRed
__________Caso "Verdadero"
_______________Me.Tab.Color = vbVerde
__________ Caso Más
_______________Me.Tab.Color = vbRed
__________Finalizar Seleccionar
_____Terminara si
End Sub

Lo copié y pegué para verlo funcionar y luego lo ajusté a mi necesidad pero no encontraba la manera de hacerlo funcionar.
Este comentario fue minimizado por el moderador en el sitio
Estimados colegas,
Amablemente pida ayuda. Necesito cambiar el color de la pestaña de la hoja según el valor en formato [h]: mm. Por ejemplo, si el valor es inferior a las 20:00: rojo, >20:00, verde.
Gracias y saludos!
Este comentario fue minimizado por el moderador en el sitio
Estimados colegas,
Amablemente pida ayuda. Necesito cambiar el color de la pestaña de la hoja según el valor en formato [h]: mm. Por ejemplo, si el valor es inferior a las 20:00: rojo, >20:00, verde.
Gracias y saludos!
Este comentario fue minimizado por el moderador en el sitio
Hola Víctor,
El siguiente código de VBA puede resolver su problema, intente, ¡espero que pueda ayudarlo!

Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)
Dim xStr como cadena
Dim xSN como cadena
Dim xDate como cadena
Dim xAddress como cadena
Dim xArr() como cadena
Dim xI1 como entero
Dim xSM como cadena
xFecha = "20:00"
xDirección = "$A$1"
Si Target.Address <> xAddress, entonces salga de Sub
xStr = Destino.Texto
xArr = Dividir(xStr, ":")
Si (UBound(xArr) - LBound(xArr) + 1) > 2 Entonces Salir de Sub
xI1 = Int(xArr(0))
Si (Len(xArr(0)) - 2) < 1 Entonces
Si xI1 > 23 Entonces Salir de Sub
otro
Exit Sub
Si terminar
xSM = xArr(1)
En caso de error Ir a Err01
Si (Len(xSM) - 2) <> 0 Entonces Salir de Sub
Si Int (Izquierda (xSM, 1))> 5, entonces salga de Sub
Si Int (Derecha (xSM, 1))> 10, entonces salga de Sub
Si xI1 >= 20 Entonces
Me.Tab.Color = vbGreen
otro
Me.Tab.Color = vbRed
Si terminar
Err01:
End Sub
Este comentario fue minimizado por el moderador en el sitio
Estimado Skyyang,
Lo siento por los comentarios demasiado tarde. Esta fórmula funciona cuando cambio manualmente el valor en la celda. Pero eso no era lo que necesito.
El valor de la celda es el resultado de una fórmula de hojas de diferencias. Por ejemplo, esta es la fórmula en la celda "O13-'520'!AD3". Esto significa que el valor en esta celda está cambiando dependiendo del valor de la celda deferente en la hoja deferente. Lo que necesito es que el color de la hoja se cambie automáticamente cuando se cambia el valor en la celda "O13-'520'!AD3", cuando el valor en la celda "O13-'520'!AD3" está por debajo de las 05:00 - rojo , >20:00 verde, entre 05:00 y 20:00 marrón.
¡Gracias de antemano y saludos!
Este comentario fue minimizado por el moderador en el sitio
Hola a todos, ¿cómo cambio el color de la pestaña en función de un determinado valor en la columna de varias hojas? Gracias
Este comentario fue minimizado por el moderador en el sitio
¿Cómo vincularía la pestaña a un valor en una pestaña diferente? En mi ejemplo, tengo una pestaña con toda la información que se filtra a varias pestañas automáticamente. Sin embargo, cada pestaña se leerá en verde o rojo, dependiendo de si hay un saldo pendiente en la pestaña principal. ¿Se puede hacer esto usando este código y, de ser así, dónde escribo el enlace a la hoja maestra dentro de este código?
Este comentario fue minimizado por el moderador en el sitio
Hola,

Nunca antes había hecho código en Excel. Necesito un código que haga lo que hace este código, pero necesito otro parámetro.

Entonces lo que necesito es:

Si el valor de la celda no es 0, y/o si alguna otra celda tiene números, usando el conteo, cambie el color a rojo

Si el valor de la celda es 0 y esas otras celdas están vacías, usando el conteo, cambie el color a verde
Este comentario fue minimizado por el moderador en el sitio
Hola, tratar de cambiar el color de la pestaña según el valor en una hoja separada llamada Seguimiento aquí es lo que intenté, pero parece que no funciona. Gracias




Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)

'Actualizar por Extendoffice 20160930

Si Target.Address = "Seguimiento! $ C $ 2" Entonces

Seleccionar caso Target.Value

Caso "ip"

Me.Tab.Color = vbRed

Caso "w"

Me.Tab.Color = vbYellow

Caso "c"

Me.Tab.Color = vbGreen

Caso Else

Me.Tab.Color = vbBlue

Fin Seleccionar

Si terminar

End Sub
Este comentario fue minimizado por el moderador en el sitio
Hola Brad,
Para que el código se ejecute correctamente, no debe insertar el nombre de la hoja en el código, aplique el siguiente código: (haga clic en el nombre de la hoja en la que desea ejecutar este código y luego haga clic con el botón derecho en el nombre de la hoja y elija Ver código, luego pegar el código en el módulo)

Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)

'Actualizar por Extendoffice 20160930

Si Target.Address = "$C$2" Entonces

Seleccionar caso Target.Value

Caso "ip"

Me.Tab.Color = vbRed

Caso "w"

Me.Tab.Color = vbYellow

Caso "c"

Me.Tab.Color = vbGreen

Caso Else

Me.Tab.Color = vbBlue

Fin Seleccionar

Si terminar

End Sub

Por favor, inténtalo, ¡espero que te pueda ayudar!
Este comentario fue minimizado por el moderador en el sitio
Estoy buscando cambiar el color de la pestaña en función de uno de los 2 resultados de una fórmula. Tengo una fórmula de = SI ((Y (AA1="Ocupado",AA2="Ocupado",AA3="Ocupado",AA4=" Ocupado")),"Ocupado","Vacante")
Necesito que la pestaña sea roja si está "Ocupado" y verde si está "Vacante". Sin embargo, el código anterior en la publicación principal no reconoce la salida de If Than
Este comentario fue minimizado por el moderador en el sitio
Hola ,
necesito ayuda
Necesito cambiar el color de la pestaña de la hoja solo si en un cierto rango de celdas, tiene la fecha de hoy
Digamos, por ejemplo,
La columna L tiene algunas fechas en el formato (13-May-22)
Uno de los valores de la celda es la fecha de hoy, luego el color de la hoja de pestañas debe cambiar a rojo
Por favor, ayuda
Gracias de antemano
Este comentario fue minimizado por el moderador en el sitio
Me gustaría que mi pestaña cambie de color si alguna celda en la columna O o la columna P tiene un valor. es posible?

¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Quiero establecer el color de la pestaña de la hoja según el color de la celda j4 en cada hoja. Hay más de 18 pestañas y desea actualizar los colores de las pestañas cuando se abre el libro. Si no puedo actualizar cuando se abre, puedo ejecutar la macro después de que los equipos actualicen las hojas.
Este comentario fue minimizado por el moderador en el sitio
hola madera
Para resolver su problema, aplique el siguiente código: (Nota:: Copie y pegue el siguiente código en el ThisWorkbook modo de código)
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call SetSheetColor
End Sub

Private Sub Workbook_Open()
Call SetSheetColor
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call SetSheetColor
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call SetSheetColor
End Sub

Sub SetSheetColor()
Dim xWShs As Sheets
Dim xRg As Range
Dim xFNum As Integer
Dim xSh As Worksheet
On Error Resume Next
Set xWShs = Application.ActiveWorkbook.Sheets
For xFNum = 1 To xWShs.Count
    Set xSh = xWShs.Item(xFNum)
    Set xRg = xSh.Range("J4")
    xSh.Tab.Color = xRg.Interior.Color
Next
End Sub


https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-color-sheet.png

Por favor, inténtalo, ¡espero que te pueda ayudar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL