Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 126 След.
Выбор из повторяющихся строк уникальных при наступлении определенного условия
 
Код
let
    l={"согласован","не согласован"},
    f=(x)=>if List.Contains(Table.Column(x,"Статус согласования раздела"),"замечания") then l{1} else l{0},
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    group = Table.Group(from, "Наименование раздела", {"status", f}),
    g=(x)=>Table.SelectRows(group,each [status]=x)[Наименование раздела],
    to = Table.FromColumns(List.Accumulate(l,{},(s,c)=>s&{g(c)}),l)
in
    to
или
Код
let
    f=(x)=>if List.Contains(Table.Column(x,"Статус согласования раздела"),"замечания") then "не согласован" else "согласован",
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    group = Table.Group(from, "Наименование раздела", {"status", f}),
    group1 = Table.Group(group,"status",{"tmp",(x)=>x[Наименование раздела]}),
    to = Table.FromColumns(group1[tmp],group1[status])
in
    to
Изменено: buchlotnik - 26.07.2021 22:46:13
Каждому For свой Next
Выбор из повторяющихся строк уникальных при наступлении определенного условия
 
Цитата
gooreloov написал:
не в одной ячейке через запятую, а в разных ячейках?
вот что мешает в исходном файле рядом нарисовать Как есть - Как надо?
Каждому For свой Next
Объединить ID через запятую при условии совпадений артиклей по первым пяти символам.
 
Код
=ОБЪЕДИНИТЬ(",";1;ФИЛЬТР($A$2:$A$954;ЛЕВБ($B$2:$B$954;5)=ЛЕВБ(B2;5)))
Каждому For свой Next
Выбор из повторяющихся строк уникальных при наступлении определенного условия
 
если 2010 или 2013 - да, начиная с 2016 - это встроенный функционал
Каждому For свой Next
Выбор из повторяющихся строк уникальных при наступлении определенного условия
 
Цитата
gooreloov написал:
я не разбираюсь в макросах
это не макрос, а код я языке М и он сохранен в файле - см. Данные - Запросы и подключения
Каждому For свой Next
Выбор из повторяющихся строк уникальных при наступлении определенного условия
 
Чёт не пойму в каком виде надо... вариант
Код
let
    f=(x)=>if List.Contains(Table.Column(x,"Статус согласования раздела"),"замечания") then "не согласован" else "согласован",
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    group = Table.Group(from, "Наименование раздела", {"status", f}),
    to = Table.Group(group,"status",{"разделы",(x)=>Text.Combine(x[Наименование раздела],", ")})
in
    to
Каждому For свой Next
PQ - удаление столбов с данными после определенного именного столбца
 
Код
lst = Table.ColumnNames(from),
    to = Table.SelectColumns(from,List.FirstN(lst,List.PositionOf(lst,"Доход")+1))
Каждому For свой Next
Автоматическое заполнение вниз с увеличением номера
 
Цитата
andrei25776 написал:
А если
а если правила почитать?
Каждому For свой Next
Автоматическое заполнение вниз с увеличением номера
 
например
Код
=СТРОКА()&"/21"
Каждому For свой Next
Автоматическое заполнение вниз с увеличением номера
 
Цитата
andrei25776 написал:
возможно ли
возможно
Каждому For свой Next
Power Query. Превратить календарь с расходами в таблицу ( Дни в 7 колонках, недели поделены в теле таблицы)
 
