Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » LKN
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
Пропала функция
 
#
25.04.2026 20:56:40
ВасяБатарейкин,
как вариант - связано с учеткой: https://www.reddit.com/r/excel/comments/e7zmhk/comment/fa8a7dq/?tl=ru
 
Перейти    
Сравнение данных в одной ячейке с несколькими
 
#
30.03.2026 11:39:56
Цитата
написал:
Добавил немного анализа
Спасибо, а то запутался в массивах)

Цитата
написал:
если первую таблицу преобразовать по типу второй, то останется только их сравнить (Power Query)
Не спец в PQ, но казалось, что это в нем можно "на лету"?..
 
Перейти    
Сравнение данных в одной ячейке с несколькими
 
#
30.03.2026 08:06:25

Возникла необходимость проверять большие объёмы информации с такой особенностью.

В первой колонке Проверяемой таблицы находятся уникальные номера узлов, во второй колонке, в одной ячейке, через запятую – перечень идентификаторов каждого узла.

Их нужно сравнить с актуальными идентификаторами в Образцовой таблице, содержащей список всех узлов, в котором эти идентификаторы занесены каждый в одной ячейке, напротив соответствующего узла, чтобы уже потом разбираться с каждым расхождением – особенно когда изменилось общее количество и/или один из id

Пример с пояснениями приложен

Как лучше реализовать проверку соответствия идентификаторов в таблицах, такую задачку следует решать в VBA или PowerQuery?
Возможно ли в последнем определять не только факт расхождения, но и в чём он заключается?
 
Перейти    
Модуль класса для управления настройками производительности
 
#
09.01.2026 12:05:43
Попалось свежее видео по использованию модуля класса VBA для управления настройками производительности книг Excel – оптимизация отключения/включения обновления событий, обновления экрана, режима вычисления формул, системных предупреждений, строки состояния:
 

(Из практически полезного - например, автовосстановление режима обновления/вычисления документов Excel в случае прерывания работы макроса)

Готовый пример этот бойкий филиппинец распространяет ($) через Патренон, но все изложенное в его видео мной вручную перенесено в приложенную книгу – для пользы нашим разработчикам  :)

 
Перейти    
Поиск спостоба получить данные о районе из адреса
 
#
03.01.2026 19:58:23
iklmn-d,
Как вариант, использовать готовый сервис: https://dadata.ru/api/suggest/address/ , внизу - пример на VBA
С бесплатным аккаунтом, за десять дней - можно заявленные строки перелопатить :D  
 
Перейти    
Книга "Сводные таблицы в Microsoft Excel 2021 и Microsoft 365" Билл Джелен, Где загрузить сопутствующий материал?
 
#
09.12.2025 21:04:02
Владимир Пешков,
А на сайте нашего издательства скачать?
https://dmkpress.com/catalog/computer/data/978-5-93700-127-6/
 
Перейти    
Цвет текста в зависимости от содержания ячейки
 
#
01.11.2025 22:46:46
dendjuda,
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=36869&am...
 
Перейти    
Открытие раздела .pdf файла выделенного закладкой, По гиперссылке в ячейке необходимо чтобы открывался файл .pdf в AdobeAcrobat на нужной странице/разделе выделенном закладкой.
 
#
31.10.2025 23:10:27
Цитата
написал:
Мне необходимо, чтобы клик на описание конструктива в ячейке эксель открывал документ .pdf (проект) на нужной странице
Вряд ли, но попробуйте: https://helpx.adobe.com/ru/acrobat/kb/link-html-pdf-page-acrobat.html

Для направления ссылки HTML на конкретную страницу файла PDF добавьте #page=[page number] в конец ссылки URL.
 
Перейти    
Скопировать диапазон таблицы и перенести в WORD
 
#
28.09.2025 21:21:26
Цитата
написал:
Как сделать, чтобы таблица была по ширине страницы
Метод Table.AutoFitBehavior
https://learn.microsoft.com/ru-ru/office/vba/api/word.table.autofitbehavior
 
Перейти    
Расположить 2 Листа книги на одном мониторе вертикально рядом
 
#
03.08.2025 20:33:24
Чтобы не зависеть от имён листов, можно просто по их номерам обращаться:
wb.Sheets(1).Activate
wb.Sheets(2).Activate
 
Перейти    
Лучший парсер VBA-Json (ваше мнение)
 
#
26.04.2025 11:38:33
Подниму старинную тему, для оценки опытными - встретился ещё компактный и универсальный пример функции парсинга JSON в VBA:
https://medium.com/swlh/excel-vba-parse-json-easily-c2213f4d8e7a

