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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 57 След.
Изменить названия кнопок в диалоговом окне
 
самое простое - нарисовать по этому поводу Userform со своими кнопками, в противном случае придется довольно сильно углубиться в API, классы и т.п. например, так
Каждому For свой Next
Динамически задаваемый диапазон для функции ЧПС (NPV)
 
Код
=ЧПС(B9;ИНДЕКС(B6:F6;ПОИСКПОЗ(B1;B4:F4;)):ИНДЕКС(B6:F6;ПОИСКПОЗ(B2;B4:F4;)))
Каждому For свой Next
Как в Power Query пронумеровать строки
 
про нормальную форму речи не шло, но раз пошла такая пьянка:
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    lst = Table.Split(from,4),
    rec = List.Transform(lst, each [Ф=_{0}[Столбец1],И=_{1}[Столбец1],О=_{2}[Столбец1],Д=_{0}[Столбец2]]),
    to = Table.FromRecords(rec)
in
     to
или в общем виде
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    fn=(t,n)=>[ a=Table.Split(t,n),
                b=(t)=>List.Combine(List.Transform(Table.ToColumns(t),List.RemoveNulls)),
                c=Table.FromRows(List.Transform(a,b))][c],
    to=fn(from,4)
in
    to
Изменено: buchlotnik - 26 Июн 2020 12:46:56
Каждому For свой Next
Функция-макрос для стандартного отклоенния, VBA
 
двоит не функция, а ваши исходные данные в объединенных ячейках
Код
  Function СтандОтклонNew(Arr, Optional gen = 0)
  For Each x In Arr
        If x <> "" Then
            n = n + 1
            s = s + x
            sq = sq + x ^ 2
        End If
    Next
    If gen = 1 Then
        СтандОтклонNew = Sqr((sq - s ^ 2 / n) / n)
    Else
        СтандОтклонNew = Sqr((sq - s ^ 2 / n) / (n - 1))
    End If
End Function
Изменено: buchlotnik - 26 Июн 2020 10:25:50
Каждому For свой Next
Как в Power Query пронумеровать строки
 
Цитата
Юра1987 написал:
Индекс и последущее деление от остатка (на 4 ) не дает желаемого результата
странно, так же работает вроде:
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    add = Table.AddIndexColumn(from, "Индекс", 0, 1),
    to = Table.TransformColumns(add, {"Индекс", each Number.RoundDown(_ / 4)+1})
in
    to
Цитата
Юра1987 написал:
транспортировкой так же не смог объединять
а вот это даже представить страшно
Изменено: buchlotnik - 26 Июн 2020 01:39:38
Каждому For свой Next
Формула для показателей разницы в цене
 
Код
=СЧЁТЕСЛИМН(База!$A$2:$A$398;G$1;База!$D$2:$D$398;">="&$F1;База!$D$2:$D$398;"<"&$F2)
Изменено: buchlotnik - 25 Июн 2020 14:48:06
Каждому For свой Next
СЧЁТЕСЛИМН с условием периода в DAX
 
Код
=   VAR mi = MIN([Дата начала условия])
   VAR ma =MAX( [Дата окочания условия])
   RETURN
   CALCULATE(
      COUNTROWS('Tranz');
      'Tranz'[Дата транзакции]>=mi;
      'Tranz'[Дата транзакции]<=ma
      )
Каждому For свой Next
Создание общей таблицы в PQ из данных, которые есть в текущей таблице
 
Цитата
Solomama написал:
пытаюсь повторить ваш код
которую версию? вижу сборную солянку
Цитата
Solomama написал:
Выходит такая ошибка:
разумеется, у вас в исходной таблице НЕТ этого столбца, система не может его обработать, счета это также касается
Цитата
Solomama написал:
что означают символы в коде
(аргументы)=> обозначает функцию
#table[Нужное поле] означает взять из таблицы список значений нужного поля (столбца)

