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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 266 След.
доработка "Удобный поиск в выпадающем списке", малость доработать
 
Доброе время суток.
Цитата
Irbis_evs написал:
Я просто жду когда автор сам ее малость допилит.
Автор GIG_ant был последний раз на форуме чуть меньше двух лет тому назад. Вы уверены, что дождётесь?
Изменено: Андрей VG - 20 Июл 2019 08:55:47
Печать выделенного диапазона по условию ячейки
 
Цитата
DenisShiych написал:
Сейчас попробовал ваш пример выходит пустой лист.
Потому что нарушаете условие использования, заданное вами же
Цитата
Печать выделенного диапазона по условию ячейки
Задача в Power Query
 
Цитата
Salta-301 написал:
все трое)
Третий, если правильно понимаю - это Зеленский. Хотя он начинал там работу. А у меня компетенций в той области знаний, что требуется Salta-301, с комариный нос... Потому и отказался, хотя человек она не вредный и хороший.
Изменено: Андрей VG - 19 Июл 2019 22:24:25
Привидение содержания двух столбцов к одинаковому виду
 
Доброе время суток
Можно узнать, почему вы считаете, что это
Цитата
Judgin написал:
Т.е из столбца "Артикул2" удалить те артикулы, которых нет в столбце "Артикул1"
эквивалентно этому
Цитата
Judgin написал:
чтобы содержимое столбца "Артикул1" четко соответствовало содержимому столбца "Артикул2".
Ну, и так и не понял про порядок
Цитата
Judgin написал:
а также порядок расположения артикулов в обоих столбцах должен быть одинаков.
Чтобы это значило с учётом столбца кол-во? Приведите пример.

Пока решение на Power Query для первой процитированной постановки задачи.
P. S. Прошу пояснить, как количество может быть 0,5 - это же счётное значение.
Разделение текста на составляющие в Power Query
 
Цитата
PooHkrd написал:
Заодно запрос будет не чувствителен
Но стал очень медленным. На 271000 записей персон почти 208 секунд. Мой предложенный вариант через декартово произведение, впрочем, не лучше.
Более быстрые варианты на List.Generate (требует упорядоченности по невозрастанию длины фразы должности) 21 секунда
Скрытый текст

С List.Accumulate не требует упорядоченности, но 39 секунд (почти по классике - в два раза больше просмотров. Что в общем-то странно, как-будто остальной код ничего не весит. Впрочем, List.Accumulate всегда был не быстрым)
Скрытый текст
Уменьшение объёма и увеличения быстродействия файла с запросами PQ, Необходимо произвести уменьшения объёма файла и увеличить быстродействие
 
Цитата
kaa700 написал:
все таки есть какие либо варианты?)
Два железных
Цитата
kaa700 написал:
увеличить его быстродействие.
использовать более быстрые алгоритмы и требуемые для них структуры данных. Перейти на более производительное hardware.
Цитата
kaa700 написал:
уменьшить объём файла
нормализовать хранимую в файле структуру данных. Если используется power pivot, то не создавать вычисляемые столбцы, а всё считать в мерах.
Уменьшение объёма и увеличения быстродействия файла с запросами PQ, Необходимо произвести уменьшения объёма файла и увеличить быстродействие
 
Доброе время суток
Столь общий вопрос, по моему мнению, лучше в курилке задавать :)
Печать выделенного диапазона по условию ячейки
 
Доброе время суток.
Пожалуйста
Код
Public Sub printSheet2()
    Dim outSheet As Worksheet
    
    Set outSheet = ThisWorkbook.Worksheets("Лист2")
    outSheet.Activate
    If ThisWorkbook.Worksheets("Лист1").Range("A1").Value = 1 Then
        outSheet.PageSetup.Zoom = 100
    Else
        outSheet.PageSetup.Zoom = 75
    End If
    Selection.PrintOut
End Sub
Как добавлять/отнимать/сравнивать время при учете сверхурочных?
 
Offtop
Цитата
Опять проклятое время!
Может более правильно выражаться - Проклятое моё не желание учиться в школе, до сих пор рукам покоя не даёт :)
Разделение текста на составляющие в Power Query
 
Вот так отлично. Спасибо!
Updated
Хотя, если подумать. Пусть есть должности главный инженер и инженер (и обе с маленькой буквы :) ). Тогда оба в вашем приёме будут иметь true по концу строки и будет неопределённость. Так что попаразитировал на вашем варианте.
Код
let
    persons = Table.AddIndexColumn(Excel.CurrentWorkbook(){[Name="Персоны"]}[Content], "id"),
    positions = Excel.CurrentWorkbook(){[Name="Должности"]}[Content],
    crossJoin = Table.Join(persons, {}, positions, {}),
    addSign = Table.AddColumn(crossJoin, "sign", each if Text.EndsWith([Персона], [Должность]) then Text.Length([Должность]) else 0),
    findMax = Table.Group(addSign, {"id"}, {"temp", each Table.Max(_, "sign")})[[temp]],
    toTable = Table.ExpandRecordColumn(findMax, "temp", {"Персона", "Должность", "sign"}),
    addName = Table.AddColumn(toTable, "ФИО", each Text.Trim(Text.Range([Персона], 0, Text.Length([Персона]) - [sign]))),
    #"Removed Columns" = Table.RemoveColumns(addName,{"sign"})
