Ahhh, os Dashboards e os Scorecards...São um desafio para desenvolvê-los diante dos inúmeros softwares comerciais criados com essa finalidade.
Será que a nossa tão conhecida e amplamente utilizada suíte do MS Office consegue nos atender nos nossos anseios por belos Dashboards
ou mesmo a elaboração de Cockpits?
Bem, agora é o momento de olharmos o modo como podemos fazer uso da visualização de KPI, com medidores e/ou mostradores, em Dashboards no MS Access. Sim, você realmente pode usar o MS Access para criar alguns Dashboards executivos visualmente interessantes.
Dê uma olhada abaixo no screenshot de um Dashboards desenvolvido em MS Access:
Ou algo parecido com isso:
Muito legal, não é mesmo? Quer saber como criar seu próprio painel de acesso com estes gráficos para Dashboards?
Bem o MS Access não é tipicamente uma ferramenta na qual pensaria quando se considera desenvolver uma plataforma de Dashboards. As ferramentas de relatório no MS Access, ainda não têm tais funcionalidades facilitadoras. Ou seja, o MS Access não oferece uma série com Dashboards gráficos. Claro que ele tem gráficos e formatação condicional, mas nada como no MS Excel.
No próximo artigo, mostro um hack, algumas pequenas dicas, para que possa adicionar características profissionais aos seus relatórios MS Access para Dashboards.
E cheguei a esta idea despois de ver os seus indicadores (e unha especie de solución tipo SparkLine para Excel):
ResponderExcluirSub Gauge()
On Error GoTo Salida
intPosicion = VBA.CInt(ActiveCell.Value)
' ActiveCell.Value = VBA.String((intPosicion - 1), VBA.ChrW(&H2593)) & _
VBA.String(1, VBA.ChrW(&H2588)) & _
VBA.String(10 - intPosicion, VBA.ChrW(&H2593))
ActiveCell.Offset(0, 1).Value = VBA.String(10, VBA.ChrW(&H2588))
For intPorcentaje = 1 To 10
If intPorcentaje <> intPosicion Then
With ActiveCell.Offset(0, 1).Characters(Start:=intPorcentaje, Length:=1).Font
Select Case intPorcentaje
Case 1: .ColorIndex = 3
Case 2: .ColorIndex = 46
Case 3: .ColorIndex = 45
Case 4: .ColorIndex = 44
Case 5: .ColorIndex = 36
Case 6: .ColorIndex = 6
Case 7: .ColorIndex = 34
Case 8: .ColorIndex = 35
Case 9: .ColorIndex = 43
Case 10: .ColorIndex = 4
End Select
End With
End If
Next intPorcentaje
Salida:
End Sub
Unha pequena corrección:
ResponderExcluirPoñer esta liña ao principio:
ActiveCell.Offset(0,1).Font.ColorIndex = xlAutomatic
Caso contrario, na próxima vez que se corra a macro, pintaría coa cor incorrecta a porcentaxe.
Gustoume moito atopar a súa páxina. Dende Galicia (Spain), Saúdos.