Procedimento vendas mensal em vba

Páginas: 2 (385 palavras) Publicado: 9 de outubro de 2011
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$ " &...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • Procedimentos para venda
  • ABCFARMA Procedimentos para atualiza o de pre os mensal
  • RDP0036 Acompanhamento Metas Resultados Vendas Mensais
  • Desenvolvimento de regras e procedimentos de vendas para o mercado imobiliário
  • Procedimentos para cadastro, analise de credito e venda a prazo
  • COMO PASSAR UM TREINAMENTO DE ATENDIMENTO E VENDAS PARA MEUS COLABORADORES, QUE SURJA EFEITO NAS VENDAS MENSAIS DA EMPRESA A...
  • MENSAL O
  • Apostila VBA

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!