Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 След.
Справочник уникальных значений в PQ из разных запросов, Справочник уникальных значений в PQ из разных запросов
 
Вот мышкоклацаньем
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="ПЛ_КК"]}[Content],
    #"Добавленный запрос" = Table.Combine({Источник, ПЛ_ТОМ}),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Добавленный запрос",{"Мощность, кВт"}),
    #"Удаленные дубликаты" = Table.Distinct(#"Другие удаленные столбцы")
in
    #"Удаленные дубликаты"
Как в запросе Power Query в колонке посчитать разницу между числом текущей строки и предыдущей, и результат (дельту) поместить в новую колонку?
 
PooHkrd, O_o элегантно. Спасибо!
POWER QWERY собирание таблицы, Собрать таблицу в PQ
 
Rubsoff, Вы пробовали совет из #23 Открыть один файл, пересохранить его и загрузить его уже в PQ? возникает ли в таком случае ошибка?.
Цитата
Rubsoff написал:
500 файлов на один большой лист
как по мне оптимальнее все же PQ
POWER QWERY собирание таблицы, Собрать таблицу в PQ
 
Максим, я писал об этом tycho он поправил уже у себя. У меня возникала проблема что если в файле что-то отфильтровать то появляется дополнительная строка в запросе с названием "фильтр....." и как результат информация дублируется, в то время как шаг с $ убирает только временный файл, сейчас скрин сделаю.
Написал а потом понял, а вот тут не знаю т.к. у меня еще ни разу не попадалось временных файлов :)
Изменено: Илья Демид - 17 Апр 2018 16:47:27
Поделить два столбца и сложить, Деление, сложение столбцов
 
формулу вводили через ctrl+shift+enter ?
POWER QWERY собирание таблицы, Собрать таблицу в PQ
 
Попробуйте поместить все файлы в папку - открыть PQ - расширенный редактор и туда вставить код, после чего заменить ПУТЬ на путь к вашей папке - обязательно в кавычках. и напишите что после этого пишет
Код
let
    Source = Folder.Files("ПУТЬ"),
    FilteredRows = Table.SelectRows(Source, each Text.Start([Extension],3) = ".xl"),
    RemovedOtherColumns = Table.SelectColumns(FilteredRows,{"Content", "Name"}),
    NoTemps = Table.SelectRows(RemovedOtherColumns, each not Text.StartsWith([Name], "~$")),
    InsertedCustom = Table.AddColumn(NoTemps, "Sheets", each Excel.Workbook([Content])),
    Expanded = Table.ExpandTableColumn(InsertedCustom, "Sheets", {"Data", "Name","Kind"}, {"D","N","K"}),
    NoPrintAreas = Table.SelectRows(Expanded, each not Text.Contains([N], "$")),
    OnlySheets = Table.SelectRows(NoPrintAreas, each Text.Contains([K], "Sheet")),
    DeleteColumns = Table.SelectColumns(OnlySheets,{"D"}),
    ColumnsName = Table.ColumnNames(DeleteColumns{0}[D]),
    ExpandedTable = Table.ExpandTableColumn(DeleteColumns, "D", ColumnsName)
in
    ExpandedTable
Дублирование листов в одной книге
 
Выдернул из надстройки PP UTilities
Код
'---------------------------------------------------------------------------------------
' Procedure : Sheet_Duplicate
' Author    : bdarbonneau
' Date      : 06/02/2015
' Purpose   : Duplicate the selected worksheets
'---------------------------------------------------------------------------------------
'
Sub SheetDuplicate()
    Dim sh As Worksheet
     If ActiveWorkbook.ProtectStructure = True Then
        Exit Sub
    End If

    Application.ScreenUpdating = False
    For Each sh In ActiveWorkbook.Windows(1).SelectedSheets
        sh.Copy After:=sh
    Next
    Application.ScreenUpdating = True

End Sub
[VBA] VLOOKUP при появлении значения в соседней ячейке
 
Как вариант формулами, просто попробуйте чтото дописать ниже черной таблицы
Название темы - Автозаполнение одного из 2-х столбцов из БД
Изменено: Илья Демид - 17 Апр 2018 14:19:39
Выделение цветом первой половины текста по критерию в массиве, Выделение цветом первой половины текста по критерию в массиве
 
Вот пример для категории "Аперитив", этот вариант очень медленный. дальше модифицируйте :)
В ячейку H1 напишите Аперитив и закрасьте ячейку в любой цвет
Код
Sub test()
    Dim last As Long
    Dim a, b As Integer
    a = 0
    b = 1
      last = Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To last
              If Cells(i, 2) = Cells(b, 8) Then
                a = a + 1
              End If
            Next
        a = a / 2
      Range(Cells(2, 2), Cells(a + 1, 2)).Interior.Color = Cells(b, 8).Interior.Color
