Остаток предыдущего месяца (фактический или расчетный) + Закупки - Продажи.

one_and_only_001_mail.ru

one_and_only_001@mail.ru

Аккуратность = 1 - SUM('table'[разница]) / SUM('table'[План])

Столбец1 = CALCULATE(SUM('table'[Значение]),
ALLEXCEPT('table','table'[название магазина],'table'[название продукта],'table'[номер_месяца]),
'table'[номер_недели] = MAX('table'[номер_недели])))

NON EMPTY {
StrToMember("[Calendar].[Calendar YMD].[All].&[2021].&[" +  Format(Now(),"MM")  + "]"),
StrToMember("[Calendar].[Calendar YMD].[All].&[2021].&[" +  Format(Now()-1,"MM") + "]") *
Distinct(Hierarchize(

objExcel.workbooks.open args(0)

XLSX = "C:\test\file.xlsb"
PASS = 13

With CreateObject("Excel.Application") 
  .Workbooks.Open XLSX, 0, False, 5,, PASS

objExcel.workbooks.open args(0)
objExcel.Visible = false
objExcel.run "Scheduled_Refresh"
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close(0)
objExcel.quit
ObjShell.run ("cmd /c taskkill /IM EXCEL.EXE /t /f")
Set objExcel = nothing

Option Explicit
Dim WshShell, objXL, objWorkbook


Set objXL = CreateObject("Excel.Application")
objXL.Visible = TRUE
Set objWorkbook = objXL.Workbooks.Open("C:\Users\Me\Desktop\Update.xlsb")

Dim wsh

Set wsh = WScript.CreateObject("WScript.Shell")
wsh.Run("""C:\Program Files (x86)\SAP\Office\Launcher.exe""")
Set wsh = Nothing

ObjShell.run ("cmd /c cd %ProgramFiles(x86)%\Objects\Office AddIn & nadstroika.exe /app XLS /lb 3")

Dim avArr
avArr = Array("Солнце", "Луна", "Облака", "Воздух")
For h = 0 To 3
For c = lLastRowEnd To 9 Step -1
    If Not Cells(c, 2).Value Like "*" & avArr(h) & "*" Then
        Rows(c & ":" & c).EntireRow.Hidden = True
    End If

.SpecialCells(xlCellTypeVisible)(1).copy 

For i = 1 To 10
    MsgBox ("hello!")
    Range("A1").Select
    Range("B1").Select
    Range("C1").Select
Next i

mybook.Activate
For Each c In Range(Cells(21, 11), Cells(ilastESR - 1, 11)) 'äîëè
    If c.Interior.Color = 5296274 Then
       With c
            .Copy: bklist.Sheets("Calc").Cells(lLastRow3 + 9, c.Column).PasteSpecial xlPasteValues
            .Offset(1, 0).Copy: bklist.Sheets("Calc").Cells(lLastRow3 + 10, c.Column).PasteSpecial xlPasteValues
            .Offset(2, 0).Copy: bklist.Sheets("Calc").Cells(lLastRow3 + 11, c.Column).PasteSpecial xlPasteValues
       End With
       lLastRow3 = lLastRow3 + 10
    End If
Next

ЛЕВСИМВ(АДРЕС(СТРОКА();СТОЛБЕЦ();4);1)&":"&ЛЕВСИМВ(АДРЕС(СТРОКА();СТОЛБЕЦ();4);1)

    Dim MyName As String
    Dim MyPath As String
    Dim sPath As String
        MyPath = "C:\Users\PC\Desktop\open\"
        MyName = Dir(MyPath & "*.xlsm")
         Do While MyName <> ""
            sPath = MyPath + MyName
            Excel.Application.Workbooks.Open sPath
            MyName = Dir
         Loop

Sub macros1()

    ActiveCell.FormulaR1C1 = _
        "=IF(OR(R[-1]C4=""cat"",R[-1]C4=""dog""),SUM(SUMIF(list2!R8C1:R13000C1,CONCATENATE(R[-1]C[-9],RIGHT(RC[-3],LEN(RC[-3])-SEARCH(""."",RC[-3]))),list2!R8C14:R13000C14),SUMIF(list2!R8C2:R13000C2,CONCATENATE(R[-1]C[-9],RIGHT(RC[-3],LEN(RC[-3])-SEARCH(""."",RC[-3]))),list2!R8C14:R13000C14),SUMIF(list2!R8C3:R13000C3,CONCATENATE(R[-1]C[-9],RIGHT(RC[-3],LEN(RC[-3])-SEARCH(""." & _
        "]))),list2!R8C14:R13000C14),SUMIF(list2!R8C4:R13000C4,CONCATENATE(R[-1]C[-9],RIGHT(RC[-3],LEN(RC[-3])-SEARCH(""."",RC[-3]))),list2!R8C14:R13000C14)),SUM(SUMIF(list2!R8C1:R13000C1,CONCATENATE(R[-1]C[-9],RIGHT(RC[-3],LEN(RC[-3])-SEARCH(""."",RC[-3]))),list2!R8C13:R13000C13),SUMIF(list2!R8C2:R13000C2,CONCATENATE(R[-1]C[-9],RIGHT(RC[-3],LEN(RC[-3])-SEARCH(""."",RC[-3]))" & _
        "8C13:R13000C13),SUMIF(list2!R8C3:R13000C3,CONCATENATE(R[-1]C[-9],RIGHT(RC[-3],LEN(RC[-3])-SEARCH(""."",RC[-3]))),list2!R8C13:R13000C13),SUMIF(list2!R8C4:R13000C4,CONCATENATE(R[-1]C[-9],RIGHT(RC[-3],LEN(RC[-3])-SEARCH(""."",RC[-3]))),list2!R8C13:R13000C13))/1000)"

End Sub