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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 397 След.
Power BI - количество повторений в столбце, Необходимо отфильтровать значения, которые повторяются более 1-го раза
 
Доброе время суток.
Вариант
Код
=IF(CALCULATE(COUNTROWS('Есть таблица'); ALLEXCEPT('Есть таблица'; 'Есть таблица'[Имя]; 'Есть таблица'[Еда])) > 1; "Да"; "Нет")
Наиболее длинная подстрока
 
Цитата
Jack Famous написал:
быстрее
Не только. Для строк
abcdefuqwerno
abcdefiqwerpo
fooqwerpo
vesqwerker
MainSubString возвращает правильно qwer, а вот Longest только e :)
dax суммировать только уникальные значения
 
Доброе время суток.
Вариант.
Код
Как-то так:=SUMX(SUMMARIZE('есть таблица'; 'есть таблица'[№ рейса]; 'есть таблица'[стоимость перевозки]); 'есть таблица'[стоимость перевозки])
Поиск консенсусной последовательности
 
Доброе время суток
surkenny, коллега, предполагаю, что имелось ввиду
Код
let
    source = Excel.CurrentWorkbook(){[Name="data"]}[Content],
    toList = List.Transform(Table.ToList(source), Text.ToList),
    toZip = List.Zip(toList),
    chars = List.Transform(toZip, each [
        toTable = Table.FromColumns({_}, {"f"}),
        defineCount = Table.Group(toTable, {"f"}, {"c", Table.RowCount}),
        defineMax = Table.Max(defineCount, "c")

    ][defineMax][f]),
    return = Text.Combine(chars)
in
    return
Цикл Excel / Google Sheets
 
Ну, можно и скриптовой функцией рабочего листа, на входе два диапазона: для категорий и подкатегорий, для всего остального, что нужно повторять
Код
function getCartesianTable(firstRows, secondRows) {
  return firstRows.reduce(function (items, firstRow) {
    secondRows.forEach(function (secondRow) {
      items.push(firstRow.concat(secondRow));
    });
    return items;
  }, []);
} // getCartesianTable

Вызов на рабочем листе
Код
=getCartesianTable(A2:B7; D2:F4)
Цикл Excel / Google Sheets
 
Цитата
doober написал:
Примера таблицы нет
Не, ну, я к тому, что хотя бы, исходя из текущего
Код
var statyaIpodstatya = sh.getRange('A1').getDataRegion().getValues()

применить, к чему весь столбец A-то фильтровать?
Изменено: Андрей VG - 11.11.2023 20:36:25
Цикл Excel / Google Sheets
 
Доброе время суток.
Цитата
doober написал:
return row[0]
А что если под этой табличкой будет ещё одна очень нужная табличка и даже не одна :)
Power Query: изменение формата даты, Power Query: изменение формата даты
 
Цитата
Giorgio13 написал:
а данную команду можно применить массово к нескольким столбцам?
Это не команда, а пример, как преобразовать физическую дату время в текст требуемого формата. Соответственно, если нужно прописать для нескольких столбцов, то воспользуйтесь Table.TransformColumns. А вот что да как делать со сферическим конём в вакууме, боюсь, знает только ChatGPT или YandexGPT. Говорят, что уже вот-вот почти совсем заменят им программистов :)
Изменено: Андрей VG - 09.11.2023 17:39:35
Power Query: изменение формата даты, Power Query: изменение формата даты
 
Доброе время суток.
Цитата
Giorgio13 написал:
столбец с датами в формате yyyy-mm-dd hh:mm:ss UTC.
Ошибочное утверждение - это текст.
Цитата
Giorgio13 написал:
Если преобразовывать используя локаль
Получая тип данных Date.Time
Цитата
Giorgio13 написал:
формат даты меняется на российский dd-mm-yyyy hh:mm:ss.
Что мешает снова преобразовать в текст?
Код
let
    Источник = DateTime.ToText(DateTime.FixedLocalNow(), "yyyy-MM-dd HH:mm:ss")

in
    Источник
Power Query поиск и подстановка данных из одной таблицы в другую по условию., поиск и подставновка в Power Query
 
Вариант
Код
let
    source = Excel.CurrentWorkbook(){[Name="Дано"]}[Content],
    selector = List.Buffer(Table.ToRecords(Excel.CurrentWorkbook(){[Name="Условия"]}[Content])),
    result = Table.AddColumn(source, "Выбор", (rec) =>
    [
        values = List.Accumulate(selector, {null, null}, (state, current) => 
        if Text.Contains(rec[Наименование], current[Наименование]) then
            List.ReplaceRange(state, current[Выбор], 1, {current[Выбор]})
        else
            state
        ),
        result = Record.FromList(values, {"Выбор0", "Выбор1"})
    ][result]),
    return = Table.ExpandRecordColumn(result, "Выбор", {"Выбор0", "Выбор1"})
in
    return
Power Query поиск и подстановка данных из одной таблицы в другую по условию., поиск и подставновка в Power Query
 
Цитата
Альбертус написал:
Можно ли адаптировать решение под такое условие?
Можно, вариант.
Код
let
    source = Excel.CurrentWorkbook(){[Name="Дано"]}[Content],
    selector = List.Buffer(Table.ToRecords(Excel.CurrentWorkbook(){[Name="Условия"]}[Content])),
    result = Table.AddColumn(source, "Выбор", (rec) =>
    [
        value = List.Accumulate(selector, -100500, (state, current) => 
        if Text.Contains(rec[Наименование], current[Наименование]) then
            if current[Выбор] > state then current[Выбор] else state
        else
            state
        ),
        result = if value = -100500 then null else value
    ][result])
in
    result

Цитата
Альбертус написал:
отписал Вам в личку…
Не стоит, не читаю.
Power Query поиск и подстановка данных из одной таблицы в другую по условию., поиск и подставновка в Power Query
 
Доброе время суток.
Вариант.
Код
let
    source = Excel.CurrentWorkbook(){[Name="Дано"]}[Content],
    splitToWords = Table.AddColumn(source, "word", each Text.Split([Наименование], " ")),
    expandList = Table.ExpandListColumn(splitToWords, "word"),
    selector = Table.PrefixColumns(Excel.CurrentWorkbook(){[Name="Условия"]}[Content], "f"),
    join = Table.Join(expandList, {"word"}, selector, {"f.Наименование"}, JoinKind.LeftOuter),
    result = Table.Group(join, {"Наименование"}, {{"Выбор", each List.Max(_[f.Выбор])}})
in
    result
[ Закрыто] PowerQuery, =Text.Remove
 
Доброе время суток.
Цитата
KrissTinka написал:
не понимаю почему формула выдает ошибку
У вас две ошибки
1.
Цитата
{"1".."1000"}
такой метод не работает для генерации последовательности "1", "2".."999", "1000", только для односимвольных значений начального и конечного элемента списка, например {"0".."z"} будет работать. Следовательно, нужно воспользоваться List.Transform( {1..1000} для преобразования числового списка в текстовый.
2. Text.Remove вторым аргументом требует список односимвольных значений, а "гр" к ним не относится. Следовательно, нужно воспользоваться другой функцией :)
Как седлать SQL запрос из двух таблиц?
 
Доброе время суток.
Вкладка "Данные", Группа "Получение внешних данных", Кнопка "Из других источников", Пункт "Из Microsoft Query"
How to create a Microsoft Query in Excel (Excel Query).
Транслировать типы данных из таблицы-образца Power Query M
 
Цитата
surkenny написал:
вместо Record.Field - Record.FieldOrDefault ( commonColumnTypeDefinition, _, type any )
Согласен, спасибо :)
Транслировать типы данных из таблицы-образца Power Query M
 
Доброе время суток.
Коллеги, подскажите, пожалуйста, а в чём принципиальный смысл задавать определение имён столбцов и их типов как список? В чём профит? Чем так хуже?
Код
let
    commonColumnTypeDefinition = [
        #"ИНН" = Int64.Type,
        #"ЮЛ" = type text,
        #"Name" = type text,
        #"Дата" = type datetime,
        #"Текст3" = Int64.Type,
        #"Количество" = type number,
        #"Сумма" = type number 
    ],
    filter = { "ИНН", "ЮЛ", "Name" },
    selectedColumnTypes = List.Transform(filter, each {_, Record.Field(commonColumnTypeDefinition, _)})
in
    selectedColumnTypes
Получить слово из строки, регуоярные выражения
 
Доброе время суток.
Цитата
l-lisa написал:
а в Looker
Второй вариант вполне себе описан в документации  :)
Код
REGEXP_EXTRACT( URL , '^https://[^/]+/([^/]+)/' )

Соответственно первый, если второй верен.
Код
REGEXP_EXTRACT( URL , '^https://[^\.]+\.([^\.]+)' )
idMSO для элементов Backstage в новых версиях Excel (2019, 2021)
 
Доброе время суток.
Может их и больше.
Например, тут находятся такие: OfficeExtensionsGetAddinsButtonOnBackstageBelowOpenDivider, OfficeExtensionsGetAddinsButtonOnBackstageBelowPrintDivider, OfficeExtensionsGetAddinsButtonOnBackstageBelowOptionsDivide­r (может быть).
А тут - OfficeExtensionsGetAddinsButtonOnBackstage
API функция SHMessageBoxCheckA, Как ею пользоваться?
 
Доброе время суток.
Сработавший в 2016 32бит вариант
Код
Private Declare Function SHMessageBoxCheckA Lib "shlwapi" (ByVal hWnd As Long, _
    ByVal lpszText As String, ByVal lpszTitle As String, ByVal dwType As VbMsgBoxStyle, _
    ByVal iDefault As Long, ByVal lpszId As String) As Long
 
Sub testMSGCHK()
    Dim message As Long
    message = SHMessageBoxCheckA(Application.hWnd, "Текст сообщения", "Заголовок окна", vbOKCancel Or vbInformation, vbOK, "{d9118bc3-8a61-4398-bfbc-b02102c77e8a}")
    Debug.Print message
End Sub
Рисование или подобие рисования в userform, На VBA
 
Доброе время суток.
Цитата
Максим Белич написал:
а только идею
Ну, можно пойти путём использования Win API, если в лоб - прямое рисование. Если обходной путь, но опять же через WinAPI Drawing on userform. Но лучше
Цитата
Sanja написал:
Может подойдет Диаграмма С Областями?
Макрос для двусторонней печати v2 =)
 
Доброе время суток.
А не проще ли создать копию принтера, настроить эту копию на двустороннюю печать и печатать именно через этот принтер?
Excel 2016 + PQ и проблема повышения заголовков с типом данных "Дата"
 
Цитата
Andrew Rubanov написал:
сразу ругается на неподдерживаемую функцию
Я проверял гипотезу именно в 2016, следовательно
Цитата
Alien Sphinx написал:
Для начала запустите обновление вашей версии офиса 2016
Ну, или следуйте предложению
Цитата
Alien Sphinx написал:
В качестве workaround:
Изменено: Андрей VG - 22.08.2023 13:17:02
Импорт SQL по фильтру, Импортировать с помощью запроса SQL по фильтру из ячейки
 
Цитата
Excelopfer написал:
вставить сюда ссылку на ячейку
Дайте ячейке имя, например, ссылка_на_ячейку, и получаете её значение
Код
Excel.CurrentWorkbook(){[Name="ссылка_на_ячейку"]}[Content]{0}[Column1]

Далее, используете его для формирования текста SQL запроса.
Можете поразвлекаться с запросами параметризированными SQL запросами.
Импорт SQL по фильтру, Импортировать с помощью запроса SQL по фильтру из ячейки
 
Доброе время суток
Цитата
Excelopfer написал:
только данные за 2023 год
Условный оператор WHERE
Excel 2016 + PQ и проблема повышения заголовков с типом данных "Дата"
 
Доброе время суток.
Цитата
Vik_tor написал:
воспроизвести не могу, и примера нет.
Предположу, коллега, что ТС убрал , [PromoteAllScalars=true] из функции Table.PromoteHeaders
Получение исходного кода вебстраницы с авторизованного сайта
 
Доброе время суток.
Цитата
vilambo написал:
Подскажите, может заранее где то в браузере надо авторизоваться. чтобы получить данные или прописать где-то в макросе?
Нет. Объект класса MSXML2.XMLHTTP ничего не знает о существующих браузерах. Например, поизучайте.
Цитата

Basic Authentication in VBA
Код
user = "someusername"
password = "somepassword"
xmlhttp.setRequestHeader "Authorization", "Basic " + Base64Encode(user + ":" + password)
Поиск первой наступающей даты по ключевым словам в массиве
 
Доброе время суток.
Вариант на Power Query.
вывод данных в PQ по ближайшему значению, Необходимо создать условный столбец, который будет выводит данные по ближайшему значению исходника
 
Цитата
Alien Sphinx написал:
Сортируем список с фактами и урезаем справочник при каждом шаге:
И получаем самый медленный вариант из трёх. На миллионе строк факта, 100 строк эталона: первый минута, мой 45 секунд, третий, после двух минут прибил. :)  Лучше, полагаю, копать куда-то сюда. Вроде пока жалоб не было.
вывод данных в PQ по ближайшему значению, Необходимо создать условный столбец, который будет выводит данные по ближайшему значению исходника
 
Доброе время суток.
Код
let
    baseList = List.Buffer(Excel.CurrentWorkbook(){[Name="Эталон"]}[Content][Мощность Эталон]),
    getNearest = (x) => List.Min(baseList, null, (a, b) => Number.Abs(a - x) - Number.Abs(b - x)),
    data = Excel.CurrentWorkbook(){[Name="факт"]}[Content],
    result = Table.AddColumn(data, "Мощность Эталон", each getNearest(_[Мощность факт]))
in
    result
VBA. Поиск самого часто встречающегося слова в умной таблице
 
Михаил, спасибо.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 397 След.
Наверх