End Sub
Изменено: Илья Демид - 16 Апр 2018 16:54:42
Впр по части фразы из ячейки, Впр по части фразы из ячейки
 
Цитата
sannybrooks написал:
КАК помогайте!!
а волшебное слово? файл качать лень - в искомой части  ВПР используйте функцию левсимв или правсимв или пстр
Изменено: Илья Демид - 16 Апр 2018 16:38:55
DTPicker - развернуть при получении фокуса
 
Копилка, ссылка сразу на нужную тему
Power BI Robots, Возможности продукта
 
Коллеги, доброго времени суток,
Кто-то уже тестировал данный продукт? Интересует как выгружаются в .pdf и скриншоты, все ли визуализации выгружаются (кастомные?).
Сможет ли пользователь смотреть высланный ему pdf или pdf реализован также как их решение для PowerPoint?
Возможно кто-то видел в просторах "обзор" данного продукта, буду благодарен за ссылку.
Буду благодарен примерам pdf и скриншотов


P.S. сам в ближайшее время протестировать не могу :( т.к. ИТ секьюрити надо пройти, а без понимания будет ли использоваться данный продукт в будущем, не вижу смысла пока запускать процесс.
Изменено: Илья Демид - 1 Мар 2018 11:18:06
Не могу поделиться результатами работы в PowerPivot через Excel Online
 
Ну почему сразу визуализации, в PBI и таблички можно вывести :)  но тогда лицензии надо всем пользователям или PBI Premium что уже будет дороже.
UPD заметил что нужна презентация, PBI может выгружать презентацию и тогда нужна 1 лицензия, НО выгружает он конечно коряво :(
Изменено: Илья Демид - 27 Фев 2018 13:52:10
В POWER BI не отрабатывает функция созданная для консолидации файлов, Необходимо собрать файлы из папок а затем каждый лист и преобразовывать по разработанной формуле
 
Сори, отходил.
Код
УДАЛЯЕМ   (File as text, SheetName as text)=>

let
   Источник = Excel.Workbook(File.Contents(ВМЕСТО "File" ПОЛНЫЙ ПУТЬ К ФАЙЛУ В "КАВЫЧКАХ"), null, true),
   Sheet = Источник {[Item=SheetName,Kind="Sheet"]}[Data],
В POWER BI не отрабатывает функция созданная для консолидации файлов, Необходимо собрать файлы из папок а затем каждый лист и преобразовывать по разработанной формуле
 
Добрый день, проверьте все ли столбцы (в объединениях) есть в источнике. или как вариант из функции сделайте простой запрос и посмотрите на каком шаге возникает ошибка, так проще будет понять....
Изменено: Илья Демид - 23 Фев 2018 15:01:02
Эксель 2013-2016, Не отображается вкладка "Надстройки", переустановка не помогла
 
надстройка бесплатная, это надо где-то в реестре поменять. сейчас поищу
как достать определенное слово между двух фраз в одной ячейке
 
Вот еще как вариант :), если предложение всегда начинается с "Признать требование"
Код
=ПСТР(A1;21;ПОИСК("в размере";A1;1)-21)
как достать определенное слово между двух фраз в одной ячейке
 
Добрый день, Николай в пиемах добавил новую статью которая подходит под Вашу задачу ссылка
https://www.planetaexcel.ru/techniques/7/4844/
Сводная таблица из столбцов с одинаковыми названиями (табель учета времени)
 
Или чисто на PQ, код длинноват (Мышкоклацание + голова уже не варит), может потом как то укорочу
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица3"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Столбец1", type text}, {"Столбец2", type any}, {"Столбец3", type any}, {"Столбец4", type any}, {"Столбец5", type any}, {"Столбец6", type any}, {"Столбец7", type any}, {"Столбец8", type any}, {"Столбец9", type any}, {"Столбец10", type any}, {"Столбец11", type any}}),
    #"Заполнение вниз" = Table.FillDown(#"Измененный тип",{"Столбец1"}),
    #"Транспонированная таблица" = Table.Transpose(#"Заполнение вниз"),
    #"Заполнение вниз1" = Table.FillDown(#"Транспонированная таблица",{"Column1"}),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Заполнение вниз1", [PromoteAllScalars=true]),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"Дата", Int64.Type}, {"ФИО", type text}, {"Иванов ", Int64.Type}, {"Иванов _1", Int64.Type}, {"Иванов _2", Int64.Type}, {"Петров", Int64.Type}, {"Петров_3", Int64.Type}, {"Петров_4", Int64.Type}, {"Сидоров", Int64.Type}, {"Сидоров_5", Int64.Type}, {"Сидоров_6", Int64.Type}, {"Степанов", Int64.Type}, {"Степанов_7", Int64.Type}, {"Степанов_8", Int64.Type}}),
    #"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Измененный тип1", {"Дата"}, "Атрибут", "Значение"),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Другие столбцы с отмененным свертыванием", "Пользовательская", each if [Значение] = "объект" then "объект" else if [Значение]= "время" then "время" else null ),
    #"Условный столбец добавлен" = Table.AddColumn(#"Добавлен пользовательский объект", "ФИО", each if Text.Contains([Атрибут], "_") then null else [Атрибут] ),
    #"Заполнение вниз2" = Table.FillDown(#"Условный столбец добавлен",{"Пользовательская", "ФИО"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Заполнение вниз2", each ([ФИО] <> "ФИО")),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Строки с примененным фильтром",{"Атрибут"}),
    #"Сведенный столбец" = Table.Pivot(#"Удаленные столбцы", List.Distinct(#"Удаленные столбцы"[Пользовательская]), "Пользовательская", "Значение", List.Sum)
