Оборотність (дні) =
//оборачиваемость итого с начала года

VAR StockNextMonths = CALCULATE([Залишок на початок місяця,
грн] , NEXTMONTH('CALENDARAUTO'[Date]))

VAR Stock_6Months_ago = CALCULATE([Залишок на початок місяця, грн] ,
STARTOFYEAR('CALENDARAUTO'[Date]))

VAR CountDaysInPeriod =
DATEDIFF( STARTOFYEAR('CALENDARAUTO'[Date]) ,
NEXTDAY(ENDOFMONTH(LASTDATE('CALENDARAUTO'[Date]))), DAY)

VAR
StockConsumption_6Months = CALCULATE([Розхід, грн],

                                               
DATESBETWEEN('CALENDARAUTO'[Date], 

                                                     STARTOFYEAR('CALENDARAUTO'[Date]),

                                                    
ENDOFMONTH(LASTDATE('CALENDARAUTO'[Date]))))

RETURN 

//ОБ (дни) = ( (Запас на начало периода + Запас на конец
периода)/2 х Количество дней в периоде)/Расход за период

VAR value_turnover =
((Stock_6Months_ago + StockNextMonths)/2* CountDaysInPeriod) /
StockConsumption_6Months

 

RETURN
IF(ISBLANK(value_turnover),0,value_turnover)

Private Sub
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If intersect(target,sh.range("A4:BM4")) is nothing then exit sub    
With Application  
.EnableEvents = 0: .Undo: .EnableEvents = 1   
End With
End Sub