а теперь объясните - зачем вы создали список а если в коде его не используете, зачем добавили шаг d - в принципе такие задачи нужно решать через Table.SelectColumns, но здесь-то это не нужно, поскольку )[tmp]
да, и аргумент - у меня не единица, а английская эль - имена не могут с цифр начинаться, короче заменил на х
рабочий запрос выглядит примерно так:
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    //d = Table.RemoveColumns(Source,{"N", "Документ", "Кол.", "Количество Дт", "Валюта Дт", "Вал. сумма Дт", "Подразделение Дт", "Субконто2 Дт", "Субконто3 Дт", "Кол.2", "Количество Кт", "Валюта Кт", "Вал. сумма Кт", "Подразделение Кт", "Субконто2 Кт", "Субконто3 Кт", "Содержание", "НУ", "ПР", "ВР", "Сумма НУ Дт", "Сумма ПР Дт", "Сумма ВР Дт", "Сумма НУ Кт", "Сумма ПР Кт", "Сумма ВР Кт"}),
    a = {"Дата", "Организация", "Счет Дт", "Счет Кт", "Сумма", "Субконто1 Дт", "Субконто1 Кт"},
    //b = {"Дата", "Организация", "Счет","Сумма Дт", "Сумма Кт", "Субконто"},
    c = Table.CombineColumns(from, a, 
                                                        (x)=>{  [Дата =  x{0}, Организация = x{1}, Счет = x{2}, Сумма = x{4}, Субконто = x{5}],
                                                            [Дата = x{0}, Организация = x{1}, Счет = x{3}, Сумма = -x{4}, Субконто = x{6}]},"tmp")[tmp],
    tolst = List.Combine(c),
    to = Table.FromRecords(tolst)
in
    to
Изменено: buchlotnik - 24 Июн 2020 09:31:01
Каждому For свой Next
Построение карты шухарта с выбором диапазонов отображения
 
Цитата
buchlotnik написал:
показывайте в файле что вам нужно
Цитата
buchlotnik написал:
Какой тип карты интересует
Изменено: buchlotnik - 23 Июн 2020 22:31:12
Каждому For свой Next
Добавить новый модуль в книгу горячими клавишами.
 
дык нажмите Alt+F11 потом Alt+I потом M
Каждому For свой Next
Добавить новый модуль в книгу горячими клавишами.
 
Цитата
Strek написал:
Горячие клавиши должны
это кому они должны?
Каждому For свой Next
Добавить новый модуль в книгу горячими клавишами.
 
если из-под самого Excel, то Alt + F11 + I + M
Каждому For свой Next
Построение карты шухарта с выбором диапазонов отображения
 
Цитата
jimm232 написал:
тип карты наличие заданных стандартных значений
тем более показывайте в файле что вам нужно, потому что карты Шухарта для количественных признаков - это XS, XR, ImR; и судя по всему это не то, что вам нужно
Каждому For свой Next
Построение карты шухарта с выбором диапазонов отображения
 
Какой тип карты интересует, по какому полю, почему именно VBA?
Каждому For свой Next
Удаление части столбца по значению PQ
 
если правильно понял
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    fn =(lst)=>List.PositionOf(lst,{"1".."9"}, Occurrence.First,(x,y)=>List.Contains(y,Text.Start(x,1)))+1,
    num = fn(from[Статьи затрат]),
    num1 = fn(List.Skip(from[Статьи затрат],num)),
    to = Table.Range(from,num-1,num1)
in
    to
Изменено: buchlotnik - 22 Июн 2020 17:25:41
Каждому For свой Next
Создание общей таблицы в PQ из данных, которые есть в текущей таблице
 
Цитата
Solomama написал:
buchlotnik , А вы тоже код ручками писали?
да, разумеется
Цитата
Solomama написал:
не разобралась с файлом где таинственный третий аргумент
что именно не идёт? покажите в файле
Изменено: buchlotnik - 22 Июн 2020 16:52:51
Каждому For свой Next
Создание общей таблицы в PQ из данных, которые есть в текущей таблице
 
какой-то глюк - мне написал, что запрос подключен к модели данных и для загрузки от модели его надо отключить - после ОК - загрузился
Цитата
Михаил Л написал:
В версии  PQ - 2.59.5135.201 в функции Table.FromRecords нет третьего аргумента
да, третий аргумент - недавняя фишка, собственно костыль вы правильный примотали - мне вчера уже лень было
Каждому For свой Next
Создание общей таблицы в PQ из данных, которые есть в текущей таблице
 
Solomama, слегка поправил код (см. в пред. собщении)
Каждому For свой Next
Создание общей таблицы в PQ из данных, которые есть в текущей таблице
 
для разнообразия (формируем источник для сводной) Табл2:
Скрытый текст
и для варианта Табл1:
Скрытый текст
Изменено: buchlotnik - 22 Июн 2020 00:53:37
Каждому For свой Next
Присвоить буквенный код из таблички к числу в ячейке выше
 
Код
=ОБЪЕДИНИТЬ(;1;ЕСЛИ($T$2:$U$12=H5;$T$1:$U$1;""))
Каждому For свой Next
Итерация строк до определенной даты в запросе PQ
 
Код
let
    from = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    max = #date(Date.Year(DateTime.LocalNow())+5,12,31),
    add = Table.AddColumn(from,"Dates", each 
                                            try List.Dates( Date.From([Next Due]),
                                                            Int64.From(max - Date.From([Next Due]))/[Interval],
                                                            #duration([Interval],0,0,0)) 
                                            otherwise null),
    to = Table.ExpandListColumn(add, "Dates")
in
    to
Каждому For свой Next
Создание общей таблицы в PQ из данных, которые есть в текущей таблице
 
Цитата
Solomama написал:
нельзя проставить?
можно проставить всё что угодно, какой пример, такой и ответ, т.е.
Цитата
Solomama написал:
наобум
Каждому For свой Next
Создание общей таблицы в PQ из данных, которые есть в текущей таблице
 
Цитата
Solomama написал:
Это реально
реально
мышкоклацный вариант:
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Removed Other Columns" = Table.SelectColumns(Source,{"Счет Дт", "Счет Кт", "Сумма"}),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Removed Other Columns", {"Сумма"}, "Атрибут", "Значение"),
    #"Extracted Text After Delimiter" = Table.TransformColumns(#"Unpivoted Other Columns", {{"Атрибут", each Text.AfterDelimiter(_, " "), type text}}),
    #"Pivoted Column" = Table.Pivot(#"Extracted Text After Delimiter", List.Distinct(#"Extracted Text After Delimiter"[Атрибут]), "Атрибут", "Сумма", List.Sum)
in
    #"Pivoted Column"
вот только с вашим примером не бьётся от слова совсем - откуда аренда 900 по 91.01?
Каждому For свой Next
[ Закрыто] Заполнение по типу
 
Цитата
BarNet написал:
формула али макрос
сводная в помощь
Каждому For свой Next
PQ. SWITCH и Text.Contains., Проверить ячейку на содержание текста и если текст содержится, то вывести другое соотвествуюеще
 
если список соответствий собрались вбивать руками, то пжлст:
Скрытый текст
Изменено: buchlotnik - 19 Июн 2020 22:20:35
Каждому For свой Next
Найти количество уникальных буквенных префиксов
 
PQ
Код
List.Count(List.Distinct(List.Transform(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content][ID номер], each Text.BeforeDelimiter(_, "-",1))))
Каждому For свой Next
Из отчета 1С формировать другой отчет по любым позициям/категориям
 
Цитата
Boongalo написал:
в какую сторону смотреть
в сторону PQ
Каждому For свой Next
Добавление сезона по продукту (2016/2017; 2017/2018 и т.д.), Добавление сезона по продукту (2016/2017; 2017/2018 и т.д.)
 
Цитата
marina.djera написал:
Можно ли как-то
как-то можно
Каждому For свой Next
Генератор случайных чисел в заданном диапазоне
 
по фотографии - Randomize
Каждому For свой Next
Адаптация фигур под размеры экрана
 
к сожалению пример так и не появился
Каждому For свой Next
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 57 След.
Наверх