Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

Capítulo 20: Como Criar Funções de Planilha — e Viver para Contar 337
retorna o valor da comissão com base nas vendas mensais (que é o
único argumento da função — um argumento exigido). Os cálculos
neste exemplo são baseados na Tabela 20-1.
Tabela 20-1
Vendas Mensais
$0-$9.999 8.0%
$10.000-$19.999 10.5%
$20.000-$39.999 12.0%
$40.000+ 14.0%
Taxas de Comissão por Vendas
Taxa de Comissão
Você pode usar várias abordagens para calcular comissões para os
valores de vendas inseridos em uma planilha. Você poderia escrever
uma longa fórmula de planilha, tal como esta:
=SE(E(A1>=0;A1<=9999.99);A1*0;08;IF(E(A1>=10000;
A1<=19999.99);A1*0.105;SE(E(A1>=20000;A1<=39999.99);
A1*0;12;SE(A1>=40000;;A1*9.14;0))))
Várias razões tornam isso uma péssima abordagem. Primeiro, a fórmula
é excessivamente complexa. Segundo, os valores são codificados com
dificuldade na fórmula, tornando-a difícil de modificar caso a estrutura
de comissão mude.
Uma abordagem melhor é criar uma tabela de valores de comissão e
usar a função de planilha PROCV para calcular as comissões:
=PROCV(A;Table;2)*A1
Uma outra abordagem, que não requer uma tabela de comissões, é criar
uma função personalizada:
Function Commissuin(Sales)
‘ Calcula as comission de vendas
Const Tier1 As Double = 0.08
Const Tier1 As Double = 0.105
Const Tier3 As Double = 0.12
Const Tier4 As Double = 0.14
Select Case Sales
Case 0 To 999.99: Commission = Sales * Tier1
Case 10000 To 19999.00: Commission = Sales * Tier2
Case 20000 To 39999.99: Commission = Sales * Tier3
Case Is >= 40000: Commission = Sales * Tier4
End Select
Commission = Round(Commission, 2)
End Function