Abaixo, veremos um programa em Excel VBA que cria um Função definida pelo usuário. O Excel possui uma grande coleção de funções. Na maioria das situações, essas funções são suficientes para realizar o trabalho. Caso contrário, você pode criar sua própria função chamada Função Definida pelo Usuário ou função Excel personalizada. Você pode acessar uma função definida pelo usuário como qualquer outra função do Excel.
Queremos criar uma função chamada SUMEVENNUMBERS que encontre a soma dos números pares de um intervalo selecionado aleatoriamente.
Situação:
As funções definidas pelo usuário precisam ser colocadas em um módulo.
1. Abra o Editor do Visual Basic e clique em Inserir, Módulo.
2. Adicione a seguinte linha de código:
Função SUMEVENNUMBERS (rng As Range)
O nome da nossa função é SUMEVENNUMBERS. A parte entre os colchetes significa que fornecemos ao Excel VBA um intervalo como entrada. Chamamos nosso range de rng, mas você pode usar qualquer nome.
3. Em seguida, declaramos um objeto Range e o chamamos de célula.
Dim cell como range
4. Queremos verificar cada célula em um intervalo selecionado aleatoriamente (este intervalo pode ser de qualquer tamanho). No Excel VBA, você pode usar o loop For Each Next para isso. Adicione as seguintes linhas de código:
Para cada célula em rng
Próxima célula
Nota: a célula é escolhida aleatoriamente aqui, você pode usar qualquer nome.
5. Em seguida, verificamos para cada valor neste intervalo se ele é par ou não. Usamos o operador Mod para isso. O operador Mod fornece o restante de uma divisão. Por exemplo, 7 mod 2 = 1 porque 7 dividido por 2 é igual a 3 com um resto de 1. Dito isso, é fácil verificar se um número é par ou não. Somente se o resto de um número dividido por 2 for 0, o número é par. Por exemplo, 8 mod 2 = 0 porque 8 dividido por 2 é igual a 4 com um resto de 0. Adicione a seguinte instrução If ao loop For Each Next.
Se cell.Value Mod 2 = 0 Then
Fim se
6. Somente se esta afirmação for verdadeira, adicionamos o valor a SUMEVENNUMBERS. Adicione a seguinte linha de código na instrução If.
SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value
7. Não se esqueça de encerrar a função (fora do loop).
Função Final
8. Agora você pode usar esta função, como qualquer outra função do Excel, para encontrar a soma dos números pares de um intervalo selecionado aleatoriamente.
Resultado:
Bom trabalho! É assim que as Funções Definidas pelo Usuário no Excel VBA são fáceis. Observação: esta função está disponível apenas nesta apostila.
