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.
Tags: Access, Dashboard, gauge, medidor, mostrador, bmp, bitmap, chart, gráfico
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.