Download
Relação .doc:   15.000  Macros, Funções e  Fórmu
las

Dicas  Excel Macros VBA  


Pergunta :
Eu preciso de uma macro que calcule horas trabalhadas e me retorne o total do pagamento,  pode ser através de um inputbox,isto é possivel?


Resposta :
sim é possível,
esta macro calcula o montante a ser pago por horas trabalhada
isto é, multiplica o total de horas pelo valor de uma hora.

Sub Calcula_Pagamento_Horas_Trabalhadas()
On Error GoTo HandleError
Dim hours
Dim hourlyPay
Dim payPerWeek
hours = InputBox("Entre com o numero de horas trabalhadas", "Horas Trabalhadas")
hourlyPay = InputBox("Valor do pagamento por hora", "Pagamento valor hora")
payPerWeek = CCur(hours * hourlyPay)
MsgBox "O Pagamento é de : " & Format(payPerWeek, "r$##,##0.00"), , "Total Pagamento"
HandleError:
End Sub