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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 64 След.
Как в PQ изменить формат даты с дата/месяц/год на месяц/год?
 
Цитата
Borrusale написал:
изменить формат даты
никак, разве что можно превратить в текст
Код
= Table.TransformColumns(#"Измененный тип",{"дата", each Text.From(Date.Month(_))&"/"&Text.From(Date.Year(_))})
Каждому For свой Next
Разбивка ячейки на столбцы PQ, Помогите с обработкой для PQ
 
Цитата
phelex написал:
рассказать об использованных структурах
о каких структурах речь? в смысле что непонятно?
Каждому For свой Next
VBA замена мин значения в каждом столбце на макс значение в этом же столбце без массива
 
Цитата
Артем Кузнецов написал:
фишка с процентами вместо типа данных
что значит вместо? Курите матчасть
Цитата
Артем Кузнецов написал:
без всяких там c + cc - 1 и все работает,
у вас же в примере диапазон I15:K19 - там работает?
Изменено: buchlotnik - 9 Авг 2020 09:06:48
Каждому For свой Next
VBA замена мин значения в каждом столбце на макс значение в этом же столбце без массива
 
Цитата
Артем Кузнецов написал:
лучше делать Long
но у вас-то Variant
Каждому For свой Next
VBA замена мин значения в каждом столбце на макс значение в этом же столбце без массива
 
ну раз только циклами, да без массивов...
Код
Sub minmax()
    Dim r%, c%, rr%, cc%, i%, j%, mn%, mx%
    r = Selection.Row
    c = Selection.Column
    rr = Selection.Rows.Count
    cc = Selection.Columns.Count
    For i = c To c + cc - 1
        mn = Cells(r, i): mx = Cells(r, i)
        For j = r To r + rr - 1
            If Cells(j, i) > mx Then mx = Cells(j, i)
            If Cells(j, i) < mn Then mn = Cells(j, i)
        Next j
        For j = r To r + rr - 1
            If Cells(j, i) = mn Then Cells(j, i) = mx
        Next j
    Next i
End Sub

Пы.Сы. а что в практикуме сказано про тип данных в переменной k?
Код
Dim k, l As Integer
Изменено: buchlotnik - 9 Авг 2020 02:13:05
Каждому For свой Next
Разбивка ячейки на столбцы PQ, Помогите с обработкой для PQ
 
Не элегантно, но лучше  как-то не придумал
Изменено: buchlotnik - 9 Авг 2020 00:37:04
Каждому For свой Next
Разбивка ячейки на столбцы PQ, Помогите с обработкой для PQ
 
Андрей VG, приветствую, ну в софистику на тему "простоты" вдаваться не будем  ;)  
Первый столбец поделил (вспомнился хороший образчик кода):
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    lst = List.Transform(List.Select(List.Zip({Table.ColumnNames(from),Record.ToList(from{0})}),each _{1}<>null),each _{0}),
    lst1={"Наименование", "ИНН", "КПП", "Адрес"},
    select=Table.SelectColumns(from,lst),
    f=(t)=>Record.FromList( List.Accumulate(List.Transform(List.Skip(lst1,1),each ", "&_&": "),{t}, 
                                (x, y) =>[  a = List.Transform(x, each Text.Split(_, y)),
                                        b = List.Combine(a),
                                        c = List.Select(b, each _<>"" and _<>" ")][c]),lst1),
    tbl = Table.TransformColumns(select,{"Покупатель",f}),
    to = Table.ExpandRecordColumn(tbl, "Покупатель", lst1)
in
    to

по второму ждем
Цитата
Андрей VG написал:
ой, я вот такой момент упустил, а вот ещё такой вариант
Изменено: buchlotnik - 8 Авг 2020 10:06:05
Каждому For свой Next
Разбивка ячейки на столбцы PQ, Помогите с обработкой для PQ
 
phelex, подскажите, поле "Наименование продукции" - в самом наименовании возможны пробелы, небуквенные символы?
Цитата
mtts54 написал:
задачка простая,
ну-ну, продемонстрировали бы тогда на столбце "Наименование продукции"
Каждому For свой Next
Изменение формы заливки ячеек
 
оранжевый будет как-то так, а вообще тема не про это, курите RGB
см где комментарии
UPD - немножко развил тему формы (см. комменты)
Изменено: buchlotnik - 6 Авг 2020 00:38:47
Каждому For свой Next
Пустая ячейка РАВНА 0! Как решить проблему
 
Курите ЕЧИСЛО(), ЕПУСТО()
Изменено: buchlotnik - 5 Авг 2020 18:41:44
Каждому For свой Next
Отделить номер дома от названия улицы
 
Код
=СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A1;" ";ПОВТОР(" ";99));99))
но не будет работать, если номера дома вообще нет
Каждому For свой Next
Товар Без Движения рассчитать в Power Query
 
дык фильтраните данные и всё
когда ещё не проснулся
или так
проснулся
Изменено: buchlotnik - 5 Авг 2020 10:36:13
Каждому For свой Next
Изменение формы заливки ячеек
 
так нужно?
Сам принцип, быстродействием не занимался
И залить градиентом, чтоб к УФ не привязываться
Изменено: buchlotnik - 5 Авг 2020 08:36:22
Каждому For свой Next
[ Закрыто] Объединенные ячейки
 
