Mange små kontorer taper mye penger fordi de ikke har et skikkelig verktøy for å spore sine ansattes timeliste. Med Excel kan vi bygge en automatisert timeregistrering. Ansatte må logge inn og ut for å fange opp timene som er jobbet for en dag.
Last ned nå
Hvis du ønsker å starFor å bruke programvaren så snart som mulig, kan du:
Ellers, hvis du vil gjøre DIY, kan du lese innholdet nedenfor.
La oss forberede GUI
Vi trenger bare et enkelt ark i arbeidsboken. Gi nytt navn til enkeltarket til "Database". Lag en tabell på arket for å logge på og logge ut tid.
La oss gjøre det funksjonelt
Kopier makroen til en ny modul i arbeidsboken din. Fest den til knappen du har opprettet på arket "Database"
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(Range("B" & r).Verdi, "mm/dd/åååå")) = CStr(Format(Nå, "mm/dd/åååå")) Deretter v_lr = r Avslutt For Slutt Hvis Neste r If ( v_lr = 0) Deretter MsgBox ("I dag er ikke i timelisten") Else Sheets("Database"). Range("D" & v_lr). Verdi = Format(Nå, "[$-F400]t:mm:ss AM/PM") Sheets("Database").Buttons("Login_Button").Caption = "Sign Out" End If Else v_lr = 0 For r = 11 To 41 If CStr(Format(Range("B" & r) .Verdi, "mm/dd/åååå")) = CStr(Format(Nå, "mm/dd/åååå")) Deretter v_lr = r Avslutt For End If Next r If (v_lr = 0) Deretter MsgBox ("I dag er ikke i timelisten") Else Sheets("Database").Range("E" & v_lr).Verdi = Format(Nå, "[$-F400]t:mm:ss AM/PM") Sheets("Database" ).Buttons("Login_Button").Caption = "Sign In" Range("B7").Value = Range("G7").Value / Int(Split(Range("G5").Text, ":") (0)) Range("E7").Verdi = Range("B7").Verdi * Int(Split(Range("E5").Tekst, ":")(0)) End If End If Sheets(" Database"). Protect End Sub
Hvordan virker det?
Når makroen kjører, identifiserer den den sist brukte raden i tabellen. Den leser deretter gjeldende tid ved å bruke nå-funksjonen. Med dette fanges innloggingstiden til den ansatte og legges til tabellen. Hvis den samme knappen trykkes, logger makroen gjeldende tid som utloggingstid. Vær oppmerksom på at du må oppdatere feltene over tabellen med passende verdier for å få samlet timeverk og fakturabeløpet. Du kan enten bruke formel eller makro for å fylle ut totalt antall timer og totalt cost.
Juster det
Denne makroen fanger opp tidsregistreringer for en enkelt ansatt. Legg til et nytt ark, last opp all ansattes informasjon til arket. Opprett en rullegardin med unike navn på de ansatte, og la deretter ansatte velge navnet sitt fra rullegardinlisten og logge tiden deres. Et lite brukerskjema kan brukes til å lage innloggingsskjemaet som hver ansatt kan legge inn sin innloggings-ID og passord med. Lag et ark og legg til ansattes og deres legitimasjon. Når brukeren sender inn ID og passord gjennom skjemaet, kan oppføringen kontrolleres mot databasen. Hvis ID og passord ikke samsvarer med legitimasjonen i databasen, vis en feilmelding slik at brukeren kan prøve på nytt.
Interaktivt dashbord
Du kan også lage et interaktivt dashbord som viser ansatte som ikke har fylt timelisten eller ansatte som har hatt permisjon i flere dager eller ansatte som har gjort det over tid. Forsikre deg om at koden du legger til for å justere gjeldende skript er kompatibel med Excel-versjonen. En inkompatibel kode har større sjanser for å ødelegge xlsm-filer, og du må reparere Excel arkiver deretter.
Forfatterintroduksjon:
Nick Vipond er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert skadet ord og Outlook-programvareprodukter. For mer informasjon besøk www.datanumen. Med.
Legg igjen en kommentar