Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera,
a condição é a seguinte:
até 10kg = 150.00
10.1 até 20 = *15
20.1 até 30 = *13.5
30.1 ou mais = *12.5
a função retorna valor zero, veja o código:
Sub teste()'' teste Macro' Macro gravada em 28/2/2007 por PC01'' Atalho do teclado: Ctrl+a' Application.Goto Reference:="teste"Dim x As DoubleDim y As DoubleDim z As DoubleIf 10 < x Thenz = 150x = 1ElseIf x > 10 And x < 20 Thenz = 15x = Range("F6").ValueElseIf x > 20 And x < 30 Thenz = 13.5x = Range("F6").ValueElsez = 12.5x = Range("F6").ValueEnd Ify = x * zRange("G6").Value = yEnd Sub
O q acontece de errado?
Carregando comentários...