Автор отмечает быстроту работы алгоритма, и помимо прочего, возможность отфильтровывания необходимых элементов в массив (через *)
Особенность - поступающие данные JSON должны быть валидны, результат выдается как есть - преобразования типов данных функцией и экранированных символов - не производится.
В комментах, в первом сообщении - дополнительные доработки пользователей этого макроса (Function ParseArr(key$)
 
Перейти    
Как закрепить несколько строк?, возможно ли это?
 
#
16.02.2025 09:39:58
Цитата
написал:
НО.Возможно ли както эту закрепленную строку делать динамической?
Ответ в #3 - изучен?
(а то - как в анекдоте :D )
 
Перейти    
Как закрепить несколько строк?, возможно ли это?
 
#
15.02.2025 19:16:04
Цитата
написал:
Подскажите пожалуйста, есть ли вообще в Эселе возможность закреплять сразу несколько строк на листе.
Для разных таблиц - только если их сделать "умными", тогда при выделении внутренней ячейки в одно из них и прокрутки видимой области, наверху будет образовываться "шапка":
6. При прокрутке Таблицы вниз заголовки столбцов (A, B, C…) меняются на названия полей, т.е. уже можно не закреплять шапку диапазона как раньше
https://www.planetaexcel.ru/techniques/2/136/
 
Перейти    
Как узнать где проблема на листе и какой лист тормозит эксель?, Найти конкретно причину подвисания экселя при добавлении новых данных
 
#
21.01.2025 21:38:27
JRO, можно попробовать лишние объекты - раз, два
 
Перейти    
Обработка файлов *.msg - с сервера Exchange и из локальной папки
 
#
10.01.2025 11:43:49
Имеется готовый макрос обработки рассылки с сервера MS Exchange, но изредка его нужно переключать на обработку писем, уже хранящихся в локальной папке, типа C:\msg\
Как именно (и попроще) предусмотреть это в имеющемся коде - типа в таком случае "закомментировать" временно ненужные сроки и раскомментировать для локальной обработки?
Код
Public Sub MSG()
    
    Dim objOutlApp As Object, oNSpace As Object, oIncoming As Object
    Dim oIncMails As Object, oMail As Object
    Dim IsNotAppRun As Boolean
    Application.Calculation = xlCalculationManual

    On Error Resume Next
    Set objOutlApp = New Outlook.Application
    If objOutlApp Is Nothing Then ' даже к закрытому
        Set objOutlApp = CreateObject("outlook.Application")
        IsNotAppRun = True
    End If

    Set oNSpace = objOutlApp.GetNamespace("MAPI")
    Set oIncoming = oNSpace.Folders("mail@mail.ru").Folders("ПОСТУПЛЕНИЯ")   
    Set oIncMails = oIncoming.Items    
    
    Dim nn As Long
    nn = oIncMails.Count ' сколько всего пришло писем    
    If nn = 0 Then
        MsgBox "Новых писем - нет", Title:="ПОСТУПЛЕНИЯ"
        Exit Sub
    End If
    I = 1   
    Dim m As Long ' счетчик для цикла
    m = 0    
    For Each oMail In oIncMails
        m = m + 1
        Application.StatusBar = "Обработка " & m & "-го письма из " & nn
    
        ...  ' код обработки
    
'    завершение цикла по строке
    Next
    
End Sub
 
Перейти    
VBA извлечение данных из информации о документе PDF
 
#
26.12.2024 21:15:36
Miralex,
похоже, потребуется автоматизация через Adobe Acrobat Pro
https://forum.ozgrid.com/forum/index.php?thread/1229537-copy-pdf-metadata-title-year-author-etc-into...
 
Перейти    
Логическая формула Если (и), с чего начать писать формулу с ЕСЛИ
 
#
22.12.2024 17:39:54
Sanja,
Ок! (перепутал разделители :D)
 
Перейти    
Логическая формула Если (и), с чего начать писать формулу с ЕСЛИ
 
#
22.12.2024 17:18:24
Sanja,
Цитата
написал:
Если внимательно присмотритесь, то увидите, что в ВПР 4 ПАРЫ значений, т.е. Таблица 4(строки) Х 2 (столбца).
Что-то все равно, не до конца понятно. :sceptic:
В формуле с ВПР, внутри фигурных скобок видно ТРИ полных пары (1:26;2:36;3:41) и два дополнительных значения (0;...;4)
=ВПР(A1;{0;1:26;2:36;3:41;4};2)
Не затруднит ли расписать эти пары (элементы "массива")? Или в оставшейся четвертой паре опущено, как необязательное, его значение?
 
Перейти    
Логическая формула Если (и), с чего начать писать формулу с ЕСЛИ
 
#
21.12.2024 22:13:20
Sanja,
Цитата
написал:
=ПРОСМОТР(A1;{0;26;36;41};{1;2;3;4})
=ВПР(A1;{0;1:26;2:36;3:41;4};2)
Просьба поподробнее объяснить работу столь эффективной записи  :)
В этих формулах используются фигурные скобки, но вся же запись - не "формулы массива"?
С ПРОСМОТРом, через Мастер формул, более-менее понятно (четыре элемента в векторе), а почему именно так (пять значений..) конструируется формула с ВПР? А то что-то подобных примеров - не встречалось..
 
Перейти    
PQ – построчный импорт "древовидных" XML-файлов со всеми данными, Power Query, XML, вложенные теги
 
#
18.12.2024 20:15:21
AlienSx,
Спасибо, ошибок при импорте рабочих XML - теперь нет :)  
 
Перейти    
PQ – построчный импорт "древовидных" XML-файлов со всеми данными, Power Query, XML, вложенные теги
 
