Visual Basic em Português

Página pessoal de Jorge Paulino sobre o Visual Basic (VB.NET, ASP.NET, VB6, VBA) e algumas noticias de tecnologia

Excel: Dicas de VBA - Eventos

Os próximos artigos vão mostrar como se iniciar em VBA – Microsoft Excel – e algumas melhorias, dicas e sugestões que podem ser feitas para melhorar o código.

A execução de macros em Excel, está normalmente associada a um botão ou um objecto, no entanto existem diversas formas de executar macros, que podem simplificar bastante a automação na folha de calculo. Este artigo pretende mostrar alguns exemplos simples de alguns dos eventos mais importantes e mais utilizados em VBA.

NOTA: Neste artigo será usado o Microsoft Excel 2010 mas o mesmo se aplica a versões anteriores com o Microsoft Excel 2003 ou o Microsoft Excel 2007.

Quando entramos no editor de VBA, o VBE (Visual Basic Editor), existem alguns objectos no explorador do projecto: um objecto por cada folha disponível (Sheet), e um objecto global (ThisWorkBook).

Objecto Sheet

No objecto Sheet, temos os eventos relativos apenas para essa folha, como por exemplo:

  • Change: Quando é efectuada alguma alteração em alguma célula;
  • SelectionChange: Quando é alterada a selecção;
  • BeforeRightClick: Antes de clicar com o botão direito;
  • Calculate: Quando é efectuada uma operação que obrigue a cálculos;

Existem mais disponíveis mas estes são talvez os mais utilizados. Por exemplo, o BeforeRightClick permite-nos criar um menu personalizado quando clicamos com o botão direito do rato, o Calculate permite-nos correr um código quando existem cálculos, etc, etc.

Por exemplo, se queremos executar qualquer código quando alteramos um valor numa determinada área, podemos utilizar o evento Change. Deste modo verificamos se a nossa área – range - coincide com a célula alterada, utilizando a função Intersect(), e executamos o nosso código.

    Private Sub Worksheet_Change(ByVal Target As Range)

        ' Verifica se a célula modificada está entre o range B2:B10
        If Not Intersect(Range("B2:B10"), Target) Is Nothing Then
            MsgBox("Executar código!")
        End If

    End Sub


Objecto ThisWorkBook

No objecto ThisWorkBook estão os eventos comuns a todas as folhas e os eventos gerais, como por exemplo:

  • Workbook_Open: Quando o documento é aberto
  • Workbook_BeforeClose: Quando o documento é fechado (antes de fechar)
  • Workbook_BeforeSave: Quando o documento vai ser gravado
  • Workbook_NewSheet: Quando é adicionada uma nova folha
  • Workbook_SheetChange: Quando é alterado qualquer célula em qualquer folha
  • Workbook_SheetActivate: Quando uma folha é activada

Estes são apenas alguns dos eventos que estão disponíveis e que podem ser utilizados.

Por exemplo, se queremos saber qual a folha – Worksheet – que foi seleccionada, podemos fazer:

    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        Dim sheet As Worksheet
        sheet = Sh

        MsgBox(sheet.Name)
    End Sub

Ou ainda, evitar que o documento seja fechado:

    Private Sub Workbook_BeforeClose(ByVal Cancel As Boolean)
        Dim msg As String
        msg = "Deseja fechar o documento ?"

        ' Cancela o encerramento do documento
        If MsgBox(msg, vbYesNo) <> vbYes Then
            Cancel = True
        End If

    End Sub

Como podem ver, existem vários eventos que podemos utilizar para melhorar os nossas folhas de cálculo, através do VBA, e com bastantes aplicações.

Para breve mais dicas de como melhorar o código em VBA!

1 comentários:

D13G1NN disse...

Olá legal sua dica.
Podeira me tirar uma dúvida?
Eu faço um curso de excel vba pelo ADV, www.cursoadv.com.br
Lá utilizo o office 2013, essa dica funciona com esta versão.

Mensagens Recentes



Microsoft Office Especialist

Membro da Comunidade
Experts-Exchange


Administ. da Comunidade
Portugal-a-Programar



Twitter

Artigos no CodeProject

Artigos no CodeProject

Subscrever Novidades

Endereço de Email:

Delivered by FeedBurner

Seguidores

Histórico