Új hozzászólás Aktív témák

• #21185 bteebi veterán pirit28 #21184

  Új Válasz 2014-04-03 09:55:15 #21185

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bteebi

  veterán

  válasz pirit28 #21184 üzenetére

  A munkaidőhöz hozzáadni? Nem csak külön a szünetet kellene megszámolni? Talán majd jönnek szebb, egyszerűbb megoldások, de ez működik:
  Sub szunet()
  Dim i As Integer, lastrow As Integer
  lastrow = Range("B" & Rows.Count).End(xlUp).Row
  For i = 2 To lastrow
  Cells(i, 4).Value = Cells(i, 3) - Cells(i, 2)
  If Cells(i, 2).Value < 8 / 24 And Cells(i, 3).Value > 8 / 24 Then
  Cells(i, 4).Value = Cells(i, 4).Value + 30 / 1440
  End If
  If Cells(i, 2).Value < 10 / 24 And Cells(i, 3).Value > 10 / 24 Then
  Cells(i, 4).Value = Cells(i, 4).Value + 10 / 1440
  End If
  If Cells(i, 2).Value < 12 / 24 And Cells(i, 3).Value > 12 / 24 Then
  Cells(i, 4).Value = Cells(i, 4).Value + 10 / 1440
  End If
  If Cells(i, 2).Value < 14 / 24 And Cells(i, 3).Value > 14 / 24 Then
  Cells(i, 4).Value = Cells(i, 4).Value + 10 / 1440
  End If
  If Cells(i, 2).Value < 16 / 24 And Cells(i, 3).Value > 16 / 24 Then
  Cells(i, 4).Value = Cells(i, 4).Value + 10 / 1440
  End If
  If Cells(i, 2).Value < 18 / 24 And Cells(i, 3).Value > 18 / 24 Then
  Cells(i, 4).Value = Cells(i, 4).Value + 30 / 1440
  End If
  Cells(i, 4).NumberFormat = "[h]:mm"
  Next i
  End Sub

  A kódban a B és a C oszlopban (2. és 3. oszlop) a 2. sortól van a munkaidő kezdete és vége, és a D (4.) oszlopba írja ki a munkaidő+szünet összegét.

Új hozzászólás Aktív témák