Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Подстановка фраз к списку других фраз
 
Цитата
Wild.Godlike написал: ПКМ обновить
Рустам, все - разобрался что-то с power query было не так, установил его и все заработало, такое ощущение, что его не было просто

Цитата
Максим В. написал: Изучите эту статью  Генератор фраз из заданных фрагментов
спасибо! Все очень подробно, сделал после видео себе такой генератор минут за 10
Изменено: PantileevAndrey - 15.06.2020 14:08:07
Подстановка фраз к списку других фраз
 
только у меня с обновлением какой-то затык
Изменено: PantileevAndrey - 15.06.2020 12:01:04
Подстановка фраз к списку других фраз
 
Цитата
Wild.Godlike написал:
На текущий момент 2200 вариантов
спасибо! как Вас отблагодарить ?
Подстановка фраз к списку других фраз
 
Доброго дня, подскажите пожалуйста, появилась вот такая задача:

есть список фраз, который может быть разным по их количеству в одном столбце (фразы типа доставка цветов домой, быстрая доставка цветов)

К этому списку фраз нужно прицепить фразу или даже две фразы 1. метро 2. название станции метро (необходимо к каждой фразе прицеплять поочереди весь список названий станций метро)
В итоге должен получиться список запросов
быстрая доставка цветов метро охотный ряд,
быстрая доставка цветов метро строино,
доставка цветов домой метро охотный ряд

В примере список станций на одном листе, а на втором листе запросы, которые можно использовать для подстановки к ним названий станций (количество запросов может быть разное, какое именно сказать не могу, оно всегда разное)

вот в таком духе -( как я понял обычными формулами такое мне не осилить, может у кого-то ест готовый макрос для решения такой задачи?
Excel VBA Макрос который обновит запрос, а после завершения переключится на определенный лист
 
Есть 2 файла excel 2016, в первом заполняю "умные" таблицы и выгружаю во второй где строится сводная таблица.

Задача: Сделать макрос который обновит запрос, дождется завершения а после обновит все сводные таблицы.

Код макроса обновления запроса и сводных таблиц:
Код
    IsBG_Refresh = ThisWorkbook.Connections("Запрос — AllTables").OLEDBConnection.BackgroundQuery
    ThisWorkbook.Connections("Запрос — AllTables").OLEDBConnection.BackgroundQuery = False
    ThisWorkbook.Connections("Запрос — AllTables").Refresh
    ThisWorkbook.Connections("Запрос — AllTables").OLEDBConnection.BackgroundQuery = IsBG_Refresh
    Sheets("Статистика").PivotTables("Статистика").PivotCache.Refresh
    Sheets("Сравнение").PivotTables("Сравнение").PivotCache.Refresh
    Sheets("Диаграмма").PivotTables("Диаграмма").PivotCache.Refresh
    Sheets("Статистика").Range("H1").Value = 1

Код запуска другого макроса(прописан в коде листа "Статистика"):
Код
Private Sub Worksheet_Change(ByVal Target As Range)
       
         If Target.Address = "$H$1" Then
         If IsEmpty(Target) Then Exit Sub
            If Range("H1") = 1 Then
        Call ActivateStatList
         End If
          End If
End Sub

Код макроса который должен активировать первый лист:
Код
    Sub ActivateStatList()
    Application.Wait DateAdd("s", 2, Now)
    Sheets("Статистика").Activate
    Sheets("Статистика").Range("H1").Clear
    End Sub

Все работает только после обновление запроса перекидывает на страницу с "умной" таблицей и автоматически ее выделяет. Сколько бы добавлял ожидание после выполнение обновления все равно в конце макроса он выделяют эту таблицу, даже добавление второго макроса не помогло. Добавление запроса в модель данных не вариант так как тогда исчезает возможность добавить вычисляемое поле, добавить вычисление в самом запросе тоже не вариант так как итого считается не верно.
Call ActivateStatList можно было бы вызвать прямо из первого макроса но я хотел дать ему время выделить таблицу. Прошелся по коду пошагово все ок, все срабатывает как надо
Макрос который меняет дату в сводной таблице, Нужна помощь в написании
 
Спасибо!
Макрос который меняет дату в сводной таблице, Нужна помощь в написании
 
Добрый день! Помогите пожалуйста! Нужно написать макрос который меняет дату в сводной таблице
с помощью записи макроса получилось это:
Код
ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
    "[Date Reporting].[Calendar YMD].[Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
    "[Date Reporting].[Calendar YMD].[Month Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
    "[Date Reporting].[Calendar YMD].[DT]").VisibleItemsList = Array("", "", _
    "[Date Reporting].[Calendar YMD].[DT].&[ThisWorkbook.Sheets("Статистика").Cells(2, 8.Value]", _
    "[Date Reporting].[Calendar YMD].[DT].&[2018-04-02T00:00:00]", _
    "[Date Reporting].[Calendar YMD].[DT].&[2018-04-09T00:00:00]")
Дату нужно брать из ячеек "J2", "I2", "H2". В ячейке дата пишется с помощью формулы "ТЕКСТ(СЕГОДНЯ()-2;"ГГГГ-ММ-ДДTчч:мм:сс")"
Название листа "Статистика"
При запуске выдает ошибку 1004
Изменено: PantileevAndrey - 16.04.2018 17:22:25
Страницы: 1
Наверх