Execute a macro , retornando à planilha Excel, selecionando desenvolvedor> Macros, selecionando Macro1 , e pressionar o botão Executar. A macro resume a coluna de números , inserindo o resultado no momento da célula activada . ( Se você não vê a guia Desenvolvedor , expô-lo , selecionando o botão Office no canto superior esquerdo do Excel, escolha Opções do Excel e " Mostrar guia Desenvolvedor na Faixa de Opções. " ),
< Br > Project Two: . Use um formulário

o segundo projeto baseia-se no primeiro , permitindo que o usuário de seu programa de uma escolha de funções

digite novamente o IDE Visual Basic e selecione inserir> UserForm. Arraste os seguintes controles para a forma da caixa de ferramentas : uma caixa de listagem e um botão. Pressione F7 para retornar à exibição de código e selecione UserForm a partir da caixa drop-down à esquerda na parte superior da janela de código, e inicializar a partir da caixa drop-down à direita . O IDE cria a função de Sub UserForm_Initialize (). Nessa função, digite o código , o que aumenta a caixa de listagem os nomes das funções que o usuário irá selecionar a partir de :

ListBox1.AddItem " soma " ListBox1.AddItem " média "

Use o esquerda e direita caixas suspensas da janela de código , uma vez mais , a escolha de CommandButton1 da esquerda drop- down e clique na caixa drop-down à direita . O IDE cria a função CommandButton1_Click empty () . Digite o código a seguir em que função, que irá chamar o macro1 original que você escreveu com a função que o usuário escolhe a partir da caixa de listagem :

Macro1 ( ListBox1.Value )

Modificar Macro1 para aceitar uma argumento : clique com o botão direito no texto " Macro1 " e selecione definição para navegar até a definição Macro1 . Altere a linha "Sub Macro1 () " para ler "Sub Macro1 (func As String) "

Agora que você adicionou o argumento , modificar Macro1 usá-lo: mudar = a Declaração de s " = média ( "& q.Address & ") " com a seguinte redacção :

s =" = "& func &" ( "& q.Address & ") "
Escreva o função que carrega a forma

Digite essa nova função abaixo macro1 :

Sub macro2 () UserForm1.ShowEnd Sub

Retornar para Excel (Alt- F11) e reposicionar o cursor para baixo da coluna de números . Mostrar o userform , selecionando desenvolvedor> Macros e selecionando Macro2 e Executar. Quando o formulário é exibido , escolha a soma ou a média da função e pressione o botão . Seu programa irá inserir a fórmula na planilha . A fórmula resume os dados da coluna acima da célula ativa .