Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketArbejdstidsplanlægning

 Besvar Besvar
Forfatter
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Emne: Arbejdstidsplanlægning
    Sendt: 02.Nov.2011 kl. 12:37
Hej Jørgen,
Find_absense er en formel som jeg selv har udviklet, en såkaldt UDF som er lavet i VBA.
Formlen har den styrke at jeg kan regne over midnat og samtidig tage højde for frokost, pauser eller fraværskoder (f, ff, bs osv.) hvis nødvendigt.
 
//Allan
 
Til top



Til top
Jørgen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 28.Maj.2010
Land: Danmark
Status: Offline
Point: 72
Direkte link til dette indlæg Sendt: 02.Nov.2011 kl. 11:51
Hej Allan
 
Jeg ser først dit svar nu !! Har af en eller anden grund ikke fået en mail om at der var svar.
 
Tak for svar. Ikke fordi jeg er sikker på jeg forstår det hele, men det virker, og det er det vigtigste.
 
Du skriver ikke noget om =Find_absense(A7;B7)
 
Hvorfor bruger du selv den formel, og hvad er fordelen frem for  =B7-A7+(B7<A7)
 
Jørgen
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 24.Okt.2011 kl. 12:48
Hej Jørgen,
 
For at svare på dit spørgsmål vedr 24 timers tidsregning henover midnat, vil jeg bryde formlen op i bidder.
 
=B7-A7 trækker sluttid fra starttid, dette er korrekt bortset fra hvis sluttid er mindre end starttid (Henover midnat.)
Hvis man på forhånd ved at det er tilfældet, kan man bruge formlen =B7-A7+1 for at undgå at resultatet bliver negativt, lægger den 1 døgn til.
Men....man kan også få formlen til at klare det selv.
 
Den sidste del af formlen gør dette ved at returnere SAND eller FALSK (1 eller 0)
Formlen =(B7<A7) vil returnere 1 hvis Sluttid er mindre en Starttid, og 1 hvis det modsatte er tilfældet.
 
Hele formlen =B7-A7+(B7<A7) vil derfor altid regne korrekt hen over midnat.
 
Svært at forklare, men jeg bruger selv denne netode til at regne på tværs af midnat.
 
//Allan
Til top
Jørgen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 28.Maj.2010
Land: Danmark
Status: Offline
Point: 72
Direkte link til dette indlæg Sendt: 24.Okt.2011 kl. 10:28
Hej Allan
 
Det kunne da være interessant at se den "store vagtplan" !!
 
Jeg har kikket lidt på dine formler i "Vagtskema", for at prøve at finde ud af hvordan man kan lægge tider sammen.
 
På vedlagte regneark har jeg prøvet på 3 forskellige måder.
 
1) almindelig difference mellem 2 celler, men den giver en forkert sum hvis man lægger dem sammen, og den kan ikke regne hen over midnat.
2) Her har jeg brugt =B7-A7+(B7<A7), som jeg har fundet et eller andet sted. Den virker, men kan du forklarer mig hvad den egenligt gør Den trækker cellerne fra hinanden lige som den første, men hvad er det egenkligt at den lægger til - og hvorfor
3) Her har jeg prøvet at bruge =Find_absense(A7;B7) lige som i dit vagtskema, men uden held.
 
 
Jørgen
 
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 23.Okt.2011 kl. 12:37
Hej PI,
 
Jeg styrer rigtig nok ikke formateringen med betinget formatering, da det kræver flere kriterier end den (I Excel 2003 og tidligere) kan håndtere.
Jeg gør det via en såkaldt event, som aktiveres når en celle inden for et defineret områder ændres.
Koden ser således ud og placeres under det ark som skal indeholde funktionen:
 
' Developed by Allan Thustrup Mortensen - Excel-regneark.dk
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Endmacro
If Application.Intersect(Target, Range("e17:bn36")) Is Nothing Then
    Exit Sub
End If
If Target.Cells.Count > 1 Then
        Target.Interior.ColorIndex = StandardFarve
        Target.Font.ColorIndex = 1
        Target.Font.Bold = False
    Exit Sub
End If
If Target.Value = "" Then
Target.Interior.ColorIndex = 0
    Exit Sub
End If
'Syg
If Target.Value = "s" Or Target.Value = "S" Then
    Target.Interior.ColorIndex = 38
    Target.Offset(0, 1).Activate
    Exit Sub
End If
'Ferie, FerieFridag
If Target.Value = "f" Or Target.Value = "F" Or Target.Value = "ff" Or Target.Value = "FF" Then
    Target.Interior.ColorIndex = 37
    Target.Offset(0, 1).Activate
    Exit Sub
End If
'Barn syg
If Target.Value = "bs" Or Target.Value = "BS" Then
    Target.Interior.ColorIndex = 38
    Target.Offset(0, 1).Activate
    Exit Sub
End If
'Betalt fri
If Target.Value = "bf" Or Target.Value = "BF" Then
    Target.Interior.ColorIndex = 35
    Target.Offset(0, 1).Activate
    Exit Sub
End If
'Kursus
If Target.Value = "k" Or Target.Value = "K" Then
    Target.Interior.ColorIndex = 27
    Target.Offset(0, 1).Activate
    Exit Sub
End If
'Orlov
If Target.Value = "o" Or Target.Value = "O" Then
    Target.Interior.ColorIndex = 37
    Target.Offset(0, 1).Activate
    Exit Sub
End If

Kol = Target.Column

'hvis du befinder dig i sluttidsfeltet, skal vi bruge datoen for starttidsfeltet
If Ark1.Cells(2, Target.Column) = "" Then Kol = Target.Column - 1
'hvis det er en hverdag, så skal standard farven være gul
If Weekday(Ark1.Cells(2, Kol), vbMonday) < 6 Then StandardFarve = 36
'hvis det er en hverdag, så skal standard farven være laksefarvet
If Weekday(Ark1.Cells(2, Kol), vbMonday) > 5 Then StandardFarve = 40
Exit Sub
Endmacro:
MsgBox "        Indtastningsfejl !!!" & Chr(13) & Chr(13) & "  Se evt. arket 'Forklaring' " & Chr(13) & Chr(13) & "            Prøv igen !"
Application.EnableEvents = True
End Sub
 
Jeg skal måske lige nævne at denne minivagtplan er en pixiudgave af et større vagtplanssystem som kan styre vagtlægning af op til 150 personer med time/lønskema, fraværsstatistik og prognostisering frem i tiden.
I den 'rigtige' vagtplan kan man vagtplanlægge ud fra de ansattes kompetencer og den kan faktisk lægge en optimal vagtplan automatisk samtidig med den tager højde for ønsker, ferie og andet.
 
//Allan
Til top
PI Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 07.Mar.2011
Status: Offline
Point: 294
Direkte link til dette indlæg Sendt: 22.Okt.2011 kl. 19:04
Hej Allan
 
Hvad er Passwordet til Vagtplanen? Jeg vil gerne se hvordan du styrer farverne i cellerne. Det ser ikke umiddelbart ud til at du i første fane styrer farverne med Betinget formattering.
Mvh. PI / Excel 2010
Til top
Jørgen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 28.Maj.2010
Land: Danmark
Status: Offline
Point: 72
Direkte link til dette indlæg Sendt: 21.Okt.2011 kl. 14:10
Hej Allan
Du er fantastisk.
 
Og ja hvis du kunne strikke noget sammen som andre også kan bruge, så vil det være meget dejligt.
 
Jørgen
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 21.Okt.2011 kl. 13:50
Hej Jørgen,
 
I denne version 3, har jeg tilføjet grænsen for frokost.
Som standard er den blevet sat til 4 timer, men den kan justeres på arket 'Totaler'
 
Et Timeskema med overenskomstregler som du forespørger, kan naturligvis også laves... jeg kigger lige på det Tongue
Det er vigtigt at det kan konfigureres så andre kan bruge det også.
 
Version 3 med justerbar frokost kan hentes her:uploads/1/Vagtskema_v3.xls
 
//Allan
Til top
Jørgen Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 28.Maj.2010
Land: Danmark
Status: Offline
Point: 72
Direkte link til dette indlæg Sendt: 19.Okt.2011 kl. 15:12
Hej Allan
 
jeg har samme "problem"
Dit vagtskema er godt på vej, men jeg mangler også et jeg kan bruge til "alm mennesker"
 
