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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 283 След.
Power Query: разбитие данных в ячейке по столбцам + ВПР по каждому полученному столбцу = суммирование полученных значений
 
Доброе время суток
Вариант
Код
let
    codes = Excel.CurrentWorkbook(){[Name="Код"]}[Content],
    codesToKey = Table.TransformColumns(codes, {"Код", each if _ is number then Number.ToText(_, "0.00", "ru-RU") else _, Text.Type}),
    source = Excel.CurrentWorkbook(){[Name="Данные"]}[Content],
    sourceKeyList = Table.AddColumn(source, "key", each Text.Split([Исходные данные], "-"), List.Type),
    sourceToKey = Table.ExpandListColumn(sourceKeyList, "key"),
    joined = Table.Join(sourceToKey, {"key"}, codesToKey, {"Код"}),
    result = Table.Group(joined, {"Исходные данные"}, {"Что должно получиться:", each List.Sum([Значение]), Number.Type})
in
    result

Забудьте про такую функцию как ВПР в Power Query :)
Изменено: Андрей VG - 12 Окт 2019 15:52:52
Power Query, тэги с кириллицей импортируются в нечитаемом виде.
 
Доброе время суток
Цитата
berezkkin601 написал:
Каким образом можно добиться правильного отображения кириллицы?
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
Выделить строки таблицы по совпадению в столбце
 
Доброе время суток
Цитата
Настя_Nastya написал:
Совпадает с чем?!
Осмелюсь предположить, что ТС хочет нечто вроде такого, раскрасил для примера и с учётом
Цитата
evgen740102 написал:
при добавлении новой строки, на нее распространялось условие.
Естественно, могу быть не прав.
Изменения в дизайне основной ветки
 
Цитата
БМВ написал:
У котов какая-то другая первая страница.
Это естественно - модератор-ж.
Требуется специалист Excel на написание отчетов
 
Цитата
Jag568 написал:
1 неделя с оплатой 130 руб/ч, после оплата фикс 5000 рублей.
5000 - это в час?
Как в SQL-запросе игнорить дубли?
 
Цитата
Ungrateful написал:
Так ничего и не вышло
Правильно ли я понимаю, что чёткого описания структур таблиц не будет, не говоря уж о примере? Лучше ждать, чем правила форума соблюдать?
DAX, фильтр по динамической таблице
 
Доброе время суток
Цитата
Vladimir Chebykin написал:
Призываю других DAX-систов попробовать разобраться
предлагаете
Цитата
Vladimir Chebykin написал:
полчаса потребовалось разобраться
столько же времени потратить или больше?
Кому решение нужно, тот внятную постановку задачи и делает. Позволю себе перефразировать софорумчанина :)
Вставить таблицу Access в массив вертикально
 
Цитата
БМВ написал:
покажите как вы возвращаете.
А смысл, Михаил? Думаете у ТС решена проблема
Цитата
Hellmaster написал:
вернуть таблицу с расчетами обратно в аксес
С точки зрения же обработки нет никакой разницы как расположены данные записи таблицы по первому индексу массива строки, а по второму - данные строк или по первому индексу данные строки, а по второму - строки, по большому счёт дело привычки. А вот как вернуть данные в таблицу Access на более чем 1000000 строк - та ещё задача по быстродействию :)
Как в SQL-запросе игнорить дубли?
 
Доброе время суток
Цитата
БМВ написал:
и должен брать две таблицы 1 и 2 и разницу вставлять в одну из них
Привет, Михаил
Ungrateful, вы не стесняйтесь продемонстрировать структуру данных и описание первичного ключа. Решается, в общем-то банальным подзапросом, мышкоклацательного решения только тут нет.
Как в SQL-запросе игнорить дубли?
 