вот принцип (GroupKind.Local):
Код
let
    f=(x)=>[a = Table.Skip(x),
            b = Table.PromoteHeaders(a),
            c = List.Select(Table.ColumnNames(b),(t)=>Text.Contains(t,"Column") or Text.Contains(t,"Столбец")),
            d = Table.RemoveColumns(b,c),
            e = Table.AddIndexColumn(d,"i",1,1),
            f = Table.UnpivotOtherColumns(e,{"i"},"when","what")][f],
    g=(x)=>[a = if Text.Contains(x,"#(lf)") then Text.Split(x,"#(lf)") else {x},
            b = [Что = a{0}?, Поставщик = a{1}?, Сколько = a{2}?]][b],

    from = Excel.CurrentWorkbook(){[Name="TData"]}[Content],
    month=Table.Skip(from),//тут по идее шаг получения месяца
    grp = Table.Group(month,"Column1",{"tmp",(x)=>f(x)},GroupKind.Local,(s,c)=>Number.From(c="Понедельник")),
    cmb = Table.Combine(grp[tmp]),
    rem = Table.RemoveColumns(cmb,{"i"}),
    srt = Table.Sort(rem,{{"when", Order.Ascending}}),
    trnsf = Table.TransformColumns(srt,{"what",g}),
    to = Table.ExpandRecordColumn(trnsf, "what", {"Что", "Поставщик", "Сколько"})
in
    to
а дальше с таким примером самостоятельно - я так и не понял по какому принципу вы собираетесь делить текст
Изменено: buchlotnik - 26.07.2021 07:47:32
Каждому For свой Next
Отмена свертывания двух и более диапазонов
 
Цитата
evgeniygeo написал:
7,5
т.е. вы работаете с 15 столбцами, закономерно, что это пополам не делится - отсюда вопрос что же на самом деле надо и где это в примере?
Каждому For свой Next
Расстановка мест, при равности мест сравнение по другим критериям
 
Цитата
Алексей Рос написал:
Нужна
нужно прочитать правила, вам уже даже ссылку дали, особенно 2.2-2.3
Каждому For свой Next
Расстановка мест, при равности мест сравнение по другим критериям
 
и вам здрасьте, назначьте веса каждому критерию и оценивайте
Каждому For свой Next
Power Query. Превратить календарь с расходами в таблицу ( Дни в 7 колонках, недели поделены в теле таблицы)
 
а что на выходе должно быть?
Каждому For свой Next
При выборе в срезе одного года вывести данные по выбранному году и по предыдущему году, Power Pivot
 
Код
 =
VAR m =
    MAX ( 'Таблица1'[Год] ) - 1
RETURN
    CALCULATE (
        SUM ( 'Таблица1'[Прибыль] );
        ALLEXCEPT (
            'Таблица1';
            'Таблица1'[Дата (Месяц)]
        );
        'Таблица1'[Год] = m
    )
Изменено: buchlotnik - 25.07.2021 15:00:36
Каждому For свой Next
PQ. Вывести 4 последних максимальных значения, Power Qwery. Вывести 4 последних максимальных значения
 
ну по такому примеру:
Код
 = Table.LastN(from,4)[Неделя]
Каждому For свой Next
PQ. Обновление запроса через VBA
 
Код
Sub refreshconnection(connectionname)
    With ActiveWorkbook.Connections(connectionname).OLEDBConnection
        tmp = .BackgroundQuery
        .BackgroundQuery = False 'вот эта строчка ключевая
        .Refresh
        .BackgroundQuery = tmp
    End With
End Sub
код взят отсюда - там вся надстройка с открытым кодом
Изменено: buchlotnik - 24.07.2021 17:55:45
Каждому For свой Next
Продолжение нумерации в столбце из 1-го таблицы на 2-ю, 3-ю...
 
Цитата
rustam khamzin написал:
поставил B11 не сработало
в каком смысле? это формула массива - может в этом дело, а может в объединенных ячейках из-за которых нельзя протянуть на весь столбец - но это уже самостоятельно - пример на паре диапазонов показал
Каждому For свой Next
Критерий поиска для формулы СЧЁТЕСЛИ через ячейку
 
Цитата
Станислав Иванов написал:
в двух словах...
...что делает функция ФИЛЬТРXML
фильтрует XML... :)
справку надо читать не по функции, а по второму аргументу - Xpath
вот это
Код
 "<j><k>"&ПОДСТАВИТЬ($D$1;";";"</k><k>")&"</k></j>"
