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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 347 След.
Как сделать сверку данных из Excel в в MS SQ на сервере БД
 
А что вам мешает провести эксперимент?
Внедрение таблицы Excel в документ word
 
Доброе время суток
Цитата
Пётр написал:
Что, неужели это нельзя реализовать?
Ну, может быть и такой вариант:
Цитата
Пётр написал:
кто-то
ещё не заходил в вашу тему - выходные же.
Отсортировка данных с таблицы с заголовками и подзаголовками
 
Цитата
Светлана Крашенинникова написал:
а в моем случае это важно.
Ну, тогда стоит подождать заинтересованных VBA-шников. Как вариант, можете построить отчёт в Access, там гораздо больше возможностей в плане форматирования отчётов.
Как в PQ изменить формат даты с дата/месяц/год на месяц/год?
 
Доброе время суток
Вариант
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица7"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"дата", type date}, {"ОЗМ", type text}, {"кол-во", Int64.Type}}),
    #"Sorted Rows" = Table.Sort(#"Changed Type",{{"дата", Order.Ascending}, {"ОЗМ", Order.Ascending}}),
    #"Added Custom" = Table.AddColumn(#"Sorted Rows", "Pivot", each Date.MonthName([дата]) & " " & Text.From(Date.Year([дата]))),
    #"Removed Columns" = Table.RemoveColumns(#"Added Custom",{"дата"}),
    #"Pivoted Column" = Table.Pivot(#"Removed Columns", List.Distinct(#"Removed Columns"[Pivot]), "Pivot", "кол-во", List.Sum)
in
    #"Pivoted Column"
Отсортировка данных с таблицы с заголовками и подзаголовками
 
Доброе время суток.
Цитата
Светлана Крашенинникова написал:
Подскажите как  это сделать.
В первом приближении, можно воспользоваться сводными таблицами. Чуть ближе к желаемому макету результата можно приблизиться через Power Pivot. Если нужно 100% соответствие макету, то написать код на VBA.
Изменено: Андрей VG - 9 Авг 2020 09:46:24
VBA замена мин значения в каждом столбце на макс значение в этом же столбце без массива
 
Доброе время суток
Цитата
Артем Кузнецов написал:
в практикуме тоже зачем то пишут n + k - 1, зачем это нужно?
Просто протестируйте свой подправленный код, выделив массив, левый верхний угол которого в I15. Сравните результат выполнения с тем, который выполняется для выделенного массива с левым верхним углом в A1. Тоже самое проделайте с предложенными вам кодами. :)
Изменено: Андрей VG - 9 Авг 2020 09:01:10
Вывод ФИО сотрудника в течении 10 дней до его дня рождения
 
Доброе время суток.
Вариант.
Защита одного листа паролем из 7, Защита листа Эксель паролем
 
БМВ, Привет, Михаил.
Этот пункт не смущает?
Цитата
kisakova написал:
только один из листов открывался при введении пароля.
Разбивка ячейки на столбцы PQ, Помогите с обработкой для PQ
 
Доброе время суток
Цитата
buchlotnik написал:
ну-ну, продемонстрировали бы тогда на столбце "Наименование продукции"
Михаил, я думаю, что mtts54 подразумевал простоту алгоритмического решения, а не его трудозатратность и нудность. В силу трудозатратности никто больше и не взялся решать - что делать, в общем-то понятно, но убивать на это время...
P. S. Ну, и как всегда с задачами подобного плана висит ожидание - ой, я вот такой момент упустил, а вот ещё такой вариант почему-то не обрабатывает :)
Изменено: Андрей VG - 8 Авг 2020 09:28:47
Макрос копирует текст из ворда, но не все абзацы
 
Доброе время суток.
Цитата
plank1433 написал:
в разные строки их перенести, а не в одну ячейку
Вариант
Код
Public Sub ReadEachDocParagraphs()
    Dim pWord As Object, pSheet As Worksheet, pDoc As Object
    Dim i As Long, text As String, pParagraph As Object
    Set pSheet = ThisWorkbook.Worksheets.Add
    Set pWord = CreateObject("Word.Application")
    Set pDoc = pWord.Documents.Open(ThisWorkbook.Path & "\11.doc", True)
    For Each pParagraph In pDoc.Paragraphs
        text = Trim$(Replace$(pParagraph.Range.text, vbCr, ""))
        If text <> "" Then
            i = i + 1
            pSheet.Cells(i, 1).Value = text
        End If
    Next
    pDoc.Close
    pWord.Quit
End Sub
ячейки с зада :), и такое бывает
 
Цитата
БМВ написал:
Гай Юлий М
Всё же наверное 🐟 🐠 🐡 Юрий М :)
Изменено: Андрей VG - 7 Авг 2020 20:57:06
Выпадающий список без использования Проверка данных
 
Offtop
Цитата
БМВ написал:
или придумать название темы самом и сразу давать ответ.
И сейчас начнётся высокоинтеллектуальное обсуждение о том, нужно ли что-то делать, если это не описано в правилах и не объявлено обязательным :)
Загрузка большого json
 
Владимир Л, вы уверены, что если представить не валидный json
Цитата

          "events":[{
               "eventType": "question",
               "question": "Вопрос клиента"
               },{
               "eventType": "answer",
               "question": "ответ"
               }]
           "tags":[{
                "stepNumber":1,
                "name":"question",
                "value":"ok"
                },{}]
           }
, пример входа, в котором нет
Цитата
Владимир Л написал:
если в tags есть что-то,
, и не приложить, что по примеру входа должно получиться на выходе, то это самый эффективный способ заинтересовать помогающих и получить быстрый ответ и решение? :)
P. S. По крайней мере я пошёл гулять лесом - это для здоровья полезнее, чем быть в очередной раз обвинённым в не клиентоориентированности.
Изменено: Андрей VG - 7 Авг 2020 08:11:54
Как ускорить эксель?, задействовать всю производительность компьютера для работы Эксель
 
Цитата
Zasypich написал:
Комп - неттоп. Сразу заподозрил, что этот прыщик не потянет
Это вот такая конфигурация
Цитата
Intel® Core™ i7-8559U Processor
Памяти 16 гб
Система 64-разрядная Win10
неттоп?
Цитата
Zasypich написал:
снёс офис, поставил новый, макросы не подключал
Может и систему для чистоты эксперимента переставить?
PQ. Поиск строки заголовков по вх. параметру.
 
Цитата
TankSpb написал:
я как-то так понял
Тёзка, а так не проще?
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Лист1"]}[Content],
    base = Source,
    getSubTable = (base as table, keyWords as list) as table =>
    let
        keyWordsLength = List.Count(keyWords),
        skipedRows = Table.Skip(base, each not (List.Count(List.Intersect({Record.FieldValues(_), keyWords})) = keyWordsLength)),
        setHeader = Table.PromoteHeaders(skipedRows, [PromoteAllScalars=true])
    in
        Table.SelectColumns(setHeader, keyWords),
    result = getSubTable(Source, {"Добавь меня", "Найди меня"})
    
in
    result

Updated
Не удержался протестировал. Создал таблицу на 15 столбцов без одной строки на предельное количество. Искомые названия столбцов нужной подтаблицы разместил в строке 900000 в 7 и 8 столбцах, ниже них данные формулы СТРОКА(). Код Андрея отработал за 31 секунду, мой за 8 секунд.
Цитата
TankSpb написал:
на выходе то что хотел! )
А почему бы тогда и не дать теме такое название, чтобы было сразу понятно, что вы хотите :qstn:  :excl:
Изменено: Андрей VG - 6 Авг 2020 22:33:00
поиск оптимального состава в спортивном fantasy с помощью надстройки "поиск решения
 
Цитата
Paradox написал:
на каждую позицию.
А позвольте поинтересоваться, а где у вас обозначение позиции игрока? или тоже забыли?
поиск оптимального состава в спортивном fantasy с помощью надстройки "поиск решения
 
Цитата
Paradox написал:
Устраивает
А вас не смущает, что Maurice Harkless и Jeff Teague должны участвовать в команде дважды? Это нормально? Если так, то это чуть более простой класс задачи :)
поиск оптимального состава в спортивном fantasy с помощью надстройки "поиск решения
 
Доброе время суток
Цитата
Paradox написал:
с помощью надстройки "поиск решения".
А вы можете доказать, что при помощи этого инструмента можно найти решение? Если нет, то зачем выносить название инструмента в название темы? Задача действительно о рюкзаке, только следует помнить, что решение задачи о рюкзаке ко всему прочему целочисленное.
Вот вам вариант поиском решения - оно вас устроит? :)
Изменено: Андрей VG - 6 Авг 2020 20:01:40
как поставить диапазон условия в строки сводной таблицы?, как поставить диапазон условия в строки сводной таблицы
 
Ну, можно чуть схитрить.
PQ. Поиск строки заголовков по вх. параметру.
 
