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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 279 След.
PQ - Обнуление значение, если предыдущая строчка =
 
Цитата
Vsevolod написал:
в таблицу у меня данные по всем сотрудникам
Ну так не проблема, через Table.Group по сотруднику сводите задачу к решению только для одного сотрудника. Достаточно завернуть готовый запрос в функцию. Упреждая, почитать как делается функция из запроса можно в книге Скульптор данных в Excel с Power Query, например. В прочем есть в инете и отдельные публикации по этой теме.
Интерполирование изнутри таблицы, Обратная интерполяция
 
Цитата
Ігор Гончаренко написал:
так и при определении SOUNDING по заданным TRIM и VOLUME
Дополню, что при формульном решении нужно определять в каком диапазоне находится Trim. По данным в примере  от-1,4 до -1 Sound в диапазоне 5 - 6, от -1,7 до 1,4 в 6 - 7, от -1,7 и почти до -2,0 в 7 - 8, остаток в 8 - 9.
Может отдохнувший медведь возьмётся забороть формулами.
Изменено: Андрей VG - 22 Сен 2019 14:13:26
макрос подсчета зарплаты бригады с надбавками
 
Доброе время суток
Цитата
dittor написал:
мне нужна помощь в понимании логики работы макроса
Вы не задумывались на таким вопросом, что тому, кто будет писать код и объяснять его логику, нужно объяснить логику использования данных из таблицы и алгоритм расчётов? Или вы считаете это настолько очевидным? Или ждёте ответа только от специалиста в области ваших расчётов, который помимо всего прочего - умеет писать макросы? Если последнее, то почему бы не написать об этом?
Проценты по вкладу в зависимости от нескольких различных вариантов условия задачи, формула с кучей ЕСЛИ
 
Цитата
БМВ написал:
нужно иметь алгоритм расчета,
Привет, Михаил.
Так 2/3 ТСов именно за этим на форум и приходят, а не за реализацией алгоритм с помощью Excel :)  Просто специалисты такие.
Интерполирование изнутри таблицы, Обратная интерполяция
 
Цитата
msr.Kot написал:
По требованиям о приёмке топлива,общая погрешн. не должна превышать 1%.
А тут большой вопрос, что на самом деле вы хотите? Чтобы сбивались формулы прямого и обратного расчётов? Так это не проблема... Ігор Гончаренко, предложил вариант. Если попыхтеть, то можно и формулами решить.
Но, вот если вы хотите знать действительное количество топлива, то градация таблицы этого не позволяет сделать.
Результаты расчётов Volume при равных Trim, Sound у вас, Игоря и у меня совпадают. Но, можно интерполировать разбиением выпуклого четырёхугольника на треугольники, проводя диагонали. Можем получить два варианта. Возьмем Trim = -1,5; Sound = 5,5 получим
По общему для нас подходу Volume будет  1,0225
При триангуляционном с "левого верхнего в правый нижний" 1,05
При триангуляционном с "правого верхнего в левый нижний" 0,995
Не получаются заветный 1% :)  Следовательно, таблица не гарантирует точности расчётов. И проводились ли при её составлении контрольные замеры, а действительно ли при промежуточных значениях Trim, Sound результаты, получаемые расчётным путём и фактическое значение совпадают до 1% мы знаем? Так что, полагаю, всё как всегда, где-то тут и как-то так...
Выделение области в виде диапазона значений по широте и долготе
 
Цитата
CainV написал:
Возможно ли тоже самое реализовать через PQ
Возможно. Или вы разрешения спрашиваете? :)
Выделение области в виде диапазона значений по широте и долготе
 
Цитата
CainV написал:
Если, например, выделить Парк горького окружностью на карте,
А как в Excel выделить на карте Парк Горького окружностью, извиняюсь за непонятливость? Плюс, пример координат где-то в районе Новой земли севернее ляховских островов - какой там может быть Парк Горького? :)  Или это новый хххлаг готовиться?
Изменено: Андрей VG - 21 Сен 2019 18:21:15
Выделение области в виде диапазона значений по широте и долготе
 
Доброе время суток
Цитата
CainV написал:
Прикрепленные файлы
А где параметры той красной зоны? Или нужны специалисты, обладающие телепатическими способностями?
Интерполирование изнутри таблицы, Обратная интерполяция
 
Юрий М, а чем съём макросом с графика будет лучше? Погрешность-то даже в формульных туда-сюда-обратно вариантах остаётся.
Для каждого наименования из двух столбцов найти максимальный номер строки, где оно встречается, и значение третьего столбца этой строки, упростить индексацию в файле
 
Цитата
kolyaya написал:
Так лучше?  
Так а чем решение но Power Query-то не устраивает?
PQ Разница между двумя датами в минутах
 
Цитата
Vsevolod написал:
он высчитывает все только с учетом времени до часа?
что вы всё как дитя малое? Ну сходите уже в справочник по функциям Duration.TotalMinutes, будьте немного самостоятельнее.
Для каждого наименования из двух столбцов найти максимальный номер строки, где оно встречается, и значение третьего столбца этой строки, упростить индексацию в файле
 
Цитата
vikttur написал:
Смотрим все счастливое сообщение №13
Согласен. Вариант
Как для каждого наименования из двух столбцов найти максимальный номер строки, где оно встречается, и значение третьего столбца этой строки
Для каждого наименования из двух столбцов найти максимальный номер строки, где оно встречается, и значение третьего столбца этой строки, упростить индексацию в файле
 
Цитата
gling написал:
Эта формула?
Коллега, как поведёт себя эта формула на 50000 строк - есть какая-нибудь оценка? Не поленился раскопировать исходные данные в своей версии на Power Query до 52000 строк - ответ получаю через 3 секунды, хотя соглашусь, что результат зависит от объёма неповторяющихся наименований фруктов в выводе.
Updated
Сделал в размноженном примере все ячейки первого и второго столбца уникальными, объём вывода 104 тысячи строк - 5 секунд.
Изменено: Андрей VG - 21 Сен 2019 10:22:11
PQ - Минимальная дата по сотруднику внутри дня
 
Доброе время суток.
Вариант
Код
let
    Source = Table.AddColumn(Excel.CurrentWorkbook(){[Name="timeRable"]}[Content], "daySign", each DateTime.ToText([Дата], "yyyymmdd")),
    findMin = Table.Group(Source, {"Менелжер", "daySign"}, {"Начало", each List.Min([Дата])})[[Менелжер], [Начало]],
    joined = Table.Join(Source, {"Менелжер", "Дата"}, Table.RenameColumns(findMin, {"Менелжер", "person"}), {"person", "Начало"}, JoinKind.LeftOuter),
    result = Table.TransformColumns(joined, {"Начало", each if _ <> null then "Да" else null, Text.Type}),
    #"Removed Columns" = Table.RemoveColumns(result,{"person", "daySign"})
in
    #"Removed Columns"
Изменено: Андрей VG - 21 Сен 2019 10:58:21 (Подправил - пропустил в задании группировку по суткам)
PQ - Обнуление значение, если предыдущая строчка =
 
Доброе время суток.
Вариант
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    addStart = Table.AddColumn(Source, "start", each if [Операция] = "Работа с клиентом" or [Операция] = "Завершили работу с клиентом" then [Операция] else null),
    fillStart = Table.FillDown(addStart, {"start"}),
    addFinish = Table.AddColumn(fillStart, "finish", each if [Операция] = "Работа с клиентом" or [Операция] = "Завершили работу с клиентом" then [Операция] else null),
    fillFinish = Table.FillUp(addFinish, {"finish"}),
    result = Table.AddColumn(fillFinish, "Перерыв2", each if [start] = "Работа с клиентом" and [finish] = "Завершили работу с клиентом" then 0 else [Перерыв]),
    #"Removed Columns" = Table.RemoveColumns(result,{"start", "finish"})
in
    #"Removed Columns"
Интерполирование изнутри таблицы, Обратная интерполяция
 
Цитата
msr.Kot написал:
Ваш Опыт,да нам молодым
Делюсь опытом - проверяйте данные перед расчётами :)  Часть Volume даже не числа
Для каждого наименования из двух столбцов найти максимальный номер строки, где оно встречается, и значение третьего столбца этой строки, упростить индексацию в файле
 
Доброе время суток
Цитата
kolyaya написал:
"персик" (D1), то E1= C* (Последнее упоминание Персика)
Где персик в D1? Что же вы все такие стеснительные и скрытные, а расшифровать что это такое - последнее упоминание в данных. Как понял. Теперь вы мучайтесь что там да как :)
[ Закрыто] Программно закрыть надстройку, при переходе в другую папку
 
Доброе время суток
Цитата
ttolu написал:
прочетать ВНИМАТЕЛЬНО ТЗ для начала
Для начала может использовать стандартное определение - что такое надстройка, а уже потом задавать вопрос? Поскольку в рамках стандартного её (надстройки) определения, Jack Famous, дал абсолютно правильный ответ.
Интерполирование изнутри таблицы, Обратная интерполяция
 
Цитата
msr.Kot написал:
Грубите
Не, напоминаю, что есть правила форума и в частности
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
Сохранить вкладки книги в отдельные файлы, разорвать связи с PQ и выложить по ссылке
 
Доброе время суток
Цитата
Maayun написал:
Реализовать разрыв связи c PQ также не удалось, не хочет работать
А что сообщает - не уж то молча игнорирует? У меня в вашем файле отработало
Код
Public Sub delQueries()
    Dim pQuery As WorkbookQuery
    For Each pQuery In ActiveWorkbook.Queries
        pQuery.Delete
    Next
End Sub
Интерполирование изнутри таблицы, Обратная интерполяция
 
Доброе время суток
Цитата
msr.Kot написал:
Имеется
правила форума - не стесняйтесь их читать и соблюдать. Очень способствует процессу получения помощи :)
PQ. При добавлении новых строк в запросе рукописные данные в соседнем столбце "прыгают" в соседние строки. Есть ли лечение?
 
Доброе время суток.
Self Referencing Tables in Power Query, учитывая, что этот приём применялся ещё со времён Microsoft Query, то этому решению лет этак двадцать :)
Изменено: Андрей VG - 19 Сен 2019 21:57:31
Из Excel в Access с помощью VBA
 
Доброе время суток.
Цитата
Ungrateful написал:
Вообще, возможно ли сделать такой SQL-запрос?
К массиву - нет.
Цитата
Ungrateful написал:
а именно из массива
Через Recordset.AddNew, например. Но с выгрузкой на лист и вставкой в таблицу базы Access, как у вас, будет быстрее.
Изменено: Андрей VG - 19 Сен 2019 16:39:05
Оцифровка графика ( получение данных с графика )
 
Цитата
teomatau написал:
куда входные данные вводить?
Для вашей таблички в файле Graph.xlsx
Код
=ИНДЕКС(yData;ПОИСКПОЗ(A2;xData;1))+(A2-ИНДЕКС(xData;ПОИСКПОЗ(A2;xData;1)))*(ИНДЕКС(yData;ПОИСКПОЗ(A2;xData;1)+1)-ИНДЕКС(yData;ПОИСКПОЗ(A2;xData;1)))/(ИНДЕКС(xData;ПОИСКПОЗ(A2;xData;1)+1)-ИНДЕКС(xData;ПОИСКПОЗ(A2;xData;1)))

где xData - именованный диапазон оцифрованых значений по Х, yData - именованный диапазон оцифрованных значений по Y.
Оцифровка графика ( получение данных с графика )
 
Цитата
teomatau написал:
прикрепить свой файл
так выложил же выше. Но Jack Famous прав, лучше для оцифровки графиков использовать специальные программы. По крайней мере, задавая опорные точки, можно скорректировать искажения. А это нужно делать, если источник - скан.
Оцифровка графика ( получение данных с графика )
 
Цитата
teomatau написал:
Например для значения 69 , дает значения 29.5
Ну, это смотря что использовать для входа. У меня для 69 У = 18,8. Вывод - точнее готовьте данные.
Как в VBA указывать или менять путь к папкам
 
Доброе время суток.
А зачем вообще задавать константу пути? Не лучше ли вызывать
Код
Application.FileDialog(msoFileDialogFolderPicker)
чтобы пользователь сам указывал папку?
Power Query. Трансформация структуры отчета из 1С в плоскую таблицу.
 
Цитата
PooHkrd написал:
Запросы-близнецы.
Привет, Алексей.
Так одного же форума участники  :D
Изменено: Андрей VG - 19 Сен 2019 10:20:00
Оцифровка графика ( получение данных с графика )
 
Привет, Алексей.
В принципе, всё просто. Оцифровал график полилинией. Макросом сбросил координаты. Зная координаты точек в двух системах координат, пересчитал из одной в другую обычными формулами в столбцах F, G. По поводу точности - не стоит обольщаться. Обычно считается точность вычисления (округление результата) нужно делать в пределах полуширины линии.
Изменено: Андрей VG - 19 Сен 2019 10:17:10
Power Query. Трансформация структуры отчета из 1С в плоскую таблицу.
 
Доброе время суток
Странно, в чём проблема? Мышкоклацанием же делается
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Added Custom" = Table.AddColumn(Source, "Операция", each if [Дата поступления] = "Проверка документа" or [Дата поступления] = "Внесение изменений" then [Дата поступления] else null),
    #"Filled Down" = Table.FillDown(#"Added Custom",{"Операция"}),
    #"Filled Up" = Table.FillUp(#"Filled Down",{"Операция"}),
    #"Added Custom1" = Table.AddColumn(#"Filled Up", "ФИО", each if [Дата поступления] <> [Операция] and [Дата принятия] = null then [Дата поступления] else null),
    #"Filled Down1" = Table.FillDown(#"Added Custom1",{"ФИО"}),
    #"Filtered Rows" = Table.SelectRows(#"Filled Down1", each ([Дата принятия] <> null)),
    #"Reordered Columns" = Table.ReorderColumns(#"Filtered Rows",{"ФИО", "Операция", "Дата поступления", "Дата принятия", "Дата закрытия", "Документ", "Количество"})
in
    #"Reordered Columns"
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 279 След.
Наверх