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

Saberexcel - o Site das Macros

Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere a hora atual na barra de status e acrescenta um texto, macro verifica o país, nesse caso usamos o idioma norueguês(47) e o português-Br, se não for a Noruega, mensagem em português,
e retorna a mensagem na StatusBar

Option Explicit

Const vDataHoraCelula As String = "B9"
Const vTexto As String = "Site...: [ http://www.saberexcel.com - O site das Macros ] "
Dim OK As Boolean

Sub Iniciar_hora_atual()
Range(vDataHoraCelula).NumberFormat = "dd.mm.yyyy hh:mm:ss"
OK = True
Hora_atual
End Sub

Sub Hora_atual()
Dim vStatusBarMensagemTexto As String
If Application.International(xlCountrySetting) = 47 Then 'se estiver na Noruega,
vStatusBarMensagemTexto = "Gjeldende dato og tid: "
Else
vStatusBarMensagemTexto = "Data atual e horário : " 'Português_Br
End If

If OK Then

Range(vDataHoraCelula).Formula = Now
Application.StatusBar = vStatusBarMensagemTexto & Format(Now, "d.m.yyyy hh:mm:ss ") & vTexto
Application.OnTime Now + TimeValue("00:00:01"), "Hora_atual", , True

Else

Range(vDataHoraCelula).Formula = ""
Application.StatusBar = False
End If
End Sub

Sub parar_relogio()
Range(vDataHoraCelula).NumberFormat = "dd.mm.yyyy hh:mm:ss"
OK = False
Hora_atual
End Sub



Aplicativo Microsoft Excel VBA(Visual Basic Application) --- (-(-( SaberExcel )-)-)---




Baixe o exemplo de planilha contendo as macros acima

Saberexcel - o Site das Macros

Estas macros do Aplicativo Microsoft Excel VBA, mostram horas através de um userform, horas continuas
Relógio digital, que funcionará como um Spash
Esses procedimentos junto com a declaração Global (Boolean), insere um relogio digital no rótulo(label)
de determinado Userform(Formulário)

1 objeto Userform1 ............: - Caption "Userform1"
1 objeto Label....................: - Caption "Label1"
1 objeto CommandButton....: - Caption "CommandButton"

'NO MÓDULO COMUM STANDARD INSIRA AS MACROS E VARIAVEL GLOBAL ABAIXO
Global onOff As Boolean

Sub MostrarFormulário()
UserForm1.Show
End Sub

Sub MostrarHoras()
On Error Resume Next
'colocação da data e horas devidamente formatadas
'veja que aqui inserimos as horas no Caption do Userform, Label e Frame1

UserForm1.Caption = "Hoje é dia: [ " & Format(Now, "dddd dd-mm-yyyy") & " ] Agora são: [ " & Format(Now, "hh:mm:ss") & " ] horas"
UserForm1.Label1.Caption = Format(Now, "dddd dd-mm-yyyy hh:mm:ss")
UserForm1.Frame1.Caption = "Hoje é dia: [ " & Format(Now, "dddd dd-mm-yyyy") & " ] Agora são: [ " & Format(Now, "hh:mm:ss") & " ] horas"

'só é executado se o formulário estiver activo
If onOff = True Then
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
Else
Application.OnTime 0, ""
End If

End Sub

'Essa macro usando evento Open que abrirá o formulário na Abertura do Livro
Sub Auto_Open()
On Error Resume Next
UserForm1.Show
End Sub

'NA FOLHA DE CÓDIGO DO USERFORM
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()
onOff = True ' variável declarada como global as boolean
'inicia o ciclo de a cada segundo actualizar as horas no formulário
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
End Sub

'Aqui o Evento Terminate encerra o ciclo de atualização por encerramento do formulário
Private Sub UserForm_Terminate()
onOff = False
End Sub

'Por exemplo se voce quiser abrir um userform chamado Spash
'faça uma macro que abre ativará um form splash e o fecha em 5 segundos.

'Private Sub UserForm_Activate()
'Application.OnTime Now + TimeValue("00:00:05"), "FechaSplash"
'End Sub


Aprenda Microsoft Excel VBA --((SaberExcel ))--