Çalışma Süreleri Hesaplama

[kral425]

Merhaba arkadaşlar excel yeni başladım aranıza yeni katıldım

excel dosyası aşağıdaki linktedir.
https://yadi.sk/i/JmM1eNqtYwUX8

şu şekilde bi tablo oluşturdum

şimdi yapmak istediğime geleyim çalışma süreleri yazılı burdaki sutunları toplayarak haftalık çalışma süresini vermesini istiyorum her sutunda iki tane saat dilimi olduğu için toplayamadım yardımcı olursanız sevinirim

veya excel de şu şekilde bişey yapılabilirmi

teşekkürler yardımlarınız için

 

[acar6783]

veya excel de şu şekilde bişey yapılabilirmi

Bunu nerden aldınız?

 

[halit3]

Sayfa 1 için kod

Private Sub CommandButton1_Click()

For j = 2 To Cells(Rows.Count, "B").End(3).Row
say5 = 0
say6 = 0

For i = 2 To 8
hucre = Cells(j, i).Value
deg1 = Split(hucre, "-")
If UBound(deg1) > 0 Then
'MsgBox deg1(0)
say1 = Mid(deg1(0), 1, 2)
say2 = Mid(deg1(1), 1, 2)
say3 = Mid(deg1(0), 4, 2)
say4 = Mid(deg1(1), 4, 2)

If say1 > say2 Then say2 = 24 + say2


If say4 >= say3 Then
say6 = say6 + (say4 - say3)

Else
say6 = say6 + ((say4 + 60) - say3)
say1 = say1 + 1

End If

If (say2 - say1) < 0 Then
say5 = say5 + 23
Else

say5 = say5 + (say2 - say1)
End If
End If
Next

Cells(j, 9).Value = Format(say5, "00") & "," & Format(say6, "00")
Next

End Sub

Sayfa2 için kod:

Private Sub CommandButton1_Click()

For j = 2 To Cells(Rows.Count, "B").End(3).Row
say5 = 0
say6 = 0


'MsgBox deg1(0)
say1 = Format(Cells(j, 3).Value, "hh")
say2 = Format(Cells(j, 4).Value, "hh")
say3 = Format(Cells(j, 3).Value, "nn")
say4 = Format(Cells(j, 4).Value, "nn")

'If say1 > say2 Then say1 = (say1 - say2)
If say1 > say2 Then say2 = 24 + say2

'MsgBox say1 & "  " & say4

If Val(say1) > 0 And IsNumeric(say1) = True Then
If say4 >= say3 Then
say6 = (say4 - say3)

Else
say6 = ((say4 + 60) - say3)
say1 = say1 - 1

End If

say5 = (say2 - say1)

Cells(j, 5).Value = Format(say5, "00") & "," & Format(say6, "00")
End If
Next

End Sub

Sayfa3 için kod:

Private Sub CommandButton1_Click()

Range("E2:AB8").Interior.ColorIndex = xlNone

For j = 2 To Cells(Rows.Count, "B").End(3).Row
say5 = 0
say6 = 0

say1 = Format(Cells(j, 3).Value, "hh")
say2 = Format(Cells(j, 4).Value, "hh")
say3 = Format(Cells(j, 3).Value, "nn")
say4 = Format(Cells(j, 4).Value, "nn")

If say1 > say2 Then say2 = 24 + say2


If Val(say1) > 0 And IsNumeric(say1) = True Then
r = Val(say1) + 4
For i = Val(say1) To Val(say2)
r = r + 1
Cells(j, r).Interior.ColorIndex = 5
If r = 23 + 5 Then
r = 4
End If
Next

If say4 >= say3 Then
say6 = (say4 - say3)

Else
say6 = ((say4 + 60) - say3)
say1 = say1 - 1

End If

say5 = (say2 - say1)

Cells(j, "AC").Value = Format(say5, "00") & "," & Format(say6, "00")
End If
Next

End Sub