#
16.12.2024 19:00:29
AlienSx, здорово - солидный, структурированный код! :)

Но при прогоне на реальных файлах обнаружилась проблема, приводящая к ошибкам и пустым строкам в итоговом файле..
Как удалось определить, в некоторых XML могут отсутствовать отдельные теги, которые есть в других файлах - например <ObjectLocationExtraText>, который описывает дополнительную часть адреса.

Как будет лучше дополнить код обработчиком подобных ошибок?
 
Перейти    
PQ – построчный импорт "древовидных" XML-файлов со всеми данными, Power Query, XML, вложенные теги
 
#
16.12.2024 09:10:49

Просьба посоветовать, как правильно создать запрос в Power Query для извлечения данных из большего количества однотипных XML-файлов.

Проблема заключается в том, что структура XML - "древовидная", данные в подтегах в <SectorList>, <FreqList> и <Condition> - "разветвляются", что при простом импорте приводит к "распуханию" итоговой таблицы, когда итоговое количество строк значительно превышает количество файлов…

Чтобы этого избежать, хотелось бы сделать так, чтобы все данные из повторяющихся тегов объединялись в одну соответствующую ячейку - например, через ";”

Для последующего анализа также полезно подсчитывать число таких тегов (например, по SectorID, FreqID, Position) и выводить их количество в соответствующие колонки.

Просьба помочь с M-кодом, т.к. похоже, через интерфейс редактора PQ такого уже не сделать..
 
Перейти    
сбор данных из гет запроса
 
#
09.11.2024 19:36:49
Evgpetr,
например - https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=5&TID=120909&a...
 
Перейти    
Значение после определенного символа, требуется получить конкретное значение из последовательности данных
 
#
25.10.2024 20:51:19
matfaker,
Есть и совсем простой (ленивый) способ - "Мгновенное заполнение": https://www.planetaexcel.ru/techniques/7/7751/
Правда, надо применять с осторожностью, но на представленном примере - срабатывает 8)
 
Перейти    
Обойти ограничение в 255 полей при слияние Ворда И экселя
 
#
23.09.2024 19:56:21
levkaster97, как вариант - через CSV-файл:
https://techcommunity.microsoft.com/t5/excel/how-to-do-a-mail-merge-with-more-than-255-columns/m-p/7...
 
Перейти    
Автоматизированная проверка машиночитаемых доверенностей, МЧД, m4d
 
#
26.08.2024 07:36:09
В общем, удалось разобраться - преодолевать защиту не понадобилось, нужно было передавать в Заголовках ApiKey, возвращаемый сайтом - он постоянный (отчего так сейчас и насколько продлится - вопрос, но - работает))

Успелось все вовремя :)
https://www.nalog.gov.ru/rn11/news/activities_fts/15170287/  
 
Перейти    
Р7 офис, Импортозамещение аналог excel
 
#
17.08.2024 21:09:11
Feltor,
На тему - сегодняшняя статья: Создание первого макроса JavaScript для табличного редактора Р7 офис / Хабр (habr.com)
Но на сабжевый вопрос - направляют на Вводный курс Оглавление (r7-consult.ru)
 
Перейти    
Автоматизированная проверка машиночитаемых доверенностей, МЧД, m4d
 
#
31.07.2024 19:07:30
После анализа по F12 и обращения на https://m4d.nalog.gov.ru/api/v1/poar-portal/get_info_short?dovelGuid=f0489fd5-8afa-45d0-bfd5-d062113... пока получается ответ Api Key was not provided
Изменено: LKN - 31.10.2024 23:07:26
 
Перейти    
Автоматизированная проверка машиночитаемых доверенностей, МЧД, m4d
 
#
30.07.2024 19:20:30
Нужно периодически проверять перечни машиночитаемых доверенностей (МЧД) на сайте ФНС РФ: https://m4d.nalog.gov.ru/emchd/get-info
Сейчас это делается вручную, но хотелось бы автоматизировать процесс.
Сделана попытка реализации через стандартный XMLHTTP, однако все дело стопорится на защите этого сайта...
Есть ли возможность возможность её обойти и продолжить передавать запросы/получать данные методами Msxml2.ServerXMLHTTP/WinHttp.WinHttpRequest.5.1/Msxml2.ServerXMLHTTP ?
Код
Sub SendHTTPRequest()
    
    Dim httpReq As Object
    Set httpReq = CreateObject("MSXML2.XMLHTTP")

    httpReq.Open "GET", "https://m4d.nalog.gov.ru/emchd/get-info/data", False

    httpReq.setRequestHeader "Content-Type", "application/json"

    httpReq.Send

    If httpReq.Status = 200 Then
        Debug.Print httpReq.responseText
    Else
        Debug.Print "Ошибка: " & httpReq.Status
    End If
    
    Set httpReq = Nothing
    
End Sub
 
Перейти    
узнать код цвета ярлычка страницы
 
#
06.05.2024 21:35:34
Хорошее объяснение по ColorIndex  :)  http://dmcritchie.mvps.org/excel/colors.htm
 
Перейти    
Страницы: 1 2 След.
Наверх