превращает исходную строку в <j><k>*sw*</k><k>*bw*</k></j>
или может так нагляднее
<j>
   <k>*sw*</k>
   <k>*bw*</k>
</j>

похоже на xml? то-то и оно... а второй аргумент на языке Xpath - //k означает "взять все узлы k" - вот и получаем на выходе массив из всех узлов - что и требовалось  ;)
Изменено: buchlotnik - 23.07.2021 19:34:51
Каждому For свой Next
Критерий поиска для формулы СЧЁТЕСЛИ через ячейку
 
Цитата
Станислав Иванов написал:
то работать не будет?
почему это? любое количество... показывайте в файле, что не работает
Изменено: buchlotnik - 23.07.2021 18:34:10
Каждому For свой Next
Критерий поиска для формулы СЧЁТЕСЛИ через ячейку
 
Станислав Иванов, у нас тут строго с цитированием (см правила) - не нужно копировать сообщения целиком - поправьте, пока модераторы не увидели
Каждому For свой Next
Power Query - обновление данных из добавленных рядом столбцом
 
Цитата
ignat-erema написал:
данные последних 6
точно? не первый и пять последних?
Код
 let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    lst = Table.ColumnNames(from),
    to = Table.SelectColumns(from,{lst{0}}&List.LastN(lst,5))
    //ну или Table.SelectColumns(from,List.LastN(lst,6)) - если и правда 6 последних
in
    to
Изменено: buchlotnik - 23.07.2021 16:49:13
Каждому For свой Next
Критерий поиска для формулы СЧЁТЕСЛИ через ячейку
 
Цитата
Ігор Гончаренко написал:
зачем это нужно?
Игорь, ну тебе жалко? Мало ли - обучить сотрудника писать в одну ячейку получается, а в "сплошной диапазон" - уже сложно  :)  я бы все искомые пихал в столбец Таблицы и не парился, но "dura TZ sed TZ" ...
Каждому For свой Next
Критерий поиска для формулы СЧЁТЕСЛИ через ячейку
 
Цитата
Станислав Иванов написал:
задавалось ячейкой
вариант -  небольшой танец с бубном:
Код
=ЕСЛИ(СУММ(СЧЁТЕСЛИ(A1;ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ($D$1;";";"</i><i>")&"</i></j>";"//i")));"Да";"Нет")
Каждому For свой Next
Вставка определенного текста в выбранную ячейку горячими клавишами
 
на alt не повесить, на ctrl можно - курите OnKey и засовывайте в конкретный файл или надстройку
Изменено: buchlotnik - 23.07.2021 14:52:58
Каждому For свой Next
Перевод значения ячейки в шестнадцатеричный формат и обратно
 
для 2016 могу предложить только VBA
Код
Function TxtToHex(txt)
    s = ""
    For i = 1 To Len(txt)
        s = s & Hex(Asc(Mid(txt, i)))
    Next
    TxtToHex = s
End Function

Function HexToTxt(hx)
    s = ""
    For i = 1 To Len(hx) Step 2
        s = s & Chr(CInt("&H" & Mid(hx, i, 2)))
    Next
    HexToTxt = s
End Function
Каждому For свой Next
Перевод значения ячейки в шестнадцатеричный формат и обратно
 
нет, СЦЕП() - это СЦЕП(), функция из 2019 версии
СЦЕПИТЬ() - это старая функция и она как раз не понимает массивы, берет только первое
Каждому For свой Next
Перевод значения ячейки в шестнадцатеричный формат и обратно
 
Цитата
Mike написал:
почему-то
Цитата
buchlotnik написал:
СЦЕП() - начиная с 2019
Каждому For свой Next
Перевод значения ячейки в шестнадцатеричный формат и обратно
 
Цитата
Mike написал:
не прокатывает
и в чём сюрприз?
Цитата
buchlotnik написал:
если экселька старше 2019, думаю придется UDF писать
Каждому For свой Next
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 126 След.
Наверх