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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 322 След.
Расчет разницы между датами из одной колонки в Power Query, Описание приемов и способов поиска минимальной и максимальной даты с последующим определением разницы в месяцах
 
Доброе время суток.
Цитата
Георгий Шкуро написал:
что-то пошло не так.
Естественно, где
Цитата
Aleksei_Zhigulin написал:
YourTable
:qstn:
VBA. Деактивация элементов лены в надстройке, Сделать не активными элементы надстройки, если не открыта ни одна книга
 
Доброе время суток.
Сделайте активной вкладку "Вкладка", попереключайтесь между листами книги. Дальше, полагаю, разберётесь. Успехов.
Запрет на отправку писем из VBA
 
Цитата
Юрий М написал:
А что за праздник? А то смотрю - медведь при параде...
четверг, 28 мая
День пограничника 2020 (Россия)
Запрет на отправку писем из VBA
 
Цитата
БМВ написал:
обожаю такие ребусы.
Привет, Михаил.
С праздником!
Может ТС всё ещё верит в Деда Мороза и в Гуру форума PlanetaExcel :)
Исключить пары вопрос - ответ, а комментарии без ответов пометить
 
Доброе время суток
Цитата
Артур Идрисов написал:
Возможно это можно как-нибудь через PQ
Стековые задачи? Можно, но лучше не... Да и примера продуманного как не было, так и нет.

Updated. Если подумать, то как-то так
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ren1 = Table.RenameColumns(Source,{{"ID комментария", "id1"}, {"Адресат", "a1"}, {"Получатель", "b1"}})[[id1], [a1], [b1]],
    ren2 = Table.RenameColumns(Source,{{"ID комментария", "id2"}, {"Адресат", "a2"}, {"Получатель", "b2"}})[[id2], [a2], [b2]],
    group1 = Table.Group(ren1, {"a1", "b1"}, {"temp", each Table.AddIndexColumn(_, "loc1")}),
    exp1 = Table.ExpandTableColumn(group1, "temp", {"id1", "loc1"}),
    group2 = Table.Group(ren2, {"a2", "b2"}, {"temp", each Table.AddIndexColumn(_, "loc2")}),
    exp2 = Table.ExpandTableColumn(group2, "temp", {"id2", "loc2"}),
    join = Table.Join(exp1, {"a1", "b1", "loc1"}, exp2, {"b2", "a2", "loc2"}, JoinKind.LeftOuter)[[id1], [loc2]],
    result = Table.Join(Source, {"ID комментария"}, join, {"id1"}),
    drop = Table.RemoveColumns(result,{"id1"}),
    return = Table.Sort(drop,{{"ID комментария", Order.Ascending}})
in
    return

P. S. Всегда удивляет, почему такая реакция - как получше пример сделать, так вроде и решение задачи уже не столь необходимое :)
Изменено: Андрей VG - 27 Май 2020 15:35:23
Преобразование диаграмм в объекты
 
Цитата
PanteraGSP написал:
Имеется в виду на отдельные составляющие фигуры и текст.
Тогда что вам мешает вставить как Рисунок [метафайл Windows]? Потом разгруппируйте если нужно.
Получить чистую площадь стен за вычетом проемов
 
Цитата
buchlotnik написал:
Обидчивый мальчик
скорее  - это тот самый потребитель, что всегда прав. Это его обязаны понимать, а не он быть внятным :)
Преобразование диаграмм в объекты
 
Доброе время суток.
PanteraGSP, что такое - объекты в вашем сообщении? Диаграмма - это не объект?
Мера. Среднемесячное количество покупок за период
 
Доброе время суток.
Вариант
Код
transaction per month =
VAR addYearMonthSign =
    ADDCOLUMNS (
        'Продажи',
        "YearMonthSign", 100 * YEAR ( 'Продажи'[Дата транзакции] )
            + MONTH ( 'Продажи'[Дата транзакции] )
    )
RETURN
    DIVIDE (
        DISTINCTCOUNT ( 'Продажи'[ID Транзакции (покупка)] ),
        COUNTROWS ( SUMMARIZE ( addYearMonthSign, [YearMonthSign] ) ),
        BLANK ()
    )
