Muitos pequenos escritórios perdem muito dinheiro porque não possuem uma ferramenta adequada para rastrear o quadro de horários de seus funcionários. Com o Excel, podemos criar um rastreador de quadro de horários automatizado. Os funcionários precisam entrar e sair para registrar as horas trabalhadas em um dia.
Faça o download
Se você quiser start para usar o software o mais rápido possível, então você pode:
Caso contrário, se você quiser DIY, pode ler o conteúdo abaixo.
Vamos preparar a GUI
Só precisamos de uma única folha na pasta de trabalho. Renomeie a planilha única como “Banco de dados”. Crie uma tabela na planilha para registrar o tempo de entrada e saída.
Vamos torná-lo funcional
Copie a macro para um novo módulo em sua pasta de trabalho. Anexe-o ao botão que você criou na planilha “Banco de Dados”
Sub Click_Here() Dim v_lr As Long Sheets("Database").Unprotect If Sheets("Database").Buttons("Login_Button").Caption = "Sign In" Then v_lr = 0 For r = 11 To 41 If CStr( Format(Intervalo("B" & r).Value, "mm/dd/aaaa")) = CStr(Format(Now, "mm/dd/aaaa")) Then v_lr = r Exit For End If Next r If ( v_lr = 0) Then MsgBox ("Hoje não está no quadro de horários") Else Sheets("Database").Range("D" & v_lr).Value = Format(Now, "[$-F400]h:mm:ss AM/PM") Sheets("Database").Buttons("Login_Button").Caption = "Sair" End If Else v_lr = 0 For r = 11 To 41 If CStr(Format(Range("B" & r) .Value, "mm/dd/aaaa")) = CStr(Format(Now, "mm/dd/aaaa")) Then v_lr = r Exit For End If Next r If (v_lr = 0) Then MsgBox ("Hoje é não está no quadro de horários") Else Sheets("Database").Range("E" & v_lr).Value = Format(Now, "[$-F400]h:mm:ss AM/PM") Sheets("Database" ).Buttons("Login_Button").Caption = "Entrar" Range("B7").Value = Range("G7").Value / Int(Split(Range("G5").Text, ":") (0)) Range("E7").Value = Range("B7").Value * Int(Split(Range("E5").Text, ":")(0)) End If End If Sheets(" Banco de Dados").Proteger End Sub
Como funciona?
Quando a macro é executada, ela identifica a última linha usada na tabela. Em seguida, ele lê a hora atual usando a função Now. Com isso, o horário de login do funcionário é capturado e adicionado à tabela. Se o mesmo botão for pressionado, a macro registra a hora atual como hora de logout. Observe que você deve atualizar os campos acima da tabela com os valores apropriados para obter o total de horas trabalhadas e o valor da fatura. Você pode usar fórmula ou macro para preencher o total de horas e o total cost.
Ajuste-o
Esta macro captura as entradas de tempo para um único funcionário. Adicione uma nova planilha, carregue todas as informações dos funcionários na planilha. Crie um menu suspenso usando nomes exclusivos dos funcionários e permita que os funcionários escolham seus nomes no menu suspenso e registrem seu tempo. Um pequeno formulário de usuário pode ser usado para criar o formulário de login com o qual cada funcionário pode inserir seu ID de login e a senha. Crie uma planilha e adicione os funcionários e suas credenciais. Quando o usuário envia seu ID e senha por meio do formulário, a entrada pode ser verificada no banco de dados. Se o id e a senha não corresponderem à credencial no banco de dados, mostre uma mensagem de erro para que o usuário possa tentar novamente.
Painel interativo
Você também pode criar um painel interativo que mostre os funcionários que não preencheram seu quadro de horários ou os funcionários que estiveram de licença por vários dias ou os funcionários que o fizeram ao longo do tempo. Certifique-se de que o código adicionado para ajustar o script atual seja compatível com a versão do Excel. Um código incompatível tem maiores chances de corromper arquivos xlsm e você precisa reparar Excel arquivo em conformidade.
Introdução do autor:
Nick Vipond é um especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo palavra danificada e produtos de software de recuperação do Outlook. Para mais informações visite www.datanumen.com.
Deixe um comentário