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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 308 След.
Референты, товарные пары Power BI
 
Алексей, я это к тому, что в коде не двусмысленно написано, что использовать только два столбца
Цитата
Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content][[OrderID], [Item Description]]
Код же всё-таки требует изучения, а не использования как заклинания. Это уже шаманство какое-то будет :)
Копирование множества изображение (Shapes) в другую книгу. VBA
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
У меня все отлично - у них ошибки и все тут.
Ну, можно ещё сохранить книгу-источник, преобразовать в zip вытащить картинки и xml для определения где та картинка находится в источнике. Затем через Shapes.AddPicture вставлять в получатель. Хотя то же может сбоить, если есть какие-то проблемы.
Похоже придётся медведю ещё и комп с офисом заказчику от админивать :)
Референты, товарные пары Power BI
 
Цитата
PooHkrd написал:
в каждой по 2 столбца
А зачем там больше, если нужно вычислить количество чеков, в которых встречалась данная пара товаров?
Копирование множества изображение (Shapes) в другую книгу. VBA
 
Доброе время суток.
Как вариант. Если shape полностью помещается в ячейку, то можно простым копированием из диапазона одной книги в диапазон другой книги.
Код
Public Sub copyFromToBook()
    Dim scrRange As Range, destRange As Range
    Set scrRange = Workbooks("Книга3.xlsx").Worksheets("Лист3").Range("A1:A350")
    Set destRange = Workbooks("Книга2.xlsx").Worksheets("Лист1").Range("A1")
    scrRange.Copy destRange
End Sub
350 рисунков перенеслись без проблем. Excel 2016 32бит.
По недавно обсуждавшейся теме - есть проблема с копированием Shape от 2016 и вставки в диаграмму. Причём в этом случае, нужно задавать некоторый таймаут с DoEvents чтобы произошло копирование. Задержка зависит от размера рисунка. Может и здесь нечто тоже самое.
[Power Query] Как разделить по уровням иерархии по пробелам перед текстом
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
может
Тогда получился код такой же как и у Алексея. Он этот момент в тихаря подправил  :D
Подбор арифметических действий с использованием различных знаков.
 
Доброе время суток
Цитата
Андрей_26 написал:
Попробую угадать
Я тоже попробую... Вдруг стану телепатом и буду деньги потом на бирже лопатой грести :)
Скрытый текст
[Power Query] Как разделить по уровням иерархии по пробелам перед текстом
 
Доброе время  суток
Цитата
Дмитрий(The_Prist) Щербаков написал:
Как вариант с учетом только ведущих пробелов:
Дмитрий, а тогда может лучше использовать Text.TrimStart? Хотя конечно понимаю, что ответ на скорую руку при такой конкуренции среди отвечающих - как когда-то было по другим направлениям Excel :)
Подбор арифметических действий с использованием различных знаков.
 
Доброе время суток
Цитата
MCH написал:
пишите задачу подробнее, что нужно сделать?
Михаил, вполне простая задача. Есть массив чисел. В первом приближении. Нужно расставить между ними все варианты четырёх арифметических операций и как формулу вывести текущую комбинацию чисел и операций в очередную ячейку на листе.
Цитата
wholesander написал:
Писать 120 макросов - это, очень трудоёмко.
Можно поинтересоваться - как вы пришли к такому выводу?
как в графике в линейной диаграммы добавить к подписям значений в скобках добавить другие значения, есть график на который ест желание добавить к подписям значений в скобках количество поданный вагонов,
 
Цитата
Kostuy100 написал:
у меня 2007
Тогда, думаю, стоит подождать заинтересованного человека.
как в графике в линейной диаграммы добавить к подписям значений в скобках добавить другие значения, есть график на который ест желание добавить к подписям значений в скобках количество поданный вагонов,
 
И вам тоже здравствуйте.
Если у вас Excel от 2013, то вы можете задать в качестве подписи к данным значение из указанных ячеек. В более ранних версиях это можно сделать макросом VBA.
Подбор арифметических действий для получения нужного результата
 
Доброе время суток
Цитата
wholesander написал:
Возможно ли изменить макрос, если в примере будут разные числа?
Позвольте поинтересоваться - что означает ваш вопрос?
1. Вы спрашиваете разрешения?
2. Вас интересует - есть ли теоретическая возможность изменить макрос?
3. Или вы ищите доказательство того, что макрос не возможно изменить в общем случае, с учётом ограничений по памяти времени выполнения?
Референты, товарные пары Power BI
 
упс, а тему то в клиентоориентированный раздел перенесли
Изменено: Андрей VG - 18 Фев 2020 19:31:54
Как сделать рейтинг без пропусков мест работающим в spreadsheet?
 
Цитата
krook написал:
Я прикрепил файл, где, надеюсь, понятнее моя цель.
Вот так бы и сразу, глядишь и суток на решение не потребовалось бы :)
Код
=RANK.EQ(A1;UNIQUE($A$1:$A$8))
Изменено: Андрей VG - 18 Фев 2020 18:40:34
Референты, товарные пары Power BI
 
упс. День прколов  :(
Изменено: Андрей VG - 18 Фев 2020 19:38:36
Референты, товарные пары Power BI
 
Доброе время суток
Aleksxs, а почему вопрос "Курилке"?
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content][[OrderID], [Item Description]],
    typed = Table.TransformColumnTypes(Source,{{"Item Description", type text}}),
    left = Table.RenameColumns(typed, {{"OrderID", "loid"}, {"Item Description", "lid"}}),
    right = Table.RenameColumns(typed, {{"OrderID", "roid"}, {"Item Description", "rid"}}),
    join = Table.Join(left, {"loid"}, right, {"roid"}),
    filter = Table.SelectRows(join, each  [lid] < [rid]),
    result = Table.Group(filter, {"lid", "rid"}, {{"count", each Table.RowCount(_)}})
in
    result
Как сделать рейтинг без пропусков мест работающим в spreadsheet?
 
Цитата
krook написал:
НЕ осилил формулу даже с query ((
Посмотрите пример. На Лист2 и для вертикального столбца и горизонтальной последовательности строк.

P. S. Вы серьёзно думаете, что пункт правил форума
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
написан исключительно только для того, чтобы поиздеваться над вопрошающими?
Изменено: Андрей VG - 18 Фев 2020 14:22:29
Определить коэффициенты сигмоиды через ЛИНЕЙН
 
esheg, спасибо за преобразование.
Цитата
esheg написал:
Что ответит экономист?
Фиг его знает. Я разработчик - у меня профессиональная болезнь требовать что, где, когда :)
Определить коэффициенты сигмоиды через ЛИНЕЙН
 
Цитата
vsg-good написал:
без ручного перебора.
Ещё раз повторю - есть такая надстройка - "Поиск решения".
Цитата
vsg-good написал:
И да, функция верная, т.к. именно по ней я и построил y.
Только Х предложили от балды :)  Насколько понимаю школьное определение "область определения функции" выброшено в топку как устаревшее и не нужное?
Изменено: Андрей VG - 18 Фев 2020 10:06:58
Определить коэффициенты сигмоиды через ЛИНЕЙН
 
Цитата
vsg-good написал:
Пример.
Вы уверены, что координаты X именно 1, 2, 3..18? Сходимость в поиске решения мягко говоря не какая. Вот если на 0,2 умножить, тогда получается что-то вполне приличное :)
Код
=5/(1+EXP(-0,2*A7))
Изменено: Андрей VG - 18 Фев 2020 09:52:46
Интервал между датами в Power Query
 
Доброе время суток.
Вариант
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    typed = Table.TransformColumnTypes(Source,{{"Дата", type text}}),
    toSingle = List.Combine(List.Transform(typed[Дата], each Text.Split(_, ","))),
    toIntervals = List.Transform(toSingle, (item) =>
    if Text.Contains(item, "-") then
    let
        scope = Text.Split(item, "-"),
        start = Date.From(scope{0}, "ru-RU"),
        finish = Date.From(scope{1}, "ru-ru")
    in
        List.Dates(start, Duration.TotalDays(finish - start) + 1, #duration(1, 0, 0, 0))
    else
        {Date.From(item, "ru-RU")}
    )
in
    List.Combine(toIntervals)
Power Query выбор из списка только числа
 
Цитата
mitox написал:
но не мог найти соответствующие функции
а как вы найдете подходящую функцию или преобразование если определение того, что вы хотите не в зуб ногой?
Тут его ищи сколь хочешь - чёрта лысого найдёшь... :)
Power Query выбор из списка только числа
 
Доброе время суток.
Цитата
mitox написал:
заголовки которые содержатся в диапазоне от 1 до 31
Э... А можно по человечески? Указание на диапазон задаёт функцию y(x) где x - это те самые значения диапазона, а у - значение функции. Разве вы об этом?
Вариант, исходя из предположения, что нужны заголовки столбцов, которые могут быть преобразованы в числа.
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    allCollNames = Table.ColumnNames(Source),
    asNumberColNames = List.RemoveNulls(List.Transform(allCollNames, each let t = try Number.From(_) otherwise null in if t = null then null else _))
in
    asNumberColNames
Линия тренда и вывод значения в ячейки
 
Доброе время суток
Цитата
viv5 написал:
Если бы все было так просто
Так вы детализируйте, что такого сложного? Берёте типовой материал форума по расчёту коэффициентов базовых уравнений тренда и рассчитываете по известным значениям Х исходных данных значения тренда. По крайней мере именно так вас понимаю. Если поняли не правильно, то сделайте над собой усилие помимо декларации напишите несколько подробнее, что именно сложно и почему.
Макрос отправки на Microsoft print to PDF
 
Доброе время суток
Цитата
Breathe of fate написал:
В коде нет указания на этот принтер.
Так вроде же написали
Цитата
Дмитрий(The_Prist) Щербаков написал:
PrintOut
Цитата
Jykermann написал:
"Microsoft Print to PDF"
Код
ActiveSheet.PrintOut ActivePrinter:="Microsoft Print to PDF"
Как заставить формулу выводить данные в соседний столбец без учёта пробелов?
 
Цитата
Yungyung написал:
Пришёл в компанию, тут всё на гугл-таблицах)
А любопытным никогда не были? QUERY
Как заставить формулу выводить данные в соседний столбец без учёта пробелов?
 
Цитата
Yungyung написал:
эта тема будет топ-1
Только потому что написано
Цитата
заставить формулу
:D
А почему вы собственно QUERY не используете? Самое же простое не городить огород...
Каким образом добавлять/накапливать данные в PQ?
 
Доброе время суток
Цитата
dodge написал:
не обновления полностью данных
и
Цитата
dodge написал:
обновления первых n строк
нет. Используйте базы данных.
Цитата
dodge написал:
добавления/накопления
да, и обновление всех существующих при наличии первичного ключа в таблицах. Приём Self Referencing Tables in Power Query
Как сделать рейтинг без пропусков мест работающим в spreadsheet?
 
Доброе время суток.
Вариант
Код
={query(A1:A8; "select A order by A")\arrayformula(row(A1:A8))}
Фильтрация, выпадающий список, блокирование
 
Доброе время суток
Цитата
eva_girl написал:
Как?
1. В тех четырёх таблицах снимаете блокировку со строк полей, которые пользователь может заполнять.
2. Устанавливаете защиту листов.
3. Пишите макрос, который на событие изменения значения выбором в выпадающем списке на листе 5.
3.1 Временно снимает блокировку с очередного листа.
3.2 Выполняет фильтрацию по новому значению листа 5.
3.3 Восстанавливает блокировку.
Как-то так

Господа модераторы вариант названия
Каков будет алгоритм фильтрации таблиц по выбранному значению в выпадающем списке с блокировкой снятия фильтра пользователем?
Изменено: Андрей VG - 17 Фев 2020 09:09:57
Автоматическое обновление запросов Power Query, Обновление запроса Power Query не обновляя предыдущий источник
 
Цитата
Jack London написал:
Человек отвечающий за все получает сводный  запрос из всех Регионов
При такой организации структуры хранения - только добрая воля по обновлению файлов B поможет вам решить проблему.
Ну, или (изощрённый вариант). Ставите обновление запросов в книгах В при открытии файла. Пишите vbscript, который по расписанию будет открывать файл B, если он не открыт и дожидаться обновления книги, после чего сохранять изменения.
Изменено: Андрей VG - 17 Фев 2020 09:00:10
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 308 След.
Наверх