✔ VBA Dashboards Specialist®: VBA Excel - Ordenando os dados de um gráfico

9 de setembro de 2013

VBA Excel - Ordenando os dados de um gráfico - Graph data table sorting via vba

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

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

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Sim, quanto mais criamos Dashboards, mais estes evoluem. Ao evoluir nossos Dashboards requerem certos tratamentos e cuidados para melhorarem a performance e a apresentação.

O que segue, é uma das muitas dúvidas que caem por aqui, em nosso Blog.

Como posso ordenar a série de dados que demonstro no meu gráfico cada vez que os respectivos dados são atualizados?

Sub RankTable()

Dim chtTemp As Chart

Dim vntData() As Variant
Dim objSeries As Series
Dim lngIndex As Long
Dim rngSort As Range
Dim lngRow As Long

Set chtTemp = ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Chart

ReDim vntData(1 To chtTemp.SeriesCollection.Count, 1 To 2)

lngIndex = 1
For Each objSeries In chtTemp.SeriesCollection
vntData(lngIndex, 1) = objSeries.Name

vntData(lngIndex, 2) = Application.WorksheetFunction.Index(objSeries.Values, 1, objSeries.Points.Count)
lngIndex = lngIndex + 1
Next

Set rngSort = Range("J1").Resize(UBound(vntData) - LBound(vntData) + 1, 2)

With rngSort
.Value = vntData
.Sort .Cells(1, 2), xlDescending, , , , , , xlNo
vntData = .Value
End With

For lngRow = rngSort.Rows.Count To 1 Step -1

chtTemp.SeriesCollection(vntData(lngRow, 1)).PlotOrder = lngRow
Next
End Sub