Задача: Менять время в сводной таблице в соответствие с последним обновлением таблицы.
Пример: Последнее обновление было в 15:00, в ячейку J2
выводится 15(функция ЧАС()
). Должно получится что то вроде этой записи макроса:
ThisWorkbook.Sheets("Stat Today").PivotTables("СводнаяТаблица13").PivotFields( _
"[Time HH].[Time by Periods].[Period]").VisibleItemsList = Array( _
"[Time HH].[Time by Periods].[Period].&[Night]")
ThisWorkbook.Sheets("Stat Today").PivotTables("СводнаяТаблица13").PivotFields( _
"[Time HH].[Time by Periods].[H]").VisibleItemsList = Array( _
"[Time HH].[Time by Periods].[H].&[9]", "[Time HH].[Time by Periods].[H].&[10]", _
"[Time HH].[Time by Periods].[H].&[11]", "[Time HH].[Time by Periods].[H].&[12]" _
, "[Time HH].[Time by Periods].[H].&[13]", _
"[Time HH].[Time by Periods].[H].&[14]", "[Time HH].[Time by Periods].[H].&[15]" _
)
Мой код не работает, хотя ошибок не выдает
Dim N As Integer
Dim M As Integer
N = ThisWorkbook.Sheets("Stat Today(MainSources)").Cells(2, 10).Value
M = 8
Do Until M > N
ThisWorkbook.Sheets("Stat Today").PivotFields( _
"[Time HH].[Time by Periods].[Period]").VisibleItemsList = Array( _
"[Time HH].[Time by Periods].[Period].&[Night]")
ThisWorkbook.Sheets("Stat Today").PivotFields( _
"[Time HH].[Time by Periods].[H]").VisibleItemsList = Array( _
"[Time HH].[Time by Periods].[H].&[M]")
M = M + 1
Loop
M = 8
? ЕслиN = 15
, то условиеM > N
не будет выполняться, соответственно код отрабатывает, но ничего кроме присваивания не делает