Скачать или смотреть Как рассчитать отработанные часы в Excel, которые переходят за полночь

Как рассчитать отработанные часы в Excel, переходящие через полночь. Как рассчитать разницу между отметками времени, переходящим через полночь, с помощью VBA.

Бесплатные шаблоны и шаблоны с кодом доступны для покупки за 50 долларов США.

https://www.easyexcelanswers.com/temp...
Дополнительные шаблоны могут быть доступны по запросу.

Ознакомьтесь с моим введением в VBA:    • Introduction to VBA for Excel  

Перейдите по этой ссылке, чтобы ознакомиться с моими индивидуальными занятиями: http://www.calendly.com/easyexcelanswers

Для получения дополнительной помощи посетите мой сайт www.easyexcelanswers.com или напишите мне по адресу [email protected].

Свяжитесь со мной, чтобы настроить этот шаблон под ваши нужды.

Перейдите по ссылке для онлайн-консультации по Excel: http://www.calendly.com/easyexcelanswers

Я могу предоставить онлайн-помощь по работе с вашим компьютером по разумной цене.

Я использую Tube Buddy для продвижения своих видео. Посмотрите их.

Подпишитесь на меня в Facebook.

  / easyexcel.answers  

IG @barbhendersonconsulting

Вы можете помочь и создать перевод на свой язык.

http://www.youtube.com/timedtext_cs_p...

*Это описание может содержать партнёрские ссылки. При переходе по ним я могу получить небольшую комиссию без каких-либо дополнительных затрат с вашей стороны. Я рекомендую только те товары и услуги, которыми сам пользовался или с которыми имею опыт.

Как вставить код VBA в Excel    • How to insert VBA code in Excel  
Sub shifts()
Dim barcode As String
Dim rng As Range
Dim Total As Date
Dim tothrs As Double
Dim Timest As Date
Dim Timeed As Date
Dim rownumber, c As Long
Dim formattedTime As String
Dim Totalhours As Date
Dim serialNumber As Double
Dim SserialNumber As Double
Dim EserialNumber As Double

barcode = ActiveSheet.Cells(2, 2)
Если barcode = "" Then Exit Sub
Если barcode не равен "" Then
Set rng = ActiveSheet.Range("A4:A100").Find(What:=barcode, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Если rng — это Nothing Then
MsgBox "ID# не найден"

Иначе
rownumber = rng.Row
ActiveSheet.Range(Cells(rownumber, 3), Cells(rownumber, 24)).Find("").Select
'****************************
ActiveCell.Value = Дата & " " & Время
ActiveCell.NumberFormat = "д/м/гггг ЧЧ:мм:сс"
'****************************************

c = ActiveCell.Column
Если Sheet1.Cells(3, c).Value = "in" Then GoTo ende

Timest = Format((ActiveCell.Offset(0, -1).Value), "д/м/гггг ЧЧ:мм:сс")
Серийный номер = Активная ячейка.Смещение(0, -1).Значение
'*******************************************************
Время = Формат((Активная ячейка.Значение), "д/м/гггг ЧЧ:мм:сс")
Серийный номер = Активная ячейка.Значение
Всего часов = Формат(Серийный номер - Серийный номер, "ЧЧ:мм:сс")

Активная ячейка.Смещение(0, 1).Значение = Всего часов
Отладка.Печать Всего часов
Отладка.Печать Формат(Итого, "ЧЧ:мм:сс")

Всего часов = Активная ячейка.Значение * 24
Лист1.Ячейки(номер_строки, 3).Значение = Лист1.Ячейки(номер_строки, 3) + Всего часов
Лист1.Ячейки(номер_строки, 5).Формат_числа = "чч:мм:сс"

конец:
Активный_лист.Ячейки(2, 2) = ""
Конец_если
Конец_если
Активный_лист.Ячейки(2, 2).Выбрать
Конец_подпункта