| Descricao: |
 Calculando Pagamento horas trabalhas no Excel VBA
Qua, 20 de Agosto de 2008 07:11 Administrador
Peço Ajuda:
Preciso de uma macro que calcule horas trabalhadas e me retorne o total do pagamento,
que poderá ser feito também atraves de Uma Entrada de Dados ( InputBox),
Gostaria de saber se podem me ajudar.
Manoel Messias:
Manoel é possível sim, observe essa macro abaixo que retorna o calculo do montante a ser
pagado por horas trabalhadas, isto é, multiplicad o total de horas trabalhadas pelo valor de /
de uma hora
Sub Calcula_Pagamento_Horas_Trabalhadas()
On Error GoTo SbError
Dim vHora
Dim pgHora
Dim iPgto_por_Semana
vHora = InputBox("Entre com o numero de horas trabalhadas", "Horas Trabalhadas")
pgHora = InputBox("Valor do pagamento por hora", "Pagamento valor hora")
iPgto_por_Semana = CCur(vHora * pgHora)
MsgBox "O Pagamento é de : " & Format(iPgto_por_Semana, "R$ ##,##0.00"), , "Total Pagamento"
SbError:
End Sub
 Baixe o exemplo de planilha contendo a macro acima
|