es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

La función de formato condicional en VBA no está funcionando.

Aquí está mi problema. Hay dos secciones de formato condicional en el código a continuación. La primera resalta las celdas en rojo y la segunda resalta las celdas en naranja. Cuando ejecuto este código, resalta el segundo formato condicional en amarillo y no aplica ningún relleno al primer formato condicional. Cuando observo el código ejecutarse línea por línea, la primera sección parece funcionar pero luego cambia el relleno a naranja en la primera sección de formato condicional y no aplica ningún relleno a la segunda sección.

Sub ConditionalFormat()

Dim wb As Workbook
Dim ws As Worksheet
Dim lRow As Long

Set wb = ThisWorkbook
Set ws = wb.Sheets("CSR")
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

Application.ScreenUpdating = False


With Range("N10:AN" & lRow)
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=AND(N10>=($AR10-7),N10>0)"
    .FormatConditions(Range("N10:AN" & lRow).FormatConditions.Count).SetFirstPriority
    With Range("N10:AN" & lRow).FormatConditions(1).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
End With
Range("N10:AN" & lRow).FormatConditions(1).StopIfTrue = False
With Range("V10:V" & lRow)
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=AND($N10<=($V10-35),N10>0,$C10>0)"
    '.FormatConditions(Range("V10:V" & lRow).FormatConditions.Count).SetFirstPriority
    With Range("V10:V" & lRow).FormatConditions(1).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10284031
        .TintAndShade = 0
    End With
Range("V10:V" & lRow).FormatConditions(1).StopIfTrue = False
End With
Application.ScreenUpdating = True
End Sub
Tags:  , ,

Answer

  1. Avatar for davy.ai

    Problema con el código de formato condicional

    Parece haber un problema con el código de formato condicional proporcionado. La primera sección del código debería resaltar las celdas con relleno rojo, pero parece cambiar el relleno a naranja en la primera sección y no aplicar relleno alguno a la segunda sección. Cuando se ejecuta el código línea por línea, la primera sección parece funcionar, pero luego cambia el relleno a naranja en la primera sección de formato condicional y no aplica relleno alguno a la segunda sección.

    Es necesaria un análisis más detallado para determinar la causa raíz de este problema e identificar una solución para resolverlo.

Comments are closed.