in
    #"Removed Columns"
Изменено: Андрей VG - 19 Июл 2019 13:08:41
Суммирование по месяцам
 
Цитата
Dmitri777 написал:
Вы использовали внешний источник данных?
Не совсем так. Вашим входным данным было присвоено имя TData, затем был создан запрос Power Query для трансформации этих данных в плоскую нормализованную структуру, необходимую для работы сводной. Сам по себе такой запрос сохраняется в книге как подключение к внешним данным. Вот это подключение и было использовано в сводной.
Цитата
БМВ написал:
только вот не выполнится
Привет, Михаил.
Что-то не уловил что не так? По Магазин1 за июль 115 чего-то тамов (как и у вас)... Всего по Магазин1 171. Где ошибка?
Суммирование по месяцам
 
Доброе время суток.
Коллеги, а не проще ли сводную построить?
Разделение текста на составляющие в Power Query
 
Цитата
CainV написал:
работает идеально,
Ну, я бы так не сказал, хотя на базе в 300 000 строк в два раза быстрее. Пример прилагаю. Мой тоже может мазать, например, Художников Семён Иванович Агент
Разбить данные по месяцам
 
Цитата
Иван313 написал:
как этим пользоваться на регулярной основе?
Убеждаетесь, что можете работать с Power Query (2010, 2013 - это устанавливаемая надстройка, 2016 и выше - часть Excel).
Заполняете таблицу под шапкой Исходник, и обновляете правую таблицу (ПКМ - обновить).
Вычислить сколько единиц при соблюдении определенных условий, Есть габариты высота, ширина, длина и вес. Нужно вычислить сколько машин нужно что бы поместить все товары
 
Доброе время суток
Цитата
Diamarh написал:
помощью какой формулы можно сделать?
А нет в Excel такой формулы. К пояснению - в чём проблема Про двумерную упаковку: offline алгоритмы. И это 2D, не 3D, как в вашем случае :)
Разделение текста на составляющие в Power Query
 
Доброе время суток
Цитата
azma написал:
или вот так
Всё это хорошо. Но что если ФИО будет таким Алиев Ильхам Гейдар оглы или Франсиско Мартинес де ла Роса?
HB
 
Пусть остался только час, но лучше поздно, чем никогда. Мотя с Днём Рожденья! Светлых и радостных дней, здоровья, побольше улыбок и счастья. Ваши анекдоты и юморески самые лучшие на форуме!
QueryTable импорт формулы массива
 
Доброе время суток.
Цитата
adamm написал:
как обозначить, что формула является массивной?
Никак, судя по многочисленным обсуждениям в том числе и на заграничных форумах, увы.
Чтобы не обрезало, поместите самую длинную формулу в первую строку. Далее, лучше читайте данные через Adodb.Recordset, потом для того самого транспонирования просто воспользуйтесь методом Recordset.GetRows, получая транспонированный массив, а уже его через метод Range.Resize помещайте как значения.
Updated
Хотя да, есть проблемы. Из простого
Код
Range("A1:B1").Value=array("=PI()", "=СЛЧИС()")
отрабатывает английская версия :(
Изменено: Андрей VG - 17 Июл 2019 23:02:11
Разбить данные по месяцам
 
Доброе время суток.
Цитата
Иван313 написал:
чтобы формула разбила
Пока формулисты ищут бьющую не в бровь, а в глаз - формулу :)  
Версия на Power Query.
Изменено: Андрей VG - 17 Июл 2019 22:29:10
Макрос для парсинга географических адресов
 
Цитата
Oleg Boyaroff написал:
На яндексе 25к запросов в сутки бесплатно
Вам осталось бесплатно предложить макрос для получения и парсинга xml ответа Яндекс :)  Назвался груздем...
Макрос для парсинга географических адресов
 
Доброе время суток
Цитата
БМВ написал:
некоторые атрибуты могут отсутствовать
это только гипотеза. ТС о таком не сообщил.
Как получить изменненый диапозон с помощью формулы
 
