Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/В запросе Power Query указать столбец фильтрации знач в яч. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
В запросе Power Query указать столбец фильтрации знач в яч.
Gjlhzl Дата: Пятница, 10.02.2023, 10:00 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 138
Репутация: 0 ±
Замечаний: 0% ±

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

[vba]
Код
ActiveWorkbook.Queries.Add Name:=cell.Value, Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Источник = Excel.CurrentWorkbook(){[Name=""таблПродажи""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Измененный тип"" = Table.TransformColumnTypes(Источник,{{""Категория"", type text}, {""Наименование"", type text}, {""Город"", type text}, {""Менеджер"", type text}, {""Дата сделки"", type datetime}, {""Стоимость"", type number}})," & Chr(13) & "" & Chr(10) & "    #""Строки с примененным фильтром"" = Table.Se" & _
        "lectRows(#""Измененный тип"", each ([Город] = """ & cell.Value & """))" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Строки с примененным фильтром"""
[/vba]
...................
менять как понимаю нужно здесь
[vba]
Код
each ([Город
ActiveSheet.Name =cell.Value
[/vba]
К сообщению приложен файл: 111111.xlsb (130.7 Kb)


Сообщение отредактировал Gjlhzl - Пятница, 10.02.2023, 10:02
 
Ответить
СообщениеДень добрый, как подправить макрос что бы имя столбца фильтра бралось из значения ячейки, а так же
подправить в макросе что бы имя листа задавалось то же по значению ячейки потом лист переносился в файл и ему назначалось то же имя

[vba]
Код
ActiveWorkbook.Queries.Add Name:=cell.Value, Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Источник = Excel.CurrentWorkbook(){[Name=""таблПродажи""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Измененный тип"" = Table.TransformColumnTypes(Источник,{{""Категория"", type text}, {""Наименование"", type text}, {""Город"", type text}, {""Менеджер"", type text}, {""Дата сделки"", type datetime}, {""Стоимость"", type number}})," & Chr(13) & "" & Chr(10) & "    #""Строки с примененным фильтром"" = Table.Se" & _
        "lectRows(#""Измененный тип"", each ([Город] = """ & cell.Value & """))" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Строки с примененным фильтром"""
[/vba]
...................
менять как понимаю нужно здесь
[vba]
Код
each ([Город
ActiveSheet.Name =cell.Value
[/vba]

Автор - Gjlhzl
Дата добавления - 10.02.2023 в 10:00
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!