PowerQuery Расчет вариант расчета ввоза товара на склад по выполнению условия остатка, Получить промежуточный результат внутри вычисляемого столбца с учетом вычислений более ранних строк этого же столбца
 
Цитата
lostandleft написал:
Решения нет????
Почему нет?! Есть. На том самом List.Generate получается самая быстрая версия, я собственно под бедой имел ввиду
Цитата
lostandleft написал:
все очень сильно тормозит, и это ОЧЕНЬ мягко говоря
Сумма с нарастающим итогом более минуты считается для миллиона строк. В VBA и SQL движках с оконными функциями - менее секунды.
Изменено: Андрей VG - 25 Май 2020 21:50:20
PowerQuery Расчет вариант расчета ввоза товара на склад по выполнению условия остатка, Получить промежуточный результат внутри вычисляемого столбца с учетом вычислений более ранних строк этого же столбца
 
Доброе время суток.
Вот с оконными функциями в Power Query - беда. Можно конечно, но лучше в БД их поддерживающую, например в SQLite, а уже оттуда загружать куда надо через Power Query.
Ошибки c подключением Power query
 
Доброе время суток
Цитата
eleyterokok написал:
, а есть рецепт от этой болячки
Есть.
Как убрать сообщение: "could not load an object because it is not available on this machine" ?
 
Доброе время суток
Цитата
Красноглазый Пиркаф написал:
а у меня никакого календаря нет.
Чтобы гарантировано не было - поудаляйте в редакторе VBA все UserFroms, модули, модули классов. Удалите любой код из модулей рабочих листов и книги. Будет вам тишина и покой.
DAX. Идея реализации по подсчету дохода.
 
Цитата
Михаил Л написал:
Можно узнать, какой вариант быстрее будет работать?
Михаил, скорее всего этот
Скрытый текст

Для сгенерированного таким кодом набора данных. Table.SelectColumns в сочетании с остальным - уж больно тормознут.
Скрытый текст


Скорее всего можно придумать и более шустрые подходы.
DAX. Идея реализации по подсчету дохода.
 
Цитата
FedosoffPavel написал:
и ошибся при расчете итоговой таблицы
Серьёзно? То есть проверить никак нельзя было и по остальным датам привести результат? Ну, допустим.
Цитата
FedosoffPavel написал:
Как Вы это сделали?
Я написал, будьте внимательнее
Цитата
Андрей VG написал:
Вариант трансформации в Power Query в нормальную таблицу исходных данных
Опережая вопрос, что это Power Query — обзор и обучение. Советую почитать Скульптор данных в Excel с Power Query.
Прилагаю вариант в Power BI Desktop - может это для вас будет ближе и проще в разборе того, что и как сделано. Архив распаковать в c:\path, ну, или изменить путь в коде запроса Power Query.
Успехов.
DAX. Идея реализации по подсчету дохода.
 
Доброе время суток
Цитата
FedosoffPavel написал:
Сложные формулы на DAX я самостоятельно писать не умею еще
Вы считаете, что это как-то может помочь в понимании решения задачи? Вы бы лучше сумму на декабрь 2020 привели бы не от балды - уважайте помогающих вам. Ну, либо пояснили, как при одной записи данных со стоимостью 100 для декабря 2020 могло получиться 150?
Вариант трансформации в Power Query в нормальную таблицу исходных данных и простых DAX вычислений, не требующих чего-то там экстраординарного.
Изменить цвет символа в TextBox
 
Доброе время суток
Цитата
НСС написал:
в Textbox
Конкретно в TextBox - нет нельзя, но есть альтернатива.
Разное отображения пустых значений на двух полностью одинаковых графиках
 
Цитата
Roomon написал:
Странно,
это то, что вы версию Excel не указываете в своём сообщении.
Попробуйте в Immediate выполнить, выделив перед этим нужный график.
Код
ActiveChart.DisplayValueNotAvailableAsBlank = True
Разное отображения пустых значений на двух полностью одинаковых графиках
 
Доброе время суток
Цитата
Roomon написал:
Параметры отображения пустых и скрытых значений у них одинаковы
Это вы серьёзно?
Настройка ленты. Название выбранной кнопки отображать в окне выпадающего списка
 
