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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 398 След.
Повер Квери надо разделить столбец на строки несколько условий, разделить столбец на строки НЕ учитывая некоторые знаки, англ и рус букву прописную
 
Доброе время суток.
По первой части, ну, как-бы можно регулярными выражениями поразделять и вернуть. Зависит от того, насколько вы знаете JS.
Регулярка где-то такая
Код
var reg = /([A-ZА-Я]?\d{5}(?:-\d{2})?(?: [A-ZА-Я]?\d{5}(?:-\d{2})?)?)(.+?)(?=[A-ZА-Я]?\d{5}(?:-\d{2})?|$)/g;
Код по ссылке до адаптировать, ну, или покумекать, как разделять уже найденную подстроку "36163-99 32168-99 Вакцинация против гепатита В, " средствами Power Query, хотя кодом в JS это было бы проще.
По второму листу "задача2". Один вопрос - одна тема.
Автоматическое создание файла из Excel в PDF
 
Доброе время суток.
Бахтиёр, коллега, вы предполагаете, что у ТС совсем древний Excel? Вроде как минимум с 2016 возможно слепить что-нибудь
Код
Sub Macro1()
    Range("A1:B5").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Temp\Part1.pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
И выделять ничего не надо.
Удаление пустых подкаталогов в родительском каталоге., Очистка каталога от подкаталогов без файлов
 
Доброе время суток
Вариант
Код
Public Sub removeEmptyFolders()
    Const startPath = "C:\Temp\ТЕСТ_ "
    Dim fso As Object, startFolder As Object, startIsEmpty As Boolean
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set startFolder = fso.GetFolder(startPath)
    startIsEmpty = recursiveDeleteFolder(startFolder)
End Sub

Private Function recursiveDeleteFolder(folder) As Boolean
    Dim folderCollection As Object, nextFolder As Object
    Dim emptyFolderCollection As New Collection
    Dim thisIsEmpty As Boolean, nextIsEmpty As Boolean
    
    Set folderCollection = folder.SubFolders
    thisIsEmpty = (folder.Files.Count = 0)
    If (folderCollection.Count > 0) Then
        For Each nextFolder In folderCollection
            nextIsEmpty = recursiveDeleteFolder(nextFolder)
            thisIsEmpty = thisIsEmpty And nextIsEmpty
            If nextIsEmpty Then emptyFolderCollection.Add nextFolder
        Next
        If Not thisIsEmpty Then
            For Each nextFolder In emptyFolderCollection
                nextFolder.Delete
            Next
        End If
    End If
    recursiveDeleteFolder = thisIsEmpty
End Function
Изменено: Андрей VG - 19.01.2024 13:55:40 (Перемудрил. Несколько лет на VBA не кодировал)
PowerQuery. Извлечь данные из параметров тега.
 
Доброе время суток.
Вариант
Код
let
    source = Xml.Tables(File.Contents("C:\Users\19691792\Documents\Тестирование\test.xml")){0}[offers],
    expandSource = Table.ExpandTableColumn(source, "offer", {"price", "barcode", "categoryId", "name", "description", "vendor", "param", "Attribute:id", "Attribute:available"}),
    convertParamToRecord = Table.TransformColumns(expandSource, {{
        "param", each Record.FromList(_[#"Element:Text"], _[#"Attribute:name"])
    }}),
    allRecordFieldNames = List.Distinct(List.Combine(List.Transform(convertParamToRecord[param], each Record.FieldNames(_)))),
    toNames = List.Transform(allRecordFieldNames, each "param." & _),
    return = Table.ExpandRecordColumn(convertParamToRecord, "param", allRecordFieldNames, toNames)
in
    return
Макрос с курсивом, Как найти все слова в столбце написанные курсивом и поставить перед каждым из них символ, например $
 
Доброе время суток
Вариант
Код
Public Sub MarkItalic()
    Dim pCell As Range
    For Each pCell In Selection
        If (TypeName(pCell.Value) = "String") Then
            pCell.Value(XlRangeValueDataType.xlRangeValueXMLSpreadsheet) = Replace(pCell.Value(XlRangeValueDataType.xlRangeValueXMLSpreadsheet), "<I>", "<I>$")
        End If
    Next
End Sub
Макрос аналог функции IMAGE
 
Доброе время суток.
Поиском найти не пробовали? Генерация QR кодов в эксель, например.
Выгрузка таблицы с сайта (проблема вложенных таблиц)
 
Цитата
Garrys написал:
где/как вы нашли эти ссылки на файлы?
Открыл страницу загрузок в браузере Edge и скопировал ссылку :)  Проверил вставкой и переходом в новой странице браузера, что это приводит к повторному скачиванию.
Универсал пикчерс метод решения уравнений на компьютере вида: f(x,y,z)=f(x,y,z).
 
Добрый день, Михаил.
Цитата
БМВ написал:
а лишь отображать нужно в динамике
Чтобы что-то отображать, это ещё бы найти. В лоб. Можно сделать триангуляционную поверхность для каждой функции (ещё бы быстро иметь возможность определения откуда и докуда это делать, плюс, желательный шаг первоначальной разбивки по координатам, чтобы не пропустить экстремумы). Соответственно, после этого ищем какие треугольники двух поверхностей пересекаются. Если нужно плавнее, то конкретную область пересечения разбиваем на более дробные треугольники и находи отрезки/точки пересечения, строя таким образом кривую пересечения двух поверхностей.
Тут, тут права, есть проблема - как отображать такую кривую четырёхмерного пространства на плоскости экрана монитора :) Например, https://math.wikireading.ru/hifngOLNlA
Выгрузка таблицы с сайта (проблема вложенных таблиц)
 
Цитата
МГКБ написал:
И есть ли смысл ожидать решения?
Может кому-то будет интересно. Мне нет.
По факту ссылки на части статичны
https://nsi.rosminzdrav.ru/api/dataFiles/1.2.643.5.1.13.13.99.2.538_3.56_xlsx.zip.001
https://nsi.rosminzdrav.ru/api/dataFiles/1.2.643.5.1.13.13.99.2.538_3.56_xlsx.zip.002
Правда, заранее не известно, как долго они будут жить в таком виде.
В общем, если вам кровь из носу надо, то рекомендовал бы обратиться в раздел Работа, вполне возможно исполнитель найдётся.
Выгрузка таблицы с сайта (проблема вложенных таблиц)
 
Доброе время суток
Цитата
МГКБ написал:
с одним большим файлом
Результатом нажатия кнопки являются два файла
1.2.643.5.1.13.13.99.2.538_3.56_xlsx.zip.001
1.2.643.5.1.13.13.99.2.538_3.56_xlsx.zip.002
Худо бедно PQ ещё может выгрузить их, если получится получить ссылку. Но вот нет уверенности в том, что можно будет извлечь из разбитого на две части zip архива собственно книгу с данными.
Вы бы всё же чётче бы описывали что есть на самом деле. Зачем из вас нужно информацию клещами тянуть?
Опять же
Цитата
МГКБ написал:
просто получить автоматом xlsx файл в PQ
тогда какое отношение имеет это
Цитата
МГКБ написал:
проблема вложенных таблиц
Всё же может чётче название темы заявить - Как скачать файлы zip архива, распаковать, получить содержимое как книгу Excel средствами PQ?
Универсал пикчерс метод решения уравнений на компьютере вида: f(x,y,z)=f(x,y,z).
 
Доброе время суток
Цитата
Arthur Alunts написал:
Т.е. должен получится массив из 3 точек
А это как?
Рассмотрим двумерный случай (функции одной переменной на плоскости) g(x) = f(x) - да тогда решением может быть конечный массив точек (и то для периодических функций это может быть бесконечное множество. Но это хотя бы точки).
Но уже для трёхмерного случая (поверхности в трёхмерном пространстве) g(x, y) = f(x, y) имеем в качестве пересечения линии, например, пересечением цилиндра и сферы могут быть две окружности, которые заведомо состоят из бесконечного множества точек :)  Как их в массив точек выводить?
Изменено: Андрей VG - 10.01.2024 09:01:15
Вопрос по Power Pivot Excel, Мера в Power Pivot Excel
 
