linguagem de programação do Microsoft Excel, Visual Basic for Applications (VBA) , faz uso de objetos virtuais para estender os recursos do Excel . Um desses objetos é o objeto Application , que permite que os programadores VBA para escrever programas que impactam o aplicativo Excel próprio . Eventos desse objeto causam sub-rotinas chamadas " funções de eventos " para executar. Qualquer código de programa que você coloca nessas funções será executado quando o evento (por exemplo, criação nova pasta de trabalho , seleção de planilha ) que a função foi escrito para ocorrer . Uma das vantagens de escrever esse código é a capacidade de filtrar os dados que o usuário entra nele. Instruções
1
ambiente de programação VBA Open Excel , em seguida, selecionando o item " View Code " .
2
duas vezes com o botão direito do mouse guia de qualquer planilha em uma pasta de trabalho aberta " Esta pasta de trabalho " linha do painel "Projeto" para abrir uma nova janela de código .
3
cole o código a seguir na primeira linha em branco da nova janela . Esta sub-rotina , que será executado quando você reabrir a pasta de trabalho atual, cria uma nova instância do objeto Application do Excel. Ao fazer isso, a rotina faz com que as funções de eventos do objeto Application disponível para escrever programas para .
Privada WithEvents objApp Como Aplicação
Private Sub Workbook_Open ()
Set objApp = Aplicação
End Sub
4
Clique na lista suspensa à esquerda perto do topo da janela de código . VBA irá exibir uma lista de objetos que você pode escrever código de função de eventos. Um dos objetos da lista é a variável " objApp " você declarada e definida na etapa anterior . Selecione o objeto.
5
Clique na lista suspensa à direita da janela de código , e selecione a função de evento " NewWorkbook " . VBA criará uma função de evento em branco que você vai escrever o código.
6
Cole ou digite o seguinte código do programa acima do " objApp_NewWorkbook " sub-rotina da instrução "Sub End" .
MsgBox " Você criou um novo livro. "
7
Pressione " Alt + F4 " para fechar o ambiente VBA, e pressione a mesma seqüência de teclas para fechar o Excel . Salve a pasta de trabalho com qualquer nome de arquivo válido, e com uma extensão de arquivo "*. Xlsm ". Salvando e reabrir a pasta de trabalho é executado a função de evento Workbook_Open você escreveu no passo 3. Esta função deve ser executado para habilitar funções de eventos objApp para ser executado.
8
reabrir o livro que você acabou de fechar , em seguida, pressione "Control- N" para criar uma nova pasta de trabalho. O código que você escreveu para a sub-rotina objApp_NewWorkbook na etapa 6 será executado , e exibir a mensagem " Você criou um novo livro. "
9
Pressione " Alt- F11 " para voltar a entrar no VBA meio ambiente, em seguida, cole a seguinte nova função de evento em qualquer espaço em branco na janela de código . Esta função evento, que será executado quando você alterar qualquer célula da pasta de trabalho aberta no momento , substitui o texto "JS" com o texto " John Smith ".
Private Sub objApp_SheetChange (ByVal Sh As Object , ByVal Target As Range)
Dim x
x = Target.Value
Se (x = "JS" ) Então
x = " John Smith "
Target.Value = x
End If End
Sub
10
Retornar para Excel com a tecla " Alt- F11 ", digite o texto "JS" em qualquer célula . Ao pressionar " Enter", a função de evento objApp_SheetChange você escreveu no passo anterior irá executar e alterar "JS" em " John Smith ".