ACCESS - Usando Gauges em Dashboards - Usando Dashboard Gráfico no Access





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?




Talvez deseje ler adicionalmente o artigo: 

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:

Dashboard_Andre_Luiz_Bernardes_01.png

Ou algo parecido com isso:

Dashboard_Andre_Luiz_Bernardes_02.png

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.





Referências: DataPigTechnologies


Tags: Access, Dashboard, gauge, medidor, mostrador, bmp, bitmap, chart, gráfico



2 comentários:

  1. E cheguei a esta idea despois de ver os seus indicadores (e unha especie de solución tipo SparkLine para Excel):

    Sub 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

    ResponderExcluir
  2. Unha pequena corrección:
    Poñ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.

    ResponderExcluir

diHITT - Notícias