Цитата
БМВ написал:
что хотели этим получить?
Привет, Михаил.
Как что, а в названии темы что написано?
Цитата
получить изменненый диапозон
Правда что такое измененный диапазон я то же не знаю. :(
Изменено: Андрей VG - 17 Июл 2019 16:17:03
Подсчет количества уникальных значений и вывод данных на другой лист
 
Доброе время суток
Цитата
Jordan07 написал:
(БЕ уже будут заполнены)
А смысл? Вариант.
Power Query. Выбор строк с самыми актуальными данными, в таблице присутствуют повторы, оставить только самые актуальные
 
Цитата
ivanka написал:
как это решить инструментами интерфейса?
увы, тут я начинающий, путаюсь я в этих кнопках и версиях интерфейса :(
Возможности разработки взаимодействия с БД (выбор инструментов), Javascript ИЛИ VBScript
 
Цитата
bedvit написал:
JeyCi , это происходит от незнания, что такое массив в С++.
Привет, Виталий.
Эк как прорвало :)  Я уже боюсь что-нибудь отвечать JeyCi - иначе на разбор потока времени уходит много. К стати, может как-нибудь встретимся, пива попьём?
Power Query. Выбор строк с самыми актуальными данными, в таблице присутствуют повторы, оставить только самые актуальные
 
Я бы ещё и с датами по аккуратнее. В общем ещё один вариант
Код
let
    filePath = "d:\Path\пример\пример",
    folderFiles = Table.SelectRows(Folder.Files(filePath), each (not Text.StartsWith([Name], "~$")) and Text.Lower([Extension]) = ".xlsx"),
    getDateFromName = Table.AddColumn(folderFiles, "Date", each Date.From(Text.BeforeDelimiter([Name], ".", 2)), Date.Type)[[Date], [Content]],
    getExcelContent = Table.TransformColumns(getDateFromName, {"Content", each Excel.Workbook(_)}),
    getFirstSheetData = Table.TransformColumns(getExcelContent, {"Content", (item) => Table.SelectRows(item, each [Kind] = "Sheet"){0}[Data]}),
    setHeaderByFirstRow = Table.TransformColumns(getFirstSheetData, {"Content", each Table.PromoteHeaders(_)}),
    toCommonTable = Table.ExpandTableColumn(setHeaderByFirstRow, "Content", {"ID", "Название", "Сумма в валюте сделки"}),
    getLatestById = Table.Group(toCommonTable, {"ID"}, {"temp", each Table.Max(_, "Date")})[[temp]],
    #"Expanded {0}" = Table.ExpandRecordColumn(getLatestById, "temp", {"Date", "ID", "Название", "Сумма в валюте сделки"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Expanded {0}",{{"Date", type date}, {"ID", type text}, {"Название", type text}, {"Сумма в валюте сделки", Currency.Type}})
in
    #"Changed Type"
Power Query. Выбор строк с самыми актуальными данными, в таблице присутствуют повторы, оставить только самые актуальные
 
Доброе время суток
Цитата
PooHkrd написал:
Table.Group(ChangedType, {"ID"}, {{"Tab", each Table.SelectRows(_, let latest = List.Max(ChangedType[Name]) in each [Name] = latest), type table}})
Алексей, а не проще ли
Код
Table.Group(ChangedType, {"ID"}, {{"Tab", each Table.Max(_, [Name]), type record}})
С последующим разворачиванием столбца с типом запись?
Обеспечение совместимости Excel VBA приложения для систем разной разрядности и с разными региональными установками.
 
Вот ещё небольшое обсуждение значимости книги и утверждений Win32 API и Visual Basic (Dan Appleman) :)
В Power Query сделать так, чтобы 1,2,3 из строк стали заголовками, а то, что были рядом с ними в строке - строками
 
Цитата
PooHkrd написал:
Вы бы поиском по форуму все таки пользовались что ли
Привет, Алексей.
Вроде не всё так просто в силу
Цитата
Konstantin Zhi написал:
или тройки не хватает или единицы (или порядок иногда 1,2,3, иногда 2,1,3 иногда 3,1,2 и т.д.).
Допустим есть последовательность 2, 3, 1, 3, 2 - это сначала 2 и 3 с пропущенной единицей и затем 1, 3, 2? Или это сначала 2, 3, 1, а затем 3, 2 с пропущенной единицей? :)
Подбор груза для машины с условиями, Vba - задача в стиле рюкзака
 
Вариант формулами с разбросом остатков жадным алгоритмом. Как видно, если дополнить две машины с рулонами по 100 до 60 штук в каждой, то в третьей остаётся 23 свободных места. Вот ту да то можно доложить из первой машины с рулонами по 120 те 23, останется 5, а их переложить во вторую. В данном случае возможно. Полные целочисленные номерами не обозначал. В общем есть что допиливать :)  
Может кому-то будет интересно написать макрос с учётом проверок на достаточность.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 266 След.
Наверх