еще макросом можно
Каждому For свой Next
Товар Без Движения рассчитать в Power Query
 
Александр L, не до конца ясна задача, можете пример показать что нужно?
Каждому For свой Next
Товар Без Движения рассчитать в Power Query
 
ну это... какой пример, такой и ответ  :)
количества могут повторяться, в первоначальном файле это не было.
Лечение:
Код
let
    from = Excel.CurrentWorkbook(){[Name="Массив"]}[Content],
    f=(t)=>List.Max(Table.Group(t,"Кол-во",{"tmp", each [#"Без движения" = Table.RowCount(_)]&Table.Max(_,"Дата")},GroupKind.Local)[tmp],null,each _[Дата]),
    group = Table.Group(from, "SKU", {"tmp", each f(_)}),
    to = Table.ExpandRecordColumn(group, "tmp", {"Кол-во", "Стоимость", "Без движения"})
in
    to
Изменено: buchlotnik - 4 Авг 2020 17:51:26
Каждому For свой Next
Товар Без Движения рассчитать в Power Query
 
файла не вижу
Каждому For свой Next
Как в сводной таблице сделать, чтобы столбец не учитывался при отборе?
 
что вы подразумеваете под отбором? где файл с примером того, что требуется?
Каждому For свой Next
сумма произведений по дате и условию
 
Код
=СУММПРОИЗВ((A2:A6=D2)*ЕСЛИОШИБКА(ПОИСК("ябло";C2:C6)^0;0);B2:B6)
Каждому For свой Next
сумма произведений по дате и условию
 
Код
=СУММПРОИЗВ((A2:A6=D2)*(ЛЕВСИМВ(C2:C6;4)="ябло");B2:B6)
Каждому For свой Next
Сравнение значения со списком и подставление значения из списка, работа со списками
 
и вам здрасьте
Код
=ВПР(B3;$F$3:$G$20;2;)
Каждому For свой Next
Удаление из ячейки определенного выражения, надо из текста удалять перечень значений
 
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(A2;ПРОСМОТР(;-ПОИСК($I$2:$I$7;A2);$I$2:$I$7);""))
Каждому For свой Next
Отобразить ближайшее значение к другому в указанном диапазоне
 
Андрей VG, если речь о диапазоне O7:T7 то там формула
Код
=ABS(O9-$M$7)=МИН(ABS($O$4:$T$4-$M$2))
т.е искомая разница берется от ячейки M7 а сравнивается с разницей с M2
Каждому For свой Next
Отобразить ближайшее значение к другому в указанном диапазоне
 
Цитата
oleg9911 написал:
Помоему, не работает
Цитата
Андрей VG написал:
Можете привести пример?
покажите файл в котором не работает
Каждому For свой Next
Формула для нахождения суммы цифр в столбце до пустой строки.
 
Код
=ЕСЛИ(ЕТЕКСТ(B1);СУММ(ИНДЕКС(C:C;МАКС(ЕСЛИ(ЕТЕКСТ($A$1:A1);СТРОКА($A$1:A1);""))):ИНДЕКС(C:C;МИН(ЕСЛИ(ЕПУСТО(B2:$B$23);СТРОКА(B2:$B$23);""))));"")
Каждому For свой Next
Фвтоматический подбор параметра при изменении ячейки на листе
 
Цитата
Кянан Алыев написал:
Имеем след. функцию
это не функция
вам похоже требуется что-то вроде
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Range("B16").GoalSeek Goal:=[A1], ChangingCell:=Range("B11")
    End If
End Sub


тема: автоматический подбор параметра при изменении ячейки на листе
Каждому For свой Next
Отобразить ближайшее значение к другому в указанном диапазоне
 
Код
=ABS(P4-$M$2)=МИН(ABS($O$4:$T$4-$M$2))
Каждому For свой Next
Игнор пустых (null) ячеек при вычислениях (Power Query)
 
Цитата
Митягин Александр написал:
Операция вычитание от null - 5 = дает null
это не проблема и не ошибка - так работает PQ в соответствии со своей спецификацией. Если хотите получить осмысленный ответ - покажите свой файл
Каждому For свой Next
Подсчёт количества итераций на листе.
 
Цитата
Ilya66 написал:
если для вычислений вводятся числа с точностью, скажем, до 5-го знака, то "шум" в каком-нибудь шестнадцатом разряде, образующийся при вычислениях есть мусор, и должен по умолчанию отбрасываться.
а если вводятся числа с точностью до целого, то по вашей логике 2/3=1 ибо остальное есть мусор
Цитата
Ilya66 написал:
Просто по обычной логике
:)
Каждому For свой Next
Календарь в пользовательской форме с выбором нескольких дат
 
название темы
Цитата
Voltz написал:
Календарь в пользовательской форме с выбором нескольких дат
конкретно озвученная проблема
Цитата
Voltz написал:
сделал для Textbox3, но почему то при выборе даты для него , дата меняется и в Textbox1. Подскажите что надо сделать.
она не решена? причём тут время? чего непонятного в
Цитата
buchlotnik написал:
делайте по аналогии
?
Каждому For свой Next
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 64 След.
Наверх