Início / computer / Perguntas / 1650969
Accepted
StainlessSteelRat
Asked: 2021-05-23 14:10:53 +0800 CST

Sintaxe de formatação condicional VBA para xlUniqueValues

  • 772

Estou tentando destacar duplicatas usando formatação condicional no VBA.

Se você observar a formatação condicional usando VBA , um dos XlFormatConditionType (tipo) para FormatConditions.Add é xlUniqueValues.

Sintaxe: FormatConditions.Add(Tipo, Operador, Fórmula1, Fórmula2)

Os operadores listados são: xlBetween; xlIgual; xlMaior; xlMaiorIgual; xlMenos; xlMenosIgual; xlNotBetween; xlNotEqual.

Nenhuma delas se aplica a xlUniqueValues. Eu tentei todos eles, incluindo xlDuplicate e xlUnique, que não geram erros. Tipos xlTextString usa TextOperator e xlTimePeriod usa DateOperator como modificadores de operador, mas não há informações sobre um modificador para xlUniqueValues.

With Range("a1:a10").FormatConditions.Add(xlTextString, TextOperator:=xlContains, String:="egg")
     .Interior.Color = RGB(255, 166, 0)
End With

Meu código:

With Range("B6:B30").FormatConditions.Add(xlUniqueValues, xlDuplicate)
     .Interior.Color = RGB(255, 166, 0)
End With

Isso destaca todos os valores exclusivos, não importa o que eu coloque para o operador. A sintaxe está correta, mas não consigo encontrar informações sobre como destacar duplicatas.

Qual é a sintaxe correta para destacar duplicatas?

Eu tenho isso funcionando como uma formatação condicional capturada por macro (mostrada abaixo), mas gostaria de fazê-lo funcionar com essa sintaxe, pois é mais limpa.

Range("B6:B30").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = RGB(255, 166, 0)
    .TintAndShade = 0
End With
microsoft-excel vba

1 respostas

  1. Best Answer

    Pode ser mais limpo, mas não funciona como você já descobriu. O parâmetro Operador de FormatCondition.Add neste caso é ignorado:

    Pode ser uma das seguintes constantes XlFormatConditionOperator: xlBetween, xlEqual, xlGreater, xlGreaterEqual, xlLess, xlLessEqual, xlNotBetween ou xlNotEqual. Se Type for xlExpression, o argumento Operator será ignorado.

    A documentação UniqueValues ​​afirma que:

    O objeto UniqueValues ​​usa a propriedade DupeUnique para retornar ou definir uma enumeração que determina se a regra deve procurar valores duplicados ou exclusivos no intervalo.

    O que significa que, se você quiser verificar duplicatas, use a propriedade DupeUnique que:

    Retorna ou define uma das constantes da enumeração XlDupeUnique, que especifica se a regra de formatação condicional está procurando valores exclusivos ou duplicados.

    Seu código mudará para:

    With Range("B6:B30").FormatConditions.Add(xlUniqueValues)
     .DupeUnique = xlDuplicate
     .Interior.Color = RGB(255, 166, 0)
End With

    OU

    With Range("B6:B30").FormatConditions.AddUniqueValues
     .DupeUnique = xlDuplicate
     .Interior.Color = RGB(255, 166, 0)
End With
    • 1

relate perguntas