Excel | Destaque valores maiores que

Quando você executa este código, uma janela será exibida. Ele perguntará o valor que você deseja comparar com as células selecionadas.

Sub HighlightGreaterThanValues()

     Dim i As  Integer 

    i = InputBox( "Insira maior que o valor" , "Insira o valor" )

    Seleção.FormatConditions.Delete

    'Altere o operador para xlLower para destacar valores inferiores a 

    Selection.FormatConditions.Add Type:=xlCellValue, Operator :=xlGreater, Formula1:=i

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

        Com Selection.FormatConditions( 1 )

            .Font.Color = RGB( 0 , 0 , 0 )

            .Interior.Color = RGB ( 31 , 218 , 154 )

         Fim  com 

Fim  Sub

Você também pode ajustar este código para destacar valores mais baixos.

Parabéns! Como você ainda está lendo isso, você está realmente interessado em aprender VBA. Como você já viu, a linguagem de programação VBA é extremamente útil e pode nos poupar muito tempo. Espero que você tenha achado essas informações úteis e as use para se tornar um mestre em MS Excel, VBA e software de computador em geral.

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série Donut Project 

  

 Clique nas capas abaixo e compre também: