Новый интерфейс Раньше в разных версиях Excel (2007, 2010, 2013, 2016) иконки для одних и тех же инструментов надстройки могли выглядеть по-разному, т.к. использовались типовые картинки из встроенного в Office набора. Теперь у каждого макроса своя авторская пиктограмма и во всех версиях Excel надстройка выглядит одинаково хорошо
Выбор банка в курсах валют По многочисленным просьбам в импорт курсов валют добавлена возможность выбора банка (Россия, Украина, Беларусь) и добавление к ячейке примечания с уточняющей информацией:
Так и не смог найти нормального источника данных курсов НацБанка Казахстана - те, что есть жутко тормозные и глючные, потока XML-данных на официальном сайте ЦБ Казахстана нет. Так что в этот раз добавлены только НацБанки Украины и Беларуси.
Разделение таблицы на несколько листов Сильно доработан (фактически- заново написан) макрос для разделения одной таблицы на несколько листов:
Как видно из предыдущего скриншота, теперь можно делить таблицу не только по значениям заданного столбца, но и по цвету, по горизонтальным разрывам страниц, блоками по заданному количеству строк. Из приведенной выше таблицы, например, получаются следующие листы с данными по каждому городу и продублированной шапкой:
Редизайн кросс-таблицы в плоскую В список инструментов со сводными таблицами добавлен макрос для редизайна (разворачивания) кросс-таблицы (где данные лежат на пересечении строк и столбцов) в плоскую, т.е. пригодную для последующего анализа сводными таблицами:
Умеет работать и с обычными и с «умными» таблицами, выводить данные с сохранением форматирования (заливка, шрифт и т.д. кроме рамок), выгружать на отдельный лист или в заданную ячейку.
Сохранение листов как отдельных файлов в PDF Инструмент, разбирающий книгу на отдельные листы и сохраняющий их потом в отдельные файлы теперь умеет это делать в PDF:
Добавление недостающих пробелов в слипшийся текст Добавлена новая функция TextSplit, которая умеет разделять слова в слипшемся тексте без пробелов. Ориентируется на смену регистра, знаки препинания, буквы-цифры и т.д.
Округление времени с заданной точностью Добавлена новая функция TimeRound, которая умеет округлять время с заданной точностью (шагом) и в заданном направлении (точно, вверх, вниз):
У этой функции следующие аргументы:
InputTime – исходная ячейка с временем, которое нужно округлить
Преобразование формул в значения теперь можно делать теперь на всех выделенных предварительно листах (c Ctrl или Shift).
Исправлен баг конвертирования формул в значения при выделении нескольких диапазонов или только видимых ячеек.
Точное копирование формул опять может копировать из книги в книгу. И можно выделять только одну ячейку в диапазоне вставки, а не точно такой же по размеру диапазон.
Исправлен баг, не позволявший фильтровать данные в сводных таблицах, если в исходных данных очень много столбцов.
Покупатели полной версии уже могут скачать последнюю версию 2.6 со всеми улучшениями и новыми функциями в разделе PLEX (желтая ссылка сверху, как обычно). Демо-версия тоже доступна, но традиционно отстает - она еще 2.2 и таковой пока останется.
Редизайн кросс-таблицы в плоскую
Здравствуйте, Николай. Отличная функция "unpivot" - использовал такой же (правда, самописный ) макрос для работы с бюджетом где в модели нужен был определенный "наглядный" формат, но итоговые данные нужно было сохранить в кэше сводной для дальнейшего использования результатов расчетов. Исходя из опыта предлагаю добавить к функционалу "Редизайн кросс-таблицы в плоскую" опцию вставки ссылок на ячейки вместо просто значений - при моделировании в основной таблице будет очень легко затем обновлять данные в плоской таблице на основании которой можно построить сводную для дальнейших манипуляций. Но тяжко без заголовков. И в довершение всего можно было бы (опционально) создавать "самоудлиняющийся" именованный диапазон и сводную с данными этого диапазона в кэше.
Сортировать по цвету
При использовании функции сорт. по цвету - Excel прекращает работу и вырубается. MicroSoft Office профессиональный плюс 2010 офис. Версия: 14.0.4760.1000 (32 разрядная)
нужен макрос
Николай, ОГРОМНОЕ СПАСИБО за вашу надстройку!!! - выручает каждый день, про то сколько времени и нерв спасла можно только догадываться: сотни, если не тысячи таблиц были уже созданы и "причесаны" ей! Счастья бы хватило на всех африканских и индийских слонов. Спасибо за обновление!!!
Хотел бы предложить и/или попросить в будущей версии надстройки предусмотреть следующий функционал/макрос: - Нужен макрос который бы создавал папки из выделенных ячеек, при этом необязательно чтобы эти ячейки шли друг за другом - например только из видимых. Также нужно учесть, чтобы макрос проводил замену всех непригодных для имени папки символов в нижнее подчеркивание. - При запросе пользовательского окна "куда сохранить папки" хорошо бы предусмотреть галочку сохранить последний выбранный путь, но чтобы первичным был путь к "Мой компьютер".
- Как продолжение к выше описанному макросу хотелось бы также другой - на основе гипперссылки, при активации которого выдавался бы следующий запрос: 1. укажите путь к "родительской папке" 2. укажите ячейку с именем папки (тут также нужно не забыть про автозамену непригодных символов на нижнее подчеркивание. 3. задайте имя гипперссылке (по умолчанию = п.2 имени папки)
Пока же пользуюсь вот таким макросом и остальное "допиливаю" вручную... Sub Create_Folders()
penAt = "My computer:\"
Set ShellApp = CreateObject("Shell.Application").BrowseForFolder(0, "Please Choose The Folder For This Project", 0, OpenAt)
'Set the folder to that selected. (On error in case cancelled)
On Error Resume Next
BrowseForFolder = ShellApp.Self.Path
'create the folders where-ever the workbook is saved
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (BrowseForFolder & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub
Когда знаешь - всё просто! Когда всё работает как часы - чувствуешь себя человеком!
Ставка рефинансирования
Значение ставки рефинансирования с начала 2016г. показывается неверное. Оно у Вас до сих пор 8,25%. На данный момент значение ставки - 11,00%. Значение ставки рефинансирования с 01.01.2016 соответствует значению ключевой ставки Банка России на соответствующую дату! Исправьте, пожалуйста:)
Мне кажется статусбар раньше ничего не отображал (до нажатия кнопки ОК). Это абсолютно не критично, но Вы сами пишете, чтобы пользователь рапортовал о найденных bugs.
В разных версиях Windows пользовательские формы отображаются с разными полями, похоже. У меня в Windows10 она за краем формы еще. Спасибо за наводку - поправлю.
Спасибо!
спасибо за надстройку. Вроде не так часто пользуешься, но эти редкие моменты экономят часы. Тот случай, когда это необходимо иметь в обязательном порядке всем пользователям, кто использует Excel, а не Word для создания и ведения таблиц.
Огромное спасибо за Ваш труд!!!
Спасибо за обновление ))))
Здравствуйте, Николай.
Отличная функция "unpivot" - использовал такой же (правда, самописный ) макрос для работы с бюджетом где в модели нужен был определенный "наглядный" формат, но итоговые данные нужно было сохранить в кэше сводной для дальнейшего использования результатов расчетов. Исходя из опыта предлагаю добавить к функционалу "Редизайн кросс-таблицы в плоскую" опцию вставки ссылок на ячейки вместо просто значений - при моделировании в основной таблице будет очень легко затем обновлять данные в плоской таблице на основании которой можно построить сводную для дальнейших манипуляций. Но тяжко без заголовков. И в довершение всего можно было бы (опционально) создавать "самоудлиняющийся" именованный диапазон и сводную с данными этого диапазона в кэше.
С "самоудлинением" сложнее, но попробую что-нибудь придумать
При использовании функции сорт. по цвету - Excel прекращает работу и вырубается.
MicroSoft Office профессиональный плюс 2010 офис. Версия: 14.0.4760.1000 (32 разрядная)
Но, в любом случае, спасибо за наводку - разберемся.
У кнопок в выпадающих списках пропали иконки. Это так было задумано или у меня какие-то неполадки?
Дорисую в следующем обновлении
Огромное спасибо за банки и валюты!!! Даже не представляете, как выручили!!!
В чем прикол?)
Последняя версия 2.6 - качайте с сайта смело.
иногда возникает необходимость поменять столбцы и строки местами - хотелось бы это делать в Plex
Николай,
ОГРОМНОЕ СПАСИБО за вашу надстройку!!! - выручает каждый день, про то сколько времени и нерв спасла можно только догадываться: сотни, если не тысячи таблиц были уже созданы и "причесаны" ей! Счастья бы хватило на всех африканских и индийских слонов.
Спасибо за обновление!!!
Хотел бы предложить и/или попросить в будущей версии надстройки предусмотреть следующий функционал/макрос:
- Нужен макрос который бы создавал папки из выделенных ячеек, при этом необязательно чтобы эти ячейки шли друг за другом - например только из видимых. Также нужно учесть, чтобы макрос проводил замену всех непригодных для имени папки символов в нижнее подчеркивание.
- При запросе пользовательского окна "куда сохранить папки" хорошо бы предусмотреть галочку сохранить последний выбранный путь, но чтобы первичным был путь к "Мой компьютер".
- Как продолжение к выше описанному макросу хотелось бы также другой - на основе гипперссылки, при активации которого выдавался бы следующий запрос:
1. укажите путь к "родительской папке"
2. укажите ячейку с именем папки (тут также нужно не забыть про автозамену непригодных символов на нижнее подчеркивание.
3. задайте имя гипперссылке (по умолчанию = п.2 имени папки)
Пока же пользуюсь вот таким макросом и остальное "допиливаю" вручную...
Sub Create_Folders()
penAt = "My computer:\"
Set ShellApp = CreateObject("Shell.Application").BrowseForFolder(0, "Please Choose The Folder For This Project", 0, OpenAt)
'Set the folder to that selected. (On error in case cancelled)
On Error Resume Next
BrowseForFolder = ShellApp.Self.Path
'create the folders where-ever the workbook is saved
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (BrowseForFolder & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub
Когда знаешь - всё просто! Когда всё работает как часы - чувствуешь себя человеком!
Значение ставки рефинансирования с начала 2016г. показывается неверное. Оно у Вас до сих пор
Подправлю.
Спасибо за наводку - поправлю.
Отличные иконки!!! Николай, спасибо!!!
спасибо за надстройку. Вроде не так часто пользуешься, но эти редкие моменты экономят часы. Тот случай, когда это необходимо иметь в обязательном порядке всем пользователям, кто использует Excel, а не Word для создания и ведения таблиц.
С сентября 2008 года пользуюсь надстройкой - очень выручает ! Особое спасибо за выбор банков !!!