Excel VBA Macro для запуска на скрытом листе - PullRequest
0 голосов
/ 04 октября 2018

У меня есть сводная таблица, подключенная к внешнему набору данных.Я пытаюсь, чтобы имя листа / вкладки динамически обновлялось на основе максимального значения даты в диапазоне дат сводной диаграммы.Я смог заставить это работать, но оно меняется, если даты фильтруются в сводной таблице.Я помещаю те же данные / сводку на другую вкладку, которая просто отображает максимальное значение даты и отображает его в ячейке «С1»

=CONCATENATE("AS OF"," 
",TEXT(GETPIVOTDATA("CALL_DATE",MAX_TABLE!A1),"MM.DD.YYYY"))

. Это означает, что Лист1 помечен как «КАК ОТ 15.15.2018»

Моя проблема в том, что я не хочу, чтобы вкладка max_table была видимой, поэтому я ее скрываю.В результате макрос не работает, пока я не раскрою лист.Как только это будет скрыто, оно обновляется.Я попытался показать, запустить макрос, а затем снова спрятаться, но он не работает, как предполагалось.с приведенным ниже он не работает сам по себе, а работает, как только я раскрою лист, а затем скрывает лист после.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Sheets("MAX_TABLE").Visible = True
Sheets("MAX_TABLE").PivotTables("MAX").PivotCache.Refresh
Set Target = Sheets("MAX_TABLE").Range("C1")
If Target = "" Then Exit Sub
Sheet1.Name = Left(Target, 31)
Sheets("MAX_TABLE").Visible = False
Application.ScreenUpdating = True
Exit Sub
End Sub

1 Ответ

0 голосов
/ 05 октября 2018

моя проблема / вопрос не была действительно проблемой.я выбрал неправильный саб.Он был подключен к worksheet_selectionchange, поэтому он никогда не запускался, потому что мне всегда приходилось нажимать на скрытый лист, чтобы он срабатывал.я использовал sub worksheet_change, который не обязательно является лучшим для этой цели, но он работает, потому что скрытый лист обновляется только один раз, что заставляет макрос работать так, как задумано.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...