Навесить можно на сам список. Callback содержит данные о том, какой элемент был выбран.
Код
'd1 (элемент: dropDown, атрибут: onAction), 2010+
Private Sub dropDownChanged(control As IRibbonControl, selectedId As String, selectedIndex As Integer)
    MsgBox "Сработала процедура, заданная в onAction элемента " + control.ID + " (выбран пункт = " + selectedId + ")"
End Sub
Настройка ленты. Название выбранной кнопки отображать в окне выпадающего списка
 
Доброе время суток
Цитата
Tal_Rasha написал:
с кнопками (DropDown
Кнопки трактуются как элементы меню, а не элемент списка.

Господа модераторы. Как настроить Ribbon dropDown для отображения текста выбранного в нём элемента?
VBA. Открыть файлы по списку с листа текущей книги, сохранить файлы и закрыть
 
Доброе время суток.
Вариант
Почему-то задвоились данные при слиянии запросов в PQ
 
Цитата
extrafant написал:
В результате все получилось
Вот и замечательно.
Dax - Текстовое сообщение, как результат вычисления меры
 
Цитата
lostandleft написал:
Мои Мысли правильно воспринимают то, что Вы создали?
Да, где-то так, хотя у меня чуть по другому. В вашей нотации и уходя от Var
Код
Мера=РезультатМеры (
если
    СуммируемЗначениеСтолбца[Знач]=пусто, 
тогда
  ОбъединенениеВсехЗаписейТаблицыСтолбца[Значение] через ";",
ВПротивномСлучае
    ЗадатьФорматВывода(СуммируемЗначениеСтолбца[Знач], "0")
)
Почему-то задвоились данные при слиянии запросов в PQ
 
Цитата
extrafant написал:
Я связывал так. Учитель+класс+предмет
Это вы серьёзно? А если ещё раз посмотреть в код?
Цитата
Источник = Table.NestedJoin(Нагрузка, {"Ф.И.О.", "предмет"}, #"Кабинеты в табличном виде", {"Учитель", "Предмет"}, "Кабинеты в табличном виде", JoinKind.LeftOuter)
Вот и добавьте пропущенный класс.
Dax - Текстовое сообщение, как результат вычисления меры
 
Доброе время суток.
Как-то так
PQ. Разделение текста или числа в столбце на символы, Если слово из 5-ти букв, то будет пять столбцов.
 
Доброе время суток.
Вариант
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    rows = Table.ToRows(Source),
    toItems = List.Transform(rows, (row) => List.Combine(List.Transform(row, each Text.ToList(Text.From(_))))),
    result = Table.Transpose(Table.FromColumns(toItems))
in
    result
PQ. синхронизация файла с несколькими
 
Цитата
escaper2931 написал:
Каким образом в макросе можно указать ссылки на все файлы,
Каким-то же образом вы указываете ссылки на файлы в Power Query? П
Например, файлы из заданной папки код Power Query Source = Folder.Files("C:\Path\Csvs")
Тогда в VBA получаете код запроса через
Код
ThisWorkbook.Queries(1).Formula
Выдёргиваете путь к папке и, например, таким подходом List the Files in a Folder with the FileSystemObject перебираете файлы-источники, записывая в них нужные комментарии.
P. S. Правда это уже почти не имеет никакого отношения к теме " PQ. синхронизация файла с нескольким". Так что советую создать другую тему, а то малой с котом придут и прикроют лавочку :)  Ещё и волшебных пенделей пропишут.
Изменено: Андрей VG - 20 Май 2020 17:14:33
PQ. синхронизация файла с несколькими
 
Цитата
escaper2931 написал:
мне не нужно добавлять
Вас кто-то принуждает его добавлять?
Цитата
escaper2931 написал:
а не заходить в каждый источник
С другой стороны - те комментарии можно будет в источнике увидеть только тогда, когда его откроют для правки, например. Следовательно ничто не мешает настроить свойство подключения на обновление при открытии файла-источника :)
PQ. синхронизация файла с несколькими
 
Цитата
escaper2931 написал:
и записывать в источники,
Тогда напишите макрос. Как правильно заметил коллега -
Цитата
PooHkrd написал:
PQ делать немножко не умеет.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 322 След.
Наверх