Доброе время суток
Цитата
Ungrateful написал:
, я же вставляю
Сергей написал о такой конструкции вставки INSERT INTO конечный_объект [(поле1[, поле2[, …]])] [IN внешняя_база_данных] SELECT [источник.]поле1[, поле2[, …] FROM выражение_таблицы. Вот в том Select и нужно использовать Distinct
PQ. Избавиться от дубликатов путем добавления префикса в дополнительном столбце
 
Цитата
vlad000 написал:
я вот так и не могу
Тем временем с момента первого вопроса о Power Query прошло уже больше года...
Функция подсчёта уникальных значений в фильтрованном диапазоне (Excel VBA)
 
Доброе время суток.
Можно добавить проверку на видимость строки текущей ячейки
Код
rCell.EntireRow.Hidden
Убрать одну колонку из Totals в power bi
 
Доброе время суток
Цитата
zhekachan написал:
как убать из total в матрице одну колонку
Что вы подразумеваете под колонкой в total?
Смена источника данных для сводной таблицы, Смена источника данных для сводной таблицы
 
Доброе время суток
Цитата
Михаил Лебедев написал:
.ChangePivotCache
Можно ещё проще - без создания нового кэша, если структура данных такая же
Код
Public Sub ChangePivotSource()
    Dim pPivot As PivotTable, pCache As PivotCache
    Set pPivot = Workbooks("pivot.xlsx").Worksheets("MySheetWithPivotName").PivotTables("MyPivotTableName")
    Set pCache = pPivot.PivotCache
    pCache.SourceData = "'D:\Path\[source2.xlsx]Лист1'!R1C1:R9C3"
End Sub
Занести таблицу Access в массив
 
Цитата
Hellmaster написал:
у меня нет ни
Тогда нужно ставить, например Microsoft Access Database Engine 2016 Redistributable той же битности, что и Excel. Иначе - никак. Нет других движков для доступа к базам Access, насколько я знаю.
Временной промежуток для SQL запроса
 
Доброе время суток
Цитата
Wiss написал:
В теории должно быть как-то так:
Эх, если бы :(  Диалектов SQL много и почти у каждого своё видение представления даты в запросе. Тут нужно знать с чем ТС дело имеет: Access, MS SQL Server, Oracle, MySQL и т. д.
Занести таблицу Access в массив
 
Доброе время суток
Цитата
Hellmaster написал:
Provider=Microsoft ActiveX Data Objects 6.1 Library
Забавного вы провайдера наши. Может всё же такими сначала воспользоваться, а не изобретать собственный велосипед?
Ну, и по теме вопроса GetRows Method (ADO)
web запрос Power query: не извлекает данные, проблема с web запросом
 
Доброе время суток.
Содержимое страницы создаётся динамически по действиям пользователя на ней. Power Query такое видет не может (можете сами убедится - просто выберите по ПКМ на странице с таблицей просмотреть код/html или что-то подобное - зависит от браузера). Конкретно такой код для таблицы с бюджетными расходами
Скрытый текст
Проверка времени на наличия повторов
 
Вариант на Power Query. Тысячи до двух записей, по идее тормозить не должен сильно
Проверка времени на наличия повторов
 
Доброе время суток
Цитата
RenatKZ написал:
может кто помочь с данным вопросом?
Вы таким пожеланием
Цитата
RenatKZ написал:
формулой))
исключили макрописцев и Power Quryстов. Медведь же последнее время увлёкся программированием :)  Не спешит формульничать.
Изменено: Андрей VG - 9 Окт 2019 20:48:23
макрос excel на анализ входящей почты outloock и отправку файла excel
 
Цитата
БМВ написал:
А раз так, то в корень inbox сообщение может и не падать, с точки зрения outlook
Привет, Михаил.
Протестировал код Владимира в Outlook 365 персональный при настроенном правиле - отправлять письма от меня на yandex сразу в папку Yandex. Код не сработал. Зато отработало такое событие
Код
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    MsgBox EntryIDCollection
End Sub
Так что остаётся наковырять - с чем есть это EntryIDCollection :)
Забавно, отправил ещё со своего gmail адреса - срабатывает только событие ItemAdd. Если его отключить, только тогда работает NewMailEx
Power query выдает ошибку при динамическом названий столбца, Power query выдает ошибку при динамическом названий столбца
 
Доброе время суток
Цитата
Dark1589 написал:
убрать название этого столбца в шаге "Изменённый тип1".
Dark1589, и ТС прибежит с новым вопросом - почему пропадает расчётный столбец по остатку в сводной?  :D
Изменено: Андрей VG - 9 Окт 2019 15:55:40
Power Query выбрать столбцы по условию в имени
 