Доброе время суток.
Вариант.
Код
let
    getKeyWordPositions = (where as table, keyWord as any) as list =>
    let
        base = List.Zip({Table.ColumnNames(where), Table.ToColumns(where)}),
        search = List.Transform(base, (item) => [column= item{0}, rowId= List.PositionOf(item{1}, keyWord, Occurrence.First)])
    in
        List.Select(search, each _[rowId] > -1),
    Sourse = Excel.CurrentWorkbook(){[Name="Лист1"]}[Content],
    keyWordPositions = getKeyWordPositions(Sourse, "Найди меня"),
    result = if List.Count(keyWordPositions) > 0 then Table.FromRecords(keyWordPositions) else null
in
    result
Изменено: Андрей VG - 6 Авг 2020 18:56:24
как поставить диапазон условия в строки сводной таблицы?, как поставить диапазон условия в строки сводной таблицы
 
Доброе время суток.
MortyMurr, вы серьёзно считаете, что вопрос настолько прост, что даже можно не выполнять
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
Извлечение из ячейки слова,содержащие цифры и буквы
 
Доброе время суток
Цитата
Алина написал:
Можно такое провернуть ?
Можно, регулярными выражениями.
Файлы .xlsx с формулами и/или макросами: как открыть под Android?
 
Доброе время суток.
Цитата
Файлы .xlsx
файлы такого типа никогда не имели возможности содержать VBA макросы. :)  Скорее всего поддержки VBA никогда не будет на Android - совсем дргуая ОС. Можете попробовать с Office Add-ins, теоретически могут работать в Microsoft Excel for Android (не проверял).
Автоматический подсчет потерь продаж в магазине
 
Offtop
Цитата
msi2102 написал:
не прогуляться ли нам сударь лесом, зайдем в магазинчик купим медовухи
Можно и злоупотребить. Только вот в Самаре я последний раз был в 2004. Сейчас дальше Криушей, что под Ульяновском, в те края не езжу  :(
Загрузка большого json
 
Цитата
Владимир Л написал:
пример какой-нибудь
Забавно, а в правилах написано, что это вы должны представить пример - что есть что должно получиться :)  Тогда от балды на примере таких данных
Код
let
    Source = Json.Document("{""a"":123,""b"":[1,2,3,4],""c"":{""d"":456}}"),
    toTable = Table.FromRecords({Source}),
    expandRecords = Table.ExpandRecordColumn(toTable, "c", {"d"}, {"c.d"}),
    expandList = Table.ExpandListColumn(expandRecords, "b")
    
in
    expandList
Как получить список строк(записей) таблицы по критерию используя VBA?
 
Цитата
БМВ написал:
А запрос производительнее не будет?
Тестировать надо. Так не скажу, что быстрее. По идее, нужно же получить время загрузки, фильтрации и вывода на лист, а тогда зачем коллекция - двух массивов будет достаточно. Если просто получить номера строк, где Да, то опять же коллекция ListRow ни к чему. Бестолковая, в смысле навязываемого подхода, задача.
Как получить список строк(записей) таблицы по критерию используя VBA?
 
Доброе время суток.
Вариант.
Код
Public Sub ScanRowWithYes()
    Dim pLo As ListObject, selectData As Variant
    Dim rowCollection As New Collection
    Dim i As Long, nextRow As ListRow
    Set pLo = ActiveSheet.ListObjects(1)
    selectData = pLo.ListColumns("Выбор").DataBodyRange.Value
    For i = 1 To UBound(selectData)
        If selectData(i, 1) = "Да" Then rowCollection.Add pLo.ListRows(i)
    Next
    For Each nextRow In rowCollection
        selectData = nextRow.Range.Value
        Debug.Print selectData(1, 1) & "; " & selectData(1, 2) & "; " & selectData(1, 3) & "; " & selectData(1, 4)
    Next
End Sub

P. S. Только не совсем понятно - зачем был выбран столь непроизводительный вариант двойного обхода (даже с учётом фильтрации).
Изменено: Андрей VG - 5 Авг 2020 21:44:15
SQL запрос в базе данных ACCESS из PQ
 
Доброе время суток.
Три варианта подключения с запросом. Третий позволяет выполнять запросы с параметрами. Архив распаковать в папку c:\path, если нужно тестировать.
DAX в PowerBI и MS Excel
 
Доброе время суток
Цитата
Solomatnikov написал:
В первую очередь - речь о разделителях в мерах "," и ";"
Как бы уже в Power BI Desktop можно менять разделитель аргументов в функциях DAX. Иногда полезно ставить обновления :)
Как сделать сверку данных из Excel в в MS SQ на сервере БД
 
Цитата
Murderface_ написал:
можно через Power Query сделать подобную сверку.
Можно, и через VBA можно и через Microsoft Query :)  Думаете ТС поймёт ваш код?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 347 След.
Наверх