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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 298 След.
Расчет платежей по кредиту в Power Query/Power Pivot
 
Доброе время суток
Цитата
qwerty64 написал:
но хотелось попробовать перейти на power query/power pivot
Power Query - это ETL инструмент. В нём нет функций ПЛТ, ПРПЛТ. Если вы представите алгоритм расчёта и пример вывода результата для нескольких
Цитата
qwerty64 написал:
На входе есть сумма кредита, ставка, срок
, то можно подумать.
Не удается обновить запрос в Power Query
 
Доброе время суток.
Цитата
ZLAT написал:
с чем связана ошибка?
Указанный столбец в сообщении об ошибке имеет связь со столбцом в другой таблице (relationship). Для связывания двух столбцов таблиц требуется, чтобы они были одного типа. Скорее всего, тот тип, который вы задали в случае
Цитата
ZLAT написал:
изменения типа
не соответствует типу столбца другой таблицы.
Сравнение подключенных таблиц power query
 
Доброе время суток
Цитата
Ermakov_dm написал:
как сделать "сводную с этих подключений" лист sum.
Как-то так
Код
let
    fn = (source, prefix) => 
    let
        typed = Table.SelectColumns(source, {"Barcode", "Name", "Price", "Available"}) ,
        prefixed = Table.PrefixColumns(typed, prefix)
    in
        [source = prefixed, joinCols = List.Range(Table.ColumnNames(prefixed), 0, 2)],
    cfo = fn(Excel.CurrentWorkbook(){[Name="cfo_group_ru"]}[Content], "cfo"),
    toy = fn(Excel.CurrentWorkbook(){[Name="toymart_ru"]}[Content], "toy"),
    
    join = Table.Join(cfo[source], cfo[joinCols], toy[source], toy[joinCols], JoinKind.FullOuter),
    setName = Table.AddColumn(join, "Name", each if [#"cfo.Name"] = null then [#"toy.Name"] else [#"cfo.Name"]),
    setBarcode = Table.AddColumn(setName, "Barcode", each if [#"cfo.Barcode"] = null then [#"toy.Barcode"] else [#"cfo.Barcode"]),
    #"Removed Columns" = Table.RemoveColumns(setBarcode,{"cfo.Barcode", "cfo.Name", "toy.Barcode", "toy.Name"}),
    #"Reordered Columns" = Table.ReorderColumns(#"Removed Columns",{"Name", "Barcode", "cfo.Price", "cfo.Available", "toy.Price", "toy.Available"})
in
    #"Reordered Columns"

Только между таблицами есть пересечения только по Barcode, но для равных Barcode не совпадают названия Name. Составлено именно так, как указано на листе Sum. Думаю, поймёте принцип - сможете сделать как надо.
Сводная с отображением уникальных значений из нескольких столбцов
 
Цитата
abc1 написал:
а Вы не знаете как отменить сортировку от А до Я в значениях Названий строк?
увы, ваш вопрос не по теме топика. Просто создайте новую тему.
Сводная с отображением уникальных значений из нескольких столбцов
 
Доброе время суток.
Вариант
Поиск в диапазоне повторяющихся значений
 
Цитата
Norton Virt написал:
нужно промотать 1000 строк
зачем? А фильтр по цвету тогда зачем?
Если выбрать значение необходимо прокомментировать, иначе не сохранить (макрос)
 
Доброе время суток.
пжл
Поиск в диапазоне повторяющихся значений
 
Доброе время суток
Цитата
Norton Virt написал:
Нужна ячейка-индикатор
Может условным форматированием подсвечивать дубли?
Разделение текста в ячейке на строки по абзацу со сведением данных
 
Доброе время суток
Цитата
Regi27 написал:
Реально ли это реализовать, максимально исключив ручные корректировки документа?
Да, вполне. С помощью VBA или Power Query.
PQ Замена повторения в последовательности
 
Цитата
Mirdv написал:
это надо делать в шаге "сгрупированные строки"
Да, именно в этом шаге.
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    grouped = Table.Group(Source, {"Последовательность"}, {{"temp", 
        each Table.AddColumn(Table.AddIndexColumn(_, "id", 0), "Последовательность2", each [Последовательность] + [id]),
        Table.Type
    }}, GroupKind.Local),
    return = Table.ExpandTableColumn(grouped, "temp", {"Последовательность2"})
in
    return
Динамический путь запроса в Power Query
 
Цитата
Simvol написал:
Expression.Error: Столбец "Data" таблицы не найден.
А приложить тот самый пример и создать тему именно под разбор ошибки? Не находите, что это было бы проще? Разбирайте пример.
Динамический путь запроса в Power Query
 
Доброе время суток
Цитата
Simvol написал:
есть возможность
Вы не поверите, но достаточно вбить название темы в поисковую строку браузера, чтобы найти ОТНОСИТЕЛЬНЫЙ ПУТЬ К ДАННЫМ POWERQUERY
Успехов.
Добавить строки при совпадении содержимого ячеек в колоноках
 
Доброе время суток.
Версия на Power Query
Одинаковая шапка на всех листах книги
 
Доброе время суток
Цитата
Dizeloid написал:
своего рода меню-навигация по прайсу
Не проще ли тогда сделать свою собственную для книги вкладку на Ribbon?
Отобразить в отдельном столбце пропущенные числа
 
Доброе время суток
Цитата
Wiss написал:
А в Вашем сборнике анекдотов анекдоты про разбитое корыто есть?
В этом сборнике чисел http://neostar.zp.ua/chisla.xls есть число 1.txt  :D  ТС любит посмеяться...
Ленивый вариант макроса
Код
Public Sub GetNonExistedNumbers()
    Dim lRow As Long, vData() As Variant
    Dim vOut() As Long, i As Long
    Dim vCheck() As Long, pSheet As Worksheet
    Dim vMin As Long, vMax As Long
    Set pSheet = ActiveSheet
    lRow = pSheet.Cells(pSheet.Rows.Count, 1).End(xlUp).Row
    vData = pSheet.Range(pSheet.Cells(1, 1), pSheet.Cells(lRow, 1)).Value
    vMin = Application.Min(vData)
    vMax = Application.Max(vData)
    ReDim vCheck(vMin To vMax)
    For i = 1 To UBound(vData)
        vCheck(vData(i, 1)) = 1
    Next
    ReDim vOut(1 To UBound(vData), 1 To 1)
    lRow = 0
    For i = vMin To vMax
        If vCheck(i) = 0 Then
            lRow = lRow + 1
            vOut(lRow, 1) = i
        End If
    Next
    Set pSheet = ActiveWorkbook.Worksheets.Add
    pSheet.Cells(1, 1).Resize(lRow, 1).Value = vOut
End Sub
Изменено: Андрей VG - 23 Янв 2020 16:58:39
Разгруппирование информации, Возможно ли слелать так
 
Цитата
arkadiinovikov написал:
в публичное уничижение за несоблюдение правил.
Приведите пример того, что является унижением?
Цитата
arkadiinovikov написал:
И Вы тут же его обвиняете что он просто "хочет формулу, которая всё умеет".
Указываю на то, что ТС не продумал логическое решение задачи. Excel он может и не знать - на форуме с этим помогут, а вот построить цепочку решения - это задача самого ТС - для этого он учился перед тем как выйти во взрослую жизнь.
Вы же не предложили ему никакого решения, а занялись в теме ровно нем же :)
Разгруппирование информации, Возможно ли слелать так
 
Доброе время суток
Цитата
arkadiinovikov написал:
нельзя, т.к. невозможно установить соответствие.
Ну, почему же? Достаточно составить таблицу модельного ряда фирм и по ней фильтровать развёртку двух столбцов. Просто ТС ищет такую интеллектуальную формулу, которая это знает и умеет :)
PQ Замена повторения в последовательности
 
Цитата
Mirdv написал:
уловил алгоритм
Нет, не уловили. Вы разобрали решение, а не алгоритм. Прошу обратить внимание, что это частное решение. Допустимо только два одинаковых числа в последовательности. Лучше делать чуть по другому. Сразу выполнить локальную группировку. Если число строк в таблице подгруппы равно 1, то без изменений, а если больше, то то прибавляем индекс, начинающийся от 0
Найти точки пересечения подобия разностороннего треугольника
 
Доброе время суток.
Решение самой сложной части. Остальное - школьная программа.
PQ Замена повторения в последовательности
 
Доброе время суток.
Вариант
PQ. Настраиваемый столбец. Проверка текстового формата в столбце
 
Цитата
Murderface_ написал:
что такое try и otherwise и что они делают?
А в этих статьях: Error Handling, Error-handling in Power Query - плохо описано?
Редактирование базы данных средствами MS Exсel
 
Цитата
skylink написал:
Можно как то синхронизировать эти связанные таблицы в access?
Можно. Нужно создать запрос на обновление изменённых записей и запрос на вставку новых записей.
PQ. Настраиваемый столбец. Проверка текстового формата в столбце
 
Доброе время суток
Цитата
Aleksei_Zhigulin написал:
Или как-то так:
Поди пойми поставленный вопрос. Я бы только в лоб проверку на is number сделал.
Редактирование базы данных средствами MS Exсel
 
Доброе время суток
Цитата
skylink написал:
хотелось бы что то по существу услышать.
Каков вопрос, таков и ответ. Используйте сторонние надстройки для синхронизации измерений и дополнений с базой данных.TheBestOfTheBest рекомендует Плагин SaveToDB к Microsoft Excel
Перебрать комбинации с заменой букв е, ё
 
Вариант
Код
Public Function SwitchYOE(ByVal InitText As String)
    Dim arrOut() As String, char As Object
    Static pReg As Object
    Dim i As Long, k As Long, pos As Long, oldChar As String, Chars As Object
    If pReg Is Nothing Then Set pReg = CreateObject("VBScript.RegExp"): pReg.Global = True: pReg.IgnoreCase = True: pReg.Pattern = "е"
    InitText = Replace$(Replace$(InitText, "ё", "е", Compare:=vbBinaryCompare), "Ё", "Е", Compare:=vbBinaryCompare)
    Set Chars = pReg.Execute(InitText)
    ReDim arrOut(0 To 2& ^ Chars.Count - 1)
    arrOut(0) = InitText
    pos = 0
    For i = 1 To UBound(arrOut)
        k = 0
        Set char = Chars(k)
        oldChar = Mid$(InitText, char.FirstIndex + 1, 1)
        Do While LCase$(oldChar) = "ё"
            Mid$(InitText, char.FirstIndex + 1, 1) = IIf(oldChar = "Ё", "Е", "е")
            k = (k + 1) Mod Chars.Count
            Set char = Chars(k)
            oldChar = Mid$(InitText, char.FirstIndex + 1, 1)
        Loop
        Mid$(InitText, char.FirstIndex + 1, 1) = IIf(oldChar = "Е", "Ё", "ё")
        pos = pos + 1
        arrOut(pos) = InitText
    Next
    SwitchYOE = arrOut
End Function
Изменено: Андрей VG - 21 Янв 2020 10:02:03
Удалить листы в книге, кроме активного и из списка
 
Код
Public Sub DeleteRightSheets()
    Dim aSheet As Object, Ids() As Long, i As Long
    Set aSheet = ActiveWorkbook.ActiveSheet
    If aSheet.Index < ActiveWorkbook.Sheets.Count - 1 Then
        ReDim Ids(1 To ActiveWorkbook.Sheets.Count - aSheet.Index - 1)
        For i = aSheet.Index + 1 To ActiveWorkbook.Sheets.Count - 1
            Ids(i - aSheet.Index) = i
        Next
        Application.DisplayAlerts = False
        ActiveWorkbook.Sheets(Ids).Delete
        Application.DisplayAlerts = True
    End If
End Sub

Цитата
Советник I категории написал:
всё, что между активным листом и последним нужно удалить".  
вот так бы и с самого начала :)
Цитата
Советник I категории написал:
можно ложиться спать спокойно
да, в какой мере.
Просите и дано будет...
Изменено: Андрей VG - 20 Янв 2020 22:32:14
Перебрать комбинации с заменой букв е, ё
 
Цитата
pavel_ivanov написал:
ФИО если в нем есть е или ё
хм, а если на входе Семён Алексеевич?
Удалить листы в книге, кроме активного и из списка
 
Цитата
Советник I категории написал:
думаю что Вам бы это врядли помогло, если Вы букв не видите.
ну, по сравнению с вашим названием темы - это не такой и смертельный порок, но файл пример бы помог, не сомневайтесь :)
Перебрать комбинации с заменой букв е, ё
 
Цитата
pavel_ivanov написал:
ПЕРЕБРАТЬ возможные комбинации ФИО
где?
Правильно ли я понимаю, что вы, подобно Советник I категории, считаете, что пример того что есть, того что надо получить не нужен?
Удалить листы в книге, кроме активного и из списка
 
Цитата
Советник I категории написал:
я не умею это делать, если Вы успели заметить из моего обращения на сайт.
А каким образом это можно было заметить?
Нет фразы "Прошу написать макрос..", но есть
Цитата
Советник I категории написал:
Думаю, здесь не нужен пример
Хотя для простоты можно было приложить файл, где, например, зелёным помечен активный лист, красным для удаления и белым - которые нужно оставить.
Мой вывод - начинающий программист, плохо знающий объектную модель Excel. :)
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 298 След.
Наверх