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

• bteebi veterán

  #21185

  #21184 pirit28

  2014-04-03 09:55:15

  Új Válasz

  Ú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

  

  bteebi

  veterán

  #21184 pirit28

  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