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

¿Cómo cambiar el valor según el color de la celda en Excel?

Este artículo habla de cambiar el valor de la celda automáticamente en función de su color de fondo en Excel. Por ejemplo, si las celdas se llenan con color de fondo rojo en la selección, entonces complete estas celdas con el número 1, y para las celdas de color de fondo azul, complete el número 0.

Cambiar el valor según el color de la celda con el código VBA


Cambiar el valor según el color de la celda con el código VBA

Puede ejecutar el siguiente código VBA para cambiar el valor según el color de la celda en Excel. Haz lo siguiente.

1. Seleccione el rango que necesita para cambiar los valores según el color de fondo, luego presione otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie y pegue el siguiente código VBA en la ventana del Módulo.

Código de VBA: cambie el valor según el color de la celda en Excel

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. presione el F5 para ejecutar el código, entonces puede ver que todas las celdas rojas en el rango seleccionado están llenas con el número 1, y las celdas azules están llenas con el número 0 como se muestra a continuación.

 

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 (11)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¿Qué cambios en el código serían necesarios si quisiera que esto se aplicara al color del texto de una celda, en lugar del color de la celda?
Este comentario fue minimizado por el moderador en el sitio
Estoy buscando darle un nombre a una celda basado en el color dentro de una hoja de trabajo. es decir, si una celda es roja, se denomina "nombre", si es naranja, se denomina "apellido", etc.



¿Qué código tendría que cambiar para tener el rango como la hoja/pestaña completa y un nombre en lugar de un valor?
Este comentario fue minimizado por el moderador en el sitio
Excel parece bloquearse cada vez que intento ejecutar el código VBA. Parece un busto.
Este comentario fue minimizado por el moderador en el sitio
Buenos días,
El código funciona bien en mi caso. ¿Puedes decirme tu versión de Excel? Gracias por tu comentario.
Este comentario fue minimizado por el moderador en el sitio
Estoy en el mismo barco, tratando de ejecutar esto, pero el código parece bloquearse. Excel 2016.
Este comentario fue minimizado por el moderador en el sitio
¿Es posible ajustar este código según la regla de formato condicional de las celdas?
Este comentario fue minimizado por el moderador en el sitio
El código funciona bien para mí, pero necesitaría volver a escribir el código para que se ajuste a los colores específicos de mi documento. Pero no se que codigo tienen "mis colores", alguien que sepa donde puede encontrar codigos para otros colores?
Este comentario fue minimizado por el moderador en el sitio
¿Cómo lo ejecutas? Corro pero parece que nada sucede.
Este comentario fue minimizado por el moderador en el sitio
Puede reemplazar colores por valores simplemente usando la función Buscar y reemplazar. Vaya a la función de formato en el lado derecho del cuadro de diálogo Buscar y reemplazar y luego, en "Rellenar", puede seleccionar el color que tiene. Luego, en "reemplazar con", simplemente escriba el valor que desea.
Este comentario fue minimizado por el moderador en el sitio
Encontré este golpe de suerte que fue útil, ¡pero no sé dónde encontrar un directorio completo!
http://cdn-0.access-excel.tips/wp-content/uploads/2015/08/excel_vbcolor_10.png 
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna manera de hacer esto, pero hacer que pase automáticamente por varios archivos?
Para el contexto, se enviaron cuestionarios a un par de cientos de instalaciones, su respuesta MC seleccionada corresponde a un puntaje que indica un color (por ejemplo, verde es bueno, rojo es malo) y cambia el contenido de la celda (con un proceso como en este hilo) a algo que R u otro software podría leer, y luego usarlo para generar informes automáticos. Podría revisar cada uno de estos archivos con esta macro (o una idea completamente diferente), pero eso llevaría mucho tiempo.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

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