Function ПРОИЗВОДСТВО_2(N  As Integer, IntП  As Integer, IntS As Integer, _
Tnd As Date, Tраб  As Date, Tоп As  Date)
 
Dim Пx As Integer 'Номер партии в которой обрабатывается деталь
Dim Nк As Integer 'Номер конечной детали партии
Dim Nн As Integer 'Номер начальной детали в партии
Dim Tко As Date 'Время конца обработки предыдущей детали
Dim Tпд As Date 'Время получения последней детали для партии
Dim Tсо As Date 'Время старта операции
Dim Tmax As Date 'Дата и время окончания дня
 
Пx  = Int((N / IntП)  - 0.0001) + 1
Nк  = Пx * IntП
Nн  = ((Пx - 1) * IntП)  + 1
 
IIf (IntS * IntП)  < N, _
Tко  = Range(Application.Caller.Address).Offset(0, ((Nн  - N) - 1)), _
Tко = 0
'обнаружение времени конца обработки предыдущей партии на оборудовании
 
Tпд  = Range(Application.Caller.Address).Offset(-1, (Nк  - N))
'обнаружение времени конца обработки посленей детали для партии
 
IIf Tпд > Tко, Tсо = Tпд, Tсо = Tко
'обнаружение стартового времени операции
 
Tmax = Int(Tсо) + Tраб
'обнаружение времени окончания работы оборудования
 
If (Tсо + Tоп) > Tmax Then
    Tсо = Int(Tпд) + 1 + Tnd 'перенос старта на следующий день
End If

MsgBox Tпд

ПРОИЗВОДСТВО_2 = Tсо + Tоп

End Function

Dim DtA as Date
DtA = Range(Application.Caller.Address).Offset(КудаПоСтрокам, КудаПоСтолбцам)

Function TEST()
Dim R as Variant

R = Application.Caller.Address

TEST = R.Offset(0, -1).Value

End Function 

Option Explicit
Public N As Integer   'Состояние проверки 1=в работе/0=простой


Sub Закрытие()
    Dim dtTime As Date 'абсолютное время проверки
    Dim dtStep As Date 'относительное время до следующей проверки

    dtStep = #12:00:20 AM#
    dtTime = Time + dtStep

    If N = 1 Then
        Application.OnTime dtTime, "ЭтаКнига.Закрытие"
        N = 0
    Else
        ThisWorkbook.Save
        ThisWorkbook.Close
    End If

End Sub

Private Sub Workbook_Open()
    'MsgBox "Workbook_Open"
    N = 1
    Call Закрытие
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 '   MsgBox "Workbook_SheetSelectionChange " & Chr(13) & Sh.Name & Chr(13) & Target.Address
    N = 1
End Sub

Private Sub Scroll_vertical_Change()
       N = 1
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    N = 1
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    N = 1
End Sub