Er det muligt at lægge regler for overarbejde ind også. Hvis man arbejder efter kl ??? så er det + 50%
Arbejde om søndagen er + 100% og så videre. Det skal jo helst passe med at vi har den nominerede tid, og ikke skal til at afspadserer mm. (HK overenskomst)
Det vil sige at summen af arbejdstimer skal holdes op mod medarbejderens "normtid" således at hvis man arbejder 8 timer en søndag, så har man f.eks kun 37 - (8+100%) = 37-16 = 21 timer tilbage i den uge.
 
En anden ting jeg undre mig over, det er at du fratrækker 30 min til frokost uanset hvorlænge men arbejder,  og hvornår man møder. Hvis der komme en vikar ind med en nomineret ugetid på. eks 10 timer, og han møder kl 15:00 til 17:00, så skal han jo ikke have frokost
 
Det er mange variable, men håber at du kan følge mig
 
Jørgen
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 12.Aug.2011 kl. 10:31
En lille opdatering pga. en fejl i det uploadede vagtskema.
Fejlen var på arket 'Totaler' og berørte samtælling af timer (Brutto og Nettotimer)
Den korrigerede version kan hentes her: uploads/1/Vagtskema_v2.xls
 
//Allan
Til top
Targhan Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 20.Maj.2010
Status: Offline
Point: 3
Direkte link til dette indlæg Sendt: 13.Jul.2010 kl. 22:12

Hej Allan

Mange tak for hjælpen - den er rigtig god for restaurant og café. Det jeg søger skal tage højde for fastansatte medarbejdere, nogle med 37, andre 35 timer osv. om ugen.
På forhånd tak
Targhan 
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 06.Jun.2010 kl. 21:45
Hej igen,
 
Her er et lille ark som kan bruges som vagtplan, som oprindeligt er lavet til en restaurant.
Arket er afhængigt af at du åbner det med makroer, så husk at åbne MED MAKROER, ellers virker urværket ikke.
I Excel 2007 og 2010 kræver det en indstilling i sikkerhedscenteret.
 
Det var rimelig hurtigt at lave, jeg håber det er dette du søger Smile
 
Det fungerer ved at du skriver navnene på medarbejderne i det gule område på 'Vagtskema'
I feltet 'Startdato' (A3) skal du skrive det første dag du ønsker i din vagtplan.
 
I feltet 'Opgave type' kan man skrive en forklarende tekst for hver opgavetype man har.
I feltet 'Gæster pr. tjener' skriver du hvor mange opgaver en medarbejder selv kan udføre af en given type.
I de hvide felter under datoerne, skriver man hvor mange opgaver den specifikke dag har af en bestemt type.
 
Den grå kolonne 'Job kode' er lavet så man kan angive produktive og ikke produktive vagter, 'TJ' er en produktiv vagt, alt andet er ikke produktivt og tæller ikke med i bemandingen.
 
Møde og slut tidspunkter er lavet så systemet laver det meste for dig, følgende regler gælder:
tast 700 og systemet korrigerer til 07:00
Tast 745 for 07:45
Tast 1200 for 12:00
1201 for 12:01 osv.
Det gør det hurtigt for dig at lave planen.
 
Tastes der 's' i mødetidspunktet, registreres det som en sygedag, 'bs' som barns først sygedag, 'o' for orlov osv.
Har du brug for at fremhæve en bestemt vagt, dobbeltklikker du bare på mødetidspunktet, og vagten fremhæves med grøn farve.
Forklaring på disse fraværskoder og andre hjælpeting findes på arket 'Forklaring'
 
Arket 'Totaler' vil forsyne dig med summering af timer, frokost, sygdom og andre fraværskoder.
 
//Allan
 
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 04.Jun.2010 kl. 14:56
Hej Targhan,
 
Jeg har et lille ark et sted i mine gemmer, jeg leder efter det og lægger det op så hurtigt jeg kan.
Det er oprindeligt lavet til planlægning af vagter for tjenere i en restaurant, baseret på en prognose af kunder.
 
Hæng på, jeg prøver at finde det.
 
//Allan
Til top
Targhan Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 20.Maj.2010
Status: Offline
Point: 3
Direkte link til dette indlæg Sendt: 31.Maj.2010 kl. 00:55
Hej alle
Jeg er ny her og har brug for et excel ark til at planlægge arbejdstider for medarbejdere. Er der hjælp at hente?
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk