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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 79 След.
Записать в Excel формулу для решения предела (лимита)
 
Елена Авдонина, что вы подразумеваете под решением в данном случае? это отношение стремится к бесконечности (точнее к n, которое стремится к бесконечности)
Изменено: buchlotnik - 28 сен 2020 01:17:14
Каждому For свой Next
Условный столбец в power query или power pivot, 2 условия
 
Цитата
Alennka написал:
можно ли в условном столбце в power query прописать 2 условия?
можно
Цитата
Alennka написал:
Причем так,чтобы в других строках было  прописано толтко одно условие
без файла-примера однозначного ответа нет
Каждому For свой Next
среднее значение трёх непустых ячеек
 
Цитата
Ігор Гончаренко написал:
что за мистика?
Мдя, к хорошему быстро привыкаешь - не пояснил, что моя формула работает только в свежей эксельке.
Мистика состоит в том, что в 365-м офисе появились динамические массивы, а вместе с ними возможность скармливать ИНДЕКСу (и не только) массив значений, в старых версиях, естественно, ИНДЕКС() хватает только первое значение из этого массива и имеем то, что имеем.
Изменено: buchlotnik - 27 сен 2020 20:50:32
Каждому For свой Next
среднее значение трёх непустых ячеек
 
Код
=СРЗНАЧ(ИНДЕКС(A3:M3;НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(C3:M3);СТОЛБЕЦ(C3:M3);"");СТОЛБЕЦ(A1:D1))))
Каждому For свой Next
О сравнении текста и числа в VBA
 
Цитата
kefirko написал:
при сравнении берется не формула, а значение ячейки
если бы WorksheetFunction.CountIf брала значения, тоже была бы фигня, просто функции листа делают автоматическое преобразование типов
Каждому For свой Next
О сравнении текста и числа в VBA
 
Цитата
kefirko написал:
В ячейке R3C5 живёт "" (пустая строка)
не-а, формула там живёт, а не пустая строка
Каждому For свой Next
Power Query. Расширяющийся диапазон подсчёта повтора значения в столбце.
 
группировкой:
Код
let
    from = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    index = Table.AddIndexColumn(from, "i", 1, 1, Int64.Type),
    f=(t)=>Table.TransformColumns(Table.AddIndexColumn(t,"uniq",1,1),{"uniq", each if _=1 then 1 else 0}),
    group = Table.Group(index, "Key", {"tmp", each f(_)}),
    tbl = Table.Combine(group[tmp]),
    to = Table.RemoveColumns(Table.Sort(tbl,{"i", Order.Descending}),"i")
in
    to
Цитата
Deflector написал:
это не мой метод
почему?
Код
let
    from = List.Buffer(Excel.CurrentWorkbook(){[Name="Table1"]}[Content][Key]),
    to = List.Generate( ()=>[i=0,p=from{i},s=1],
                        each [i]<List.Count(from),
                        each [i=[i]+1,p=from{i},s=if p=[p] then 0 else 1],
                        each [s])
in
   to
Цитата
Deflector написал:
было бы еще хорошо и сумму по уникальному ключу считать
да, неплохо, а какое это имеет отношение к теме?
Изменено: buchlotnik - 26 сен 2020 12:50:01
Каждому For свой Next
Power Query. Расширяющийся диапазон подсчёта повтора значения в столбце.
 
Цитата
Deflector написал:
Как можно
например, через List.Generate - но как уже было сказано - так гораздо медленнее группировки
Изменено: buchlotnik - 26 сен 2020 00:20:16
Каждому For свой Next
Назначение фигурам - таблиц-диапазонов на вылетающей форме
 
Цитата
plank1433 написал:
читаем 38-е
возможно вы удивитесь - еще и #39 есть, безответное
Каждому For свой Next
Подсчёт суммы функцией DAX в отдельном столбце по условию
 
а почему 17131, 17167 же, не?
Код
Столбец =
VAR g = [Column1]
VAR s = [Column2]
RETURN
    SUMX (
        FILTER (
            'Лист1',
            'Лист1'[Column1] = g
                && 'Лист1'[Column2] = s
        ),
        [Column3]
    )
Код
Столбец 2 =
CALCULATE (
    SUM ( [Column3] ),
    ALLEXCEPT (
        'Лист1',
        'Лист1'[Column1],
        'Лист1'[Column2]
    )
)
Изменено: buchlotnik - 24 сен 2020 12:14:09
Каждому For свой Next
Объединение таблиц по заголовкам
 
может тогда вобще достаточно чего-то вроде
Код
Table.Combine(Table.SelectRows(Excel.CurrentWorkbook(), each Text.Contains([Name], "Таблица"))[Content])
Каждому For свой Next
Объединение таблиц по заголовкам
 
Цитата
Ranker Dark написал:
Вот это самое то!
неожиданно, сколько таблиц в реальности? может дописать сбор по списку?
Каждому For свой Next
Объединение таблиц по заголовкам
 
Цитата
Ranker Dark написал:
при повторном нажатии не обновляется, а повторно заполняется
мдя? трагедия просто...
Код
 Sub Макрос1()
    [E13].CurrentRegion.Clear
    Range("Таблица1[[#Headers]]").Copy [E13]
    Range("Таблица1").Copy [E13].Offset(1, 0)
    Range("Таблица2").Copy [E13].End(xlDown).Offset(1, 0)
End Sub
Каждому For свой Next
Объединение таблиц по заголовкам
 
ну и PQ:
Код
let
    from0 = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    from1= Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    to = Table.Combine({from0,from1})
in
    to
а лучше так
Код
let
    f=(t)=> Excel.CurrentWorkbook(){[Name=t]}[Content],
    to = Table.Combine({f("Таблица1"),f("Таблица2")})
in
    to
Изменено: buchlotnik - 23 сен 2020 15:15:41
Каждому For свой Next
Объединение таблиц по заголовкам
 
Цитата
Ranker Dark написал:
если я делаю из их таблицу
решается простейшим
Код
Sub Макрос1()
    Range("Таблица1[[#Headers]]").Copy [E13]
    Range("Таблица1").Copy [E13].Offset(1, 0)
    Range("Таблица2").Copy [E13].End(xlDown).Offset(1, 0)
End Sub
Каждому For свой Next
Объединение таблиц по заголовкам
 
Ranker Dark, т.е. у вас на самом деле не таблицы, а просто заполненные ячейки в определенных местах листа?
Каждому For свой Next
Объединение таблиц по заголовкам
 
Цитата
Ranker Dark написал:
это в том случае, если таблицы расположены на разных листах
ну не знаю - у меня работает:
Каждому For свой Next
Пробелы, с которыми не работают СЖПРОБЕЛЫ и Trim
 
там символы с кодом 9, решается
Код
=ПЕЧСИМВ(A1)
или
Код
=ПОДСТАВИТЬ(A1;СИМВОЛ(9);"")
Изменено: buchlotnik - 23 сен 2020 12:40:37
Каждому For свой Next
Хронология в Excel
 
Цитата
Ranker Dark написал:
первый человек, который ответил
первый пример - первый ответ  :)
Каждому For свой Next
Циклическая нумерация: после каждой пустой строки начинать заново
 
Код
=ЕСЛИ(ЕПУСТО(C4);"";ЕСЛИ(ЕПУСТО(C3)+(C3="Данные");1;D3+1))
Каждому For свой Next
Power Query - Добавить столбец с названием листа и путём до него, Power Query
 
Цитата
PooHkrd написал:
Подробности  тут .
не-а, подробности тут  :D  :D  :D
Каждому For свой Next
Power Query - Добавить столбец с названием листа и путём до него, Power Query
 
показывал же уже, картинка в посте ниже

пы.сы. за это время уже бы десять раз пример могли сделать
Изменено: buchlotnik - 22 сен 2020 12:54:46
Каждому For свой Next
Сравнение 2 диапазонов времени и дат
 
Мила, сейчас придет модератор и скажет что-то вроде "вернитесь в ваши сообщения и удалите то, что вы ошибочно считаете цитатой"
И я с ним полностью соглашусь - зачем копировать сообщения, если и так понятно о чем речь
Каждому For свой Next
Сравнение 2 диапазонов времени и дат
 
тогда на 12 строке и объясните как период с 2:10 по 2:20 01.09.2020 пересекается с периодом с 23:00 01.09.2020 по 07:00 02.09.2020
строка 17 аналогично
Изменено: buchlotnik - 22 сен 2020 07:49:58
Каждому For свой Next
Сравнение 2 диапазонов времени и дат
 
может так...
Код
 =ЕСЛИ(C2;ЕСЛИ(ИЛИ(И(A2+D2<C2+G2;A2+E2+(D2>E2)<C2+G2);И(A2+D2>C2+H2+(G2>H2);A2+E2+(D2>E2)>C2+H2+(G2>H2)));"не ";"")&"своевременно";"нет даты и времени приемки")
в новой эксельке чуть прозрачнее
Код
 =LET(a;A2+D2;b;A2+E2+(D2>E2);c;C2+G2;d;C2+H2+(G2>H2);ЕСЛИ(C2;ЕСЛИ(ИЛИ(И(a<c;b<c);И(a>d;b>d));"не ";"")&"своевременно";"нет даты и времени приемки"))
Изменено: buchlotnik - 21 сен 2020 22:02:03
Каждому For свой Next
[Power Query/DAX] Реализовать подсчет значений в определенном диапазоне внутри таблицы
 
до кучи
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    f=(r)=>List.Accumulate(List.Range(Record.FieldValues(r),2,12),0,(s,c)=>if c > 0.15 then s+1 else s),
    to = Table.AddColumn(from, "count", f)
in
    to
Каждому For свой Next
Матрица из заданного набора цифр с контролем уникальности по строкам
 
Jack Famous, не, ну хоть немного рандомайза-то надо оставить  ;)
Каждому For свой Next
PQ долгое выполнение процедуры удаления дубликатов при консолидации
 
а почему не
Код
qОбщаяТаблица=Table.Buffer(ваш_код) //забуферить, чтобы не было повторного пересчета

Unique =List.Distinct(qОбщаяТаблица[Город]) //на списках быстрее чем на таблицах
?
Изменено: buchlotnik - 21 сен 2020 16:00:16
Каждому For свой Next
Содержимое ячейки в название листа
 
допустим
Цитата
Fox54 написал:
ячейка в которую вводится название компании.
это A1, тогда в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then Me.Name = "Акт сверки " & [A1]
End Sub
Изменено: buchlotnik - 21 сен 2020 13:14:49
Каждому For свой Next
Power Query - Добавить столбец с названием листа запроса, Power Query
 
от настроения - сейчас вот вполне благостное  ;)
Каждому For свой Next
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 79 След.
Наверх