Procedimento vendas mensal em vba

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (385 palavras )
  • Download(s) : 0
  • Publicado : 9 de outubro de 2011
Ler documento completo
Amostra do texto
Option Explicit
Option Base 1

Sub vendas()

Dim meses(12) As String
Dim vendas(12) As Single
Dim tVendasMes As Single
Dim vendasMaior As Single, vendasMenor As Single
Dim mesMaior AsString, mesMenor As String
Dim i As Integer
Dim media As Single

meses(1) = "Janeiro"
meses(2) = "Fevereiro"
meses(3) = "Março"
meses(4) = "Abril"
meses(5) = "Maio"
meses(6) = "Junho"
meses(7) ="Julho"
meses(8) = "Agosto"
meses(9) = "Setembro"
meses(10) = "Outubro"
meses(11) = "Novembro"
meses(12) = "Dezembro"

vendasMaior = 0
vendasMenor = 0
i = 1
media = 0

Do Until i > 12tVendasMes = InputBox("Qual o total das vendas no mês de " & UCase(meses(i)) & "?")
vendas(i) = tVendasMes
If i = 1 Then
vendasMenor = vendas(i)
vendasMaior = vendas(i)mesMenor = meses(i)
Else
If vendasMaior < vendas(i) Then
vendasMaior = vendas(i)
mesMaior = meses(i)
Else
If vendasMenor > vendas(i) Then
vendasMenor = vendas(i)mesMenor = meses(i)
End If
End If
End If
media = media + vendas(i)
i = i + 1
Loop

MsgBox "==============VENDAS MENSAL================" & Chr(13) & _
"" & Chr(13)& _
UCase(meses(1)) & ": R$ " & Format(vendas(1), "#,##0.00") & Chr(13) & _
UCase(meses(2)) & ": R$ " & Format(vendas(2), "#,##0.00") & Chr(13) & _
UCase(meses(3)) & ":R$ " & Format(vendas(3), "#,##0.00") & Chr(13) & _
UCase(meses(4)) & ": R$ " & Format(vendas(4), "#,##0.00") & Chr(13) & _
UCase(meses(5)) & ": R$ " & Format(vendas(5),"#,##0.00") & Chr(13) & _
UCase(meses(6)) & ": R$ " & Format(vendas(6), "#,##0.00") & Chr(13) & _
UCase(meses(7)) & ": R$ " & Format(vendas(7), "#,##0.00") & Chr(13) & _UCase(meses(8)) & ": R$ " & Format(vendas(8), "#,##0.00") & Chr(13) & _
UCase(meses(9)) & ": R$ " & Format(vendas(9), "#,##0.00") & Chr(13) & _
UCase(meses(10)) & ": R$ " &...
tracking img