VBA Excel - Exibe os primeiros 10% de um Range - Display Top Ten Percent in Ranges Programmatically

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

Este exemplo mostra como usar o método AddTop10 para exibir os primeiro 10% de uma série de números numa planilha do MS Excel.

Sub DemoAddTop10() 

  ' Fill a range with random numbers. 

  ' Mark the top 10% of items in green, and the bottom 

  ' 10% of the items in red. 

  

  ' Set up a range, and fill it with random numbers. 

  Dim rng As Range 

  Set rng = Range("A1:E10") 

  SetupRangeData rng 

  

  ' Clear any existing format conditions. 

  rng.FormatConditions.Delete 

  

  ' Set up a condition that formats the top 

  ' 10 percent of items on green. 

  Dim fc As Top10 

  Set fc = rng.FormatConditions.AddTop10 

  fc.Percent = True 

  fc.TopBottom = xlTop10Top 

  fc.Interior.Color = vbGreen 

  

  ' Set up a condition that formats the bottom 

  ' 10 percent of items in red. 

  Set fc = rng.FormatConditions.AddTop10 

  fc.TopBottom = xlTop10Bottom 

  fc.Percent = True 

  fc.Interior.Color = vbRed 

End Sub 

Sub SetupRangeData(rng As Range) 

  rng.Formula = "=RANDBETWEEN(1, 100)" 

End Sub 

Tags: VBA, Excel, Display, Top Ten, Percent, Ranges, Programmatically