Detalhes de vba formatacao condicional numeros aleatorios acima da media

PropriedadeValor
Nome:vba formatacao condicional numeros aleatorios acima da media
Descricao:

Saberexcel - site das macros
Macro do Aplicativo Microsoft Excel VBA, usando o Objeto AboveAverage, que representa um visual acima da média de uma regra de formatação condicional. Aplica cor ou preenchimento em um intervalo ou seleção para ajudá-lo a ver o valor de células em relação a outras.

Todos os objetos de formatação condicional estão contidos em um objeto da coleção FormatConditions, que é um filho de uma coleção Range. você pode criar uma regra de formatação acima da média usando o método Add ou AddAboveAverage da coleção FormatConditions.
O exemplo a seguir cria um conjunto de dados dinâmicos e aplica cor aos valores acima da média através de regras de formatação condicional.

'Visual Basic for Applications
Sub FC_Acima_Media()

' inserindo uma numeração na palavra saberexcel
Range("A1").Value = "Nome"
Range("B1").Value = "Numero"
Range("A2").Value = "SaberExcel-1"
Range("A2").AutoFill Destination:=Range("A2:A26"), Type:=xlFillDefault
Range("B2:B26").FormulaArray = "=INT(RAND()*101)" 'gera números aleatorios.

Range("B2:B26").Select

'Aplicando a formatacao condicional nos resultados acima da média.
Selection.FormatConditions.AddAboveAverage
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).AboveBelow = xlAboveAverage

With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
MsgBox "adicionando a média condicional e formatos para os dados. Pressione F9 (aleatorios)", _
vbInformation, "Saberexcel - site das macros"

End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel




 

 

Nome do arquivo:vba formatacao condicional numeros aleatorios acima da media.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 15/10/2010 10:39
Visitas:Todos
Responsavel:Editor
Acessos:948 Acessos
Atualizado em: 17/11/2010 09:38
Site: