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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 308 След.
Подбор арифметических действий для получения нужного результата
 
Доброе время суток
Цитата
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
Создание бесконечного графика
 
Доброе время суток
Цитата
xavoir написал:
В этих ячейках  данные меняются постоянно. Они полученны из DDE из другого приложения (Codesys)
Можно макросом, который отслеживает изменение ячейки по DDE (как правило организовывалось на связи ячейки с содержимым ActiveX Textbox) и при наступлении такого события дописывает данные в конец умной таблицы. По данным которой в свою очередь построен график. Если данные добавляются в конец таблицы, график автоматически расширяется.
Поиск формул ячейки, в которых встречаются константы
 
Цитата
БМВ написал:
он его сломает и руки порежет.
Э, не, тут неприкрытый мухлёж! :)
Цитата
БМВ написал:
"10%"
А на картинке у Максима стоит только числовые константы. С чего бы тогда Inquire находить число?
Ну, а в моих изысканиях я сразу предупреждал, что нечто вроде =A1 & " проект " & B1 & "-2022 года" будет находить числовую константу, там где её нет. По идее тогда нужно поудалять сначала текст между кавычками, а уж затем осуществлять поиск числовых констант.
Поиск формул ячейки, в которых встречаются константы
 
Допилил всё таки вариант с учётом : после последовательности цифр. Проверка вложенности в текстовую константу символов цифр для игнорирования - не производится.
Код
Public Function ContainsConstants(ByVal FormulaText As String) As Boolean
    Static pSpace As Object, pSign As Object
    Dim bResult As Boolean
    bResult = False
    If pSpace Is Nothing Then
        Set pSpace = CreateObject("VBScript.RegExp")
        pSpace.Global = True: pSpace.Pattern = " |\n"
        Set pSign = CreateObject("VBScript.RegExp")
        pSign.Pattern = "[=+\-*/\^({]\d+\b(?!:)"
    End If
    FormulaText = pSpace.Replace(FormulaText, "")
    If Left$(FormulaText, 1) = "=" Then
        bResult = pSign.Test(FormulaText)
    End If
    ContainsConstants = bResult
End Function
Заливка ячеек, содержащих значение "#Н/Д"
 
Доброе время суток
Как-то так
Перевести ячейки с данными, начинающимися с нуля в значения
 
Доброе время суток
Цитата
Chubazaka написал:
но он убирает нули:
Что вполне логично. Вы преобразовали текст в число, а по умолчанию с форматом ячеек Общий ведущие нули не отображаются. Следовательно, нужно установить для ячеек вывода соответствующий NumberFormat = "000" в вашем случае.
Выпадающий список отображаемый две колонки
 
Цитата
Сергей Эм написал:
БМВ,  а можно изменить макрос
Привет, Михаил.
Я предполагаю, что эта фраза в переводе обозначает: Пожалуйста, перепишите макрос так, чтобы... :)
Закрасить столбец таблицы с текущей датой
 
Доброе время суток
Цитата
Homavi написал:
Напомните как правильно
Пожалуйста, ссылка на правила.
Создание алгоритма распределения плана продаж на территории
 
Доброе время суток.
JeyCi, здесь уже даже набросали какое-никакое, но решение :)  ТС многостаночник...
Макрос на переименование листов по содержимому ячейки
 
Цитата
Dovletmurat написал:
,я хочу чтобы листы переименовывались в даты месяца
Как макрос определит дату месяца листа?
PQ. PP. Вычисление нагрузки на операторов в "Х" момент времени, вычисление нагрузки по секундам
 
Доброе время суток.
ivanka, вы всё же могли бы объяснить - что вы хотите посчитать - нагрузку на оператора (и к стати, что это такое - в моём понимании это отношение времени за телефоном отнесенное к некоторой единицы измерения, например, часу) или сколько клиент дожидался, когда ему ответит оператор?
Следующие
Цитата
ivanka написал:
CALENDARAUTO, где по секундам будет весь год
Зачем вам посекундный календарь если
Цитата
ivanka написал:
с возможностью смотреть срез по 10 минут.
Зачем лишние 600 секунд информации в базе? Вы бы детализировали - что вы хотите. Или вы предпочитаете контактировать только с представителями своего профиля работ, чтобы не писать деталей? Так не факт, что они заглянут в тему.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 308 След.
Наверх