Доброе время суток.
Вариант без транспонирования
Код
let
    replacerToSpace = (sentence) => List.Accumulate(Text.ToList("/.,;"), sentence, (acc, next) => Text.Replace(acc, next, " ")),
    filterTable = Table.FromColumns({{"регион", "всего", "тип", "бе"}}, {"id"}),
    Source = Excel.CurrentWorkbook(){[Name="СИМ"]}[Content],
    colNames = Table.ColumnNames(Source),
    clearColNames = List.Transform(colNames, each replacerToSpace(Text.Lower(_))),
    toTable = Table.FromColumns({colNames, clearColNames}),
    toSingleWord = Table.ExpandListColumn(Table.TransformColumns(toTable, {"Column2", each Text.Split(_, " ")}), "Column2"),
    filter = Table.Join(toSingleWord, {"Column2"}, filterTable, {"id"}),
    result = Table.SelectColumns(Source, List.Distinct(filter[Column1]))
in
    result
Нужно сделать так чтобы в ячеку можно было вводить только дату., Тема работы провека даных может это както поможет
 
Доброе время суток
Цитата
Irin0 написал:
из какого либо промежутка
Ну, так и задайте максимально возможный промежуток от 01.01.1900 до, например 01.01.3000 - в чём проблема?
Собрать все email в одну ячейку по каждой компании в отдельности
 
Доброе время суток.
Версия на Power Query
Извлечение текста в Power Query по условию
 
Доброе время суток
Цитата
Murderface_ написал:
в подавляющем большинстве случаев будет применим следующий алгоритм: ищем с права налево число, которое состоит из >=4 символов
Вариант
Код
let
    sign = Table.Buffer(Table.FromRows(List.Transform({"0".."9"}, each {_, "d"}))),
    Source = Excel.CurrentWorkbook(){[Name="data"]}[Content],
    calcer = Table.AddColumn(Source, "Извлечение", (rec) =>
    let
        items = Table.FromColumns({List.Reverse(Text.ToList(rec[Текст]))}, {"char"}),
        addId = Table.AddIndexColumn(items, "id"),
        joined = Table.Sort(Table.Join(addId, {"char"}, sign, {"Column1"}, JoinKind.LeftOuter), "id"),
        local = Table.Group(joined, {"Column2"}, {{"store", each _}, {"count", each Table.RowCount(_)}}, GroupKind.Local),
        lastLess4 = Table.FirstN(local, each if [Column2] = "d" and [count] >= 4 then false else true)
    in
        Text.Trim(Text.Combine(List.Reverse(Table.Combine(lastLess4[store])[char])))
    )
in
    calcer

Updated
Чуть удачнее вариант
Скрытый текст
Изменено: Андрей VG - 8 Окт 2019 13:55:40
Вычисление разницы между колонками в сводной таблице из модели данных
 
Доброе время суток
Цитата
ChupaChups написал:
Добавил второй пример с большим кол-вом данных
Издеваетесь или просто не читаете?
Цитата
Vladimir Chebykin написал:
добавьте в пример больше данных (другие месяцы) и от руки накидайте конечный результат,
Изменено: Андрей VG - 8 Окт 2019 12:42:44
VBA Outlook: скопировать изображение из письма
 
Доброе время суток
Цитата
theOzymandias написал:
что объект не поддерживает этот метод.
И правильно пишет - нет у InlineShape (объектная модель Word к изучению) метода Copy. Используйте
Код
objFolder.Items("test3").GetInspector().WordEditor.InlineShapes(1).Range.Copy
Уникальное текстовое значение с наибольшим количеством повторений, Нужна формула для гугл таблицы
 
Цитата
Юрий М написал:
А причём тут форум по Excel?
А тут почти все свои - можно даже уйти не благодаря, по английски  :)
Сравнить данные по ключевому слову из разных вкладок.
 
Цитата
Евгений Гнатко написал:
А можете рассказать как вы это сделали?
Использовал Power Query. Ровно тот инструмент, которым загружены данные на исходные рабочие листы ;)
Чуть подправил. Если есть повторы (без учёта Last Seen, то выводится первый под дате).
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 283 След.
Наверх