in
    #"Сведенный столбец"
Изменено: Илья Демид - 16 Фев 2018 17:54:35
Сводная таблица из столбцов с одинаковыми названиями (табель учета времени)
 
Объединят сначала, а потом мучайся :)
Выделяем диапазон A4:K17, Используем скрипт VBA - строки 2, колонка 1. После либо в PQ либо доделываем макрос и заполняем пустоты вниз
Скрытый текст

PQ

Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Столбец1", type text}, {"Столбец2", Int64.Type}, {"Столбец3", type text}, {"Столбец4", Int64.Type}}),
    #"Заполнение вниз" = Table.FillDown(#"Измененный тип",{"Столбец1", "Столбец2"})
in
    #"Заполнение вниз"
Изменено: Илья Демид - 16 Фев 2018 17:18:09
Удаление дубликатов в столбце по условию в PowerQuery, Удалить средствами PQ в столбце дубликаты и оставить те, которые удовлетворяют условию.
 
Максим Зеленский, скорее всего не совсем то т.к. остаются дубли по № (т.к. склады разные )
Удаление дубликатов в столбце по условию в PowerQuery, Удалить средствами PQ в столбце дубликаты и оставить те, которые удовлетворяют условию.
 
Те которые надо удалить остались, стоп туплю... возможно у меня при сортировке полетело... Работает, это у меня при проверке таблицы слетел столбец на удаление.
Изменено: Илья Демид - 16 Фев 2018 12:40:15
Преобразование буквенно-символьного ряда в цифровой.
 
Решение на PQ. 3К тянет
Изменено: Илья Демид - 15 Фев 2018 18:49:49
Как выделить из наименования цвет и расположать его в отдельном столбце?
 
Походу опять тесты :)  
Еще вариант в B2 и протянуть, для определения кол-ва постройте сводную таблицу и выведите в строки цвет, а в поле сумму  цвет (кол-во))
Код
=ПСТР(A2;НАЙТИ(":";A2;1)+2;НАЙТИ("(";A2;1)-2-НАЙТИ(":";A2;1))
Изменено: Илья Демид - 15 Фев 2018 14:09:40
VBA Преобразование одномерной таблицы в двумерную, Оптимизация кода, поиск более изящного решения
 
решение через мышкоклацание в PQ. Вам нужна функция типа fill down, в надстройке PLEX вроде она есть  
Переход планеты на защищённый протокол
 
Так же не дает загружать файлы кнопка хоть и видна, но всплывающее окно не появляется
В chrome в правом углу адресной строки появилась иконка - типа "Сайт пытается загрузить какие-то не правильные протоколы, разрешить?" после нажатия "да" панель появилась, файлы дает загружать
Power Pivot. Обновление данных в таблицах модели данных с разорванными связями.
 
Для теста можно попробовать сделать подключение с именем "Подключение1" и посмотреть что будет.  
Power Pivot. Обновление данных в таблицах модели данных с разорванными связями.
 
Хм походу никак.... можно удалить все и построить заново, но слетают срезы в excel, можно создать доп столбец с таким же именем потом изначальный удалить, но по времени столько же займет, если не дольше... Либо разархировать xls и если знать куда идти .... там покопатся. посмотрите файл
Это я из totalcmd ссылку даю. Там есть Ваши 3 запроса и ...
Может если там поковырятся ?
Код
Файл - c:\Users\Illya\Desktop\PowersDemo.xlsx\xl\connections.xml 
Строка id="Товары" usedByAddin="1"/></ext></extLst></connection><connection id="6" name="Подключение1"
Изменено: Илья Демид - 14 Фев 2018 21:56:51
Power Pivot. Обновление данных в таблицах модели данных с разорванными связями.
 
Сори я сейчас на Ядиск не могу зайти, Украина :) Дома гляну, если другие не ответят
Изменено: Илья Демид - 14 Фев 2018 13:37:04
Power Pivot. Обновление данных в таблицах модели данных с разорванными связями.
 
Доброго времени, скиньте на почту. я в облако переброшу и посмотрю заодно.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 След.
Наверх