Цитата
Наталья Ильина написал:
не совсем корректно считает количество клиенто
Полагаю, что это вы не совсем корректно читаете предоставленное рассуждение. Мера считает
Цитата
Андрей VG написал:
строго два так два только
Если вы хотите
Цитата
Андрей VG написал:
не менее чем в двух месяцах из трёх
то отредактируйте формулу расчёта, выделил красным на что следует обратить внимание. Будет и 25 :)
Цитата
Андрей VG написал:
COUNTROWS ( FILTER ( statistics; [uniqueMonthCount] = 2 ) )
Вопрос по Power Pivot Excel, Мера в Power Pivot Excel
 
Доброе время суток
Цитата
Наталья Ильина написал:
есть покупки в двух из последних трех месяцев
Может не менее чем в двух месяцах из трёх? Ну, да строго два так два только :)  Добавляем штатными средствами календарь. Тогда предлагаю такой вариант.
Код
=
VAR lastestDate =
    MAX ( 'Календарь'[Date] )
VAR fromDate =
    DATE ( YEAR ( lastestDate ); MONTH ( lastestDate ) - 2; 1 )
VAR betweenDates =
    DATESBETWEEN ( 'Календарь'[Date]; fromDate; lastestDate )
VAR statistics =
    CALCULATETABLE (
        SUMMARIZE (
            'qSales__2';
            'qSales__2'[Клиент];
            "uniqueMonthCount"; DISTINCTCOUNT ( 'Календарь'[MonthNumber] )
        );
        betweenDates
    )
RETURN
    COUNTROWS ( FILTER ( statistics; [uniqueMonthCount] = 2 ) )

В промежуточные итоги получить среднее значение, Dax
 
Доброе время суток.
Проблема со связью в том, что внезапно Таблица2 является справочником для Calendar, как пример подготовится, так и получится :)
Опять же, а где данные по апрелю 2023 для товаров в таблицах фактов? Если поставить ноли для апреля 2023 там, то как-то так
Код
=
AVERAGEX (
    SUMMARIZE ( 'Таблица3'; 'Таблица3'[товар] );
    AVERAGEX (
        SUMMARIZE ( 'Calendar'; 'Calendar'[Year]; 'Calendar'[Month] );
        DIVIDE ( [_продажи]; [_остатки]; 0 )
    )
)
DAX Подсчет уникальных значений через подстановку значений
 
Доброе время суток.
Цитата
Николай написал:
Цель вычислить сколько уникальных ID с договором А имеет еще любой другой тип договора.
Вариант
Код
=Var AmbOnly = CALCULATETABLE(VALUES('Table1'[ID пациента]); 'Table1'[Тип дог.] = "Амб")
Var notAmbOnly = CALCULATETABLE(VALUES('Table1'[ID пациента]); 'Table1'[Тип дог.] <> "Амб")
Var common = NATURALINNERJOIN(AmbOnly; notAmbOnly)
Return COUNTROWS(common)
Изменено: Андрей VG - 22.12.2023 10:01:07
Как вычислить первое/последнее непустое значение столбца функциями DAX?
 
Цитата
Gedion White написал:
у меня уже  есть
А у меня нет, ну как бы так
Код
=Var notEmpty = FILTER('Table1'; NOT(ISBLANK('Table1'[Space1])))
Var ranked = ADDCOLUMNS(notEmpty; "foo"; RANKX(notEmpty; 'Table1'[Date]; 'Table1'[Date];DESC))
Return CALCULATE(VALUES(Table1[Space1]); FILTER(ranked; [foo] = 2))
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).
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 398 След.
Наверх