Como escribir de dereita a esquerda en Microsoft Office 2016, 2019 / 365?
Aprende a cambiar de teclado LTR a RTL en Microsoft Word.
Como configurar a cor da cela de Excel segundo unha condición con VBA?
Última actualización: agosto de 2021; Microsoft Excel 365, 2019, 2016.
No titorial de automatización de VBA para Excel de hoxe aprenderemos sobre como podemos cambiar a cor dunha cela mediante programación en función do valor da cela.
Podemos usar esta técnica cando desenvolvemos un panel de estado sinxelo, por exemplo.
Montar
Se aínda non estás a desenvolver en Excel, recomendámosche que consultes a nosa guía de introdución ás macros de Excel . En concreto, cómpre asegurarse de que a pestana Programador estea dispoñible na cinta de Microsoft Excel, xa que a utilizará para escribir un código sinxelo.
- Abra Microsoft Excel. Teña en conta que espérase que o código proporcionado neste titorial funcione en Excel 2007 e posteriores.
- Nunha folla de traballo baleira, engade a seguinte táboa:
- Agora vai adiante e define un rango nomeado premendo: Fórmulas>>Define nome
- Preme Aceptar
Cambiando a cor interior da cela en función do valor con Cell.Interior.Color
- Fai clic na entrada do programador na cinta.
- Preme Visual Basic ou Alt+F11 para abrir o editor VBA para desenvolvedores.
- A continuación, resalte a folla de traballo na que desexa executar o seu código. Alternativamente, selecciona un módulo que teña o teu código VBA.
- Continúa e pega este código. No noso exemplo modificaremos a cor interior dun rango de celas a valores RGB específicos de celas correspondentes ás cores vermella, amarela e verde.
- En concreto utilizamos o método Excel VBA Cell.Interior.Color e pasamos o valor RGB ou índice de cor correspondente.
Sub Color_Cell_Condition()
Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range
Set StatusRange = Range("Status")
For Each MyCell In StatusRange
StatValue = MyCell.Value
Select Case StatValue
Case "Progressing"
MyCell.Interior.Color = RGB(0, 255, 0)
Case "Pending Feedback"
MyCell.Interior.Color = RGB(255, 255, 0)
Case "Stuck"
MyCell.Interior.Color = RGB(255, 0, 0)
End Select
Next MyCell
End Sub- Executa o teu código, premendo F5 ou Executar>> Executar Sub/Formulario de usuario.
- Notarás que o panel de estado se encheu como se mostra a continuación:
- Garda o teu código e pecha o teu editor VBA.
Como configurar a cor da fonte do texto de Excel con VBA?
Aprende a usar Excel VBA para cambiar o texto, a cor, o tamaño e as propiedades da cela mediante programación.
Como comprobar se unha cela ou un intervalo de varias celas está baleiro con Excel VBA?
Aprende a programar vba para buscar celas baleiras nunha folla de traballo ou rango de celas.
Rendemento lento de Microsoft Word? Sete consellos para facer que Word 365 / 2019 / 2016 funcione moito máis rápido
Aprende como podes facer que Word 365 funcione máis rápido desactivando os complementos, actualizando o teu hardware e eliminando
Podo eliminar os ficheiros vc_red do disco duro do meu ordenador persoal?
Aprende todo o necesario sobre a instalación de VC_RED e os ficheiros de armario. É seguro eliminalos do teu sistema operativo Windows 7 e 10?
Mostrar o texto do encabezado e do pé de páxina só na primeira páxina en Word 365/2016/2019 e Google Docs?
Aprende a mostrar o pé de páxina e o encabezado na primeira páxina só en Word 365, 2016 e 2019; así como en Documentos de Google
Como traballar coas caixas de mensaxes e de entrada en PowerPoint VBA?
Aprende a codificar caixas de mensaxes e entradas con VBA en PowerPoint
Como crear e engadir diapositivas a presentacións de PowerPoint con VBA?
Aprende a escribir unha macro VBA sinxela para inserir diapositivas e crear unha nova presentación
Como podo modificar as cores do meu tema de visualización de Office 2016?
Aprende a aplicar esquemas de cores personalizados de Office.
Como abrir ficheiros .one en ordenadores MAC e Windows?
Aprende a lanzar extensións de ficheiros de OneNote de MAC e Windows