1.Adicione uma nova planilha no arquivo criado no exercício anterior e renomeie-a para "Automation e VBA".
2.Monte um modelo do relatório conforme a figura a seguir. A formatação dos textos é opcional.
Modelo de relatório
3.Selecione a aba Developer na Faixa de Opções e clique em Insert. Adicione um objeto Check Box (Form Control) na célula C4.
4.Após desenhá-lo, digite o texto "Visualizar Descrição do Tag".
5.Clique com o botão direito do mouse no Check Box, selecione a opção Assign Macro e clique em New.
6.Adicione o script a seguir e salve-o.
Sheets("Automation e VBA").Select
Range("C5").Select
Selection.ClearContents
' Limpa a célula que mostra a descrição e
' se o Checkbox foi marcado, adiciona a função.
If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = 1 Then
Selection.Formula = "=EpmDataObjectProperty(, 'Automation e VBA'!B5, ""Description"")"
End If
7.Remova a seleção do Check Box para verificar se a descrição do Tag é mostrada na célula C5. Teste com outro Tag, como por exemplo EficMoenda.
8.Selecione novamente a aba Developer na Faixa de Opções e clique em Insert. Adicione um objeto Button (Form Control) na planilha.
9.Na janela que se abre, clique em New.
10.Adicione o script a seguir e salve-o.
Dim t_ini, t_end, tagName
Sheets("Automation e VBA").Select
t_ini = "01/01/" & Range("B4")
t_end = "31/12/" & Range("B4")
tagName = Range("B5")
'Criando uma FormulaArray da Function Aggregate
Range("D8:D11").Select
Selection.ClearContents
Range("D8:D11").Select
Selection.FormulaArray = "=EpmAggregate(,""" & t_ini & """,""" & t_end & """, 90, ""Average"",, """ & tagName & """)"
Range("C7").Value = "Safra " & Range("B4")
Range("D7").Value = "Eficiência Média " & Range("B5")
Range("A7").Select
11.Edite o texto do objeto Button para "Consultar".
12.Altere a safra e clique no objeto Button para testar a consulta.
13.Selecione também outro Tag de eficiência, como por exemplo EficFermentacaoCaldo, EficFermentacaoMel ou EficMoenda.
14.Por fim, adicione um gráfico de colunas para visualizar mais facilmente os valores de cada trimestre.
Gráfico de colunas por trimestre