O Microsoft Excel é um poderoso aplicativo de planilha. Muitas pessoas perdem o verdadeiro poder do programa por não aproveitar tudo o que ele pode fazer. Visual Basic for Applications (VBA) é uma plataforma de desenvolvimento de programação instalada com todos os aplicativos Microsoft Office. O Visual Basic é uma versão da antiga linguagem Basic. Com VBA, uma simples planilha Excel pode se tornar um aplicativo dinâmico que executa automaticamente funções e procedimentos. Neste artigo, adicionaremos código simples a uma planilha Excel 2007 para fazê-la falar. Este é o projeto perfeito para se familiarizar com o ambiente VBA. Você precisará saber algo sobre programação antes de fazer este projeto.
Abra uma planilha. Pode usar uma que já tenha no computador ou criar a mostrada aqui. Se usar uma pronta, certifique-se de que há uma coluna de totais.
Faça a aba Desenvolvedor aparecer na Faixa de Opções. Provavelmente não verá a aba Desenvolvedor ao abrir o Excel. Clique no botão "Microsoft Office" no topo da tela e depois em "Opções do Excel". Na tela Popular, escolha "Mostrar aba Desenvolvedor na Faixa de Opções" e clique em "OK" para fechar. Clique na aba "Desenvolvedor" quando estiver visível.
Clique em "Visual Basic". O Editor Visual Basic aparecerá. No lado direito, clique duas vezes na Plan1, pois é a planilha com que trabalharemos. Uma nova planilha em branco é adicionada ao lado direito.
Digite "Option Explicit" no topo da tela. Deve fazer isso em todo programa VBA. Isso garante que você nomeie variáveis antes de atribuir dados. Pense em variáveis como pequenos recipientes que guardam informações. São úteis quando a informação usada muda constantemente. Por exemplo, precisa trabalhar com totais de janeiro. Como esse valor mudará, atribua a uma variável. Sempre pode chamar essa variável mesmo sem saber o valor exato.
Digite a seguinte função:
Function TalkIt(txtTotal)
Application.Speech.Speak(txtTotal)
TalkIt=txtTotal
End Function
Esta função controla a fala da planilha. Usamos o gerador de texto-para-fala embutido no Excel. A primeira linha declara a função ("Function"), dá um nome ("TalkIt") e indica quais dados passaremos ("txtTotal"). Agora que a função está definida, deve referenciá-la e enviar os dados para funcionar.
Volte à planilha e adicione um botão. Na aba Desenvolvedor, clique em "Inserir" e depois no botão (primeiro ícone no topo). Desenhe o botão na planilha onde quiser. Uma nova janela aparece; nomeie o botão "cmd_Total" e clique "OK". Pode alterar o texto clicando com botão direito no botão e em "Editar Texto". Digitei "Falar".
Volte ao Editor Visual Basic para adicionar o último código:
Private Sub cmdTotal_Click()
Dim intTotal As Integer 'declara variável para guardar texto
Dim txtTotal As String
intTotal = WorksheetFunction.Sum(Cells.Range("B3", "B14"))
'usa If...Else para controlar valor de txtTotal
If intTotal < 2500 Then
txtTotal = "Meta Não Atingida"
Else
txtTotal = "Meta Atingida"
End If
TalkIt (txtTotal)
End Sub
O código acima significa que ao clicar o botão, verificará se o total da coluna "Chapéus" é menor que $2500. Se for, a voz sintetizada dirá "Meta Não Atingida". Se for $2500 ou mais, dirá "Meta Atingida". Pronto. Você criou seu primeiro programa no Microsoft Excel.
Aprenda mais funções e procedimentos VBA fazendo um curso ou comprando livro instrutivo. Quanto mais brincar, mais familiar ficará. Se o programa não funcionar, pode precisar alterar configurações de segurança no Excel para habilitar Macros. Faça isso clicando em "Segurança de Macro" na aba Desenvolvedor.
Tecnologia Eletrônica © [www.351231.com]
