Страницы: 1
RSS
Пожелания по увеличению функциональности Plex
 
Здравствуйте!
Раз уж есть такая ветка в форуме, то озвучу свои предложения по увеличению функциональности надстройки PLEX:
-размножить диапазон по листам;
-повторно запустить последнюю использовавшуюся утилиту.
Если что-то реализуете из этого буду признателен.
Изменено: AlDan - 29.09.2018 19:14:24
 
Тут уже было где-то... В ячейке с формулой (ами) заливать  ячейки участвующие в формуле. И потом снимать заливку. Удобно визуально просматривать какие ячейки пропустил или лишние попали.
Код не мой, чуть чуть подправил. Народ работает с ним
Код
Attribute VB_Name = "Заливка"
Public Sub 'HighlightCellsReferenced() ' Выделить
    Dim rowCnt As Integer
    Dim i As Integer, j As Integer, strleng As Integer
    Dim strTxt As String, strFml As String
    Dim columnStr, cellsAddress As String
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Пожалуйста, выберите ячейки (у) с формулой...", _
    Title:="Выбор ячеек", Type:=8)
    ClsCLR = PickNewColor
    strTxt = ""
    Application.ScreenUpdating = False
    For Each yRg In xRg
        Set prCell = yRg
        On Error Resume Next
        Set prCell = Union(yRg, yRg.DirectPrecedents)
        prCell.Interior.Color = ClsCLR
    Next yRg
    xRg.Interior.Color = ClsCLR
    Application.ScreenUpdating = True
End Sub

Public Sub 'De_HighlightCellsReferenced() ' Снять выделение (прозрачный)
    Dim rowCnt As Integer
    Dim i As Integer, j As Integer, strleng As Integer
    Dim strTxt As String, strFml As String
    Dim columnStr, cellsAddress As String
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Пожалуйста, выберите ячейки(у) с формулой...", _
    Title:="Выбор ячеек", Type:=8)
    ClsCLR = -4142
    strTxt = ""
    Application.ScreenUpdating = False
    For Each yRg In xRg
        Set prCell = yRg
        On Error Resume Next
        Set prCell = Union(yRg, yRg.DirectPrecedents)
        prCell.Interior.Color = ClsCLR
    Next yRg
    xRg.Interior.Color = ClsCLR
    Application.ScreenUpdating = True
End Sub

Function PickNewColor(Optional ByVal i_OldColor As Double = xlNone) As Double
    ' функция отображает диалоговое окно выбора цвета заливки
    ' и возвращает значение выбранного цвета
    On Error Resume Next:
    PickNewColor = i_OldColor
    Const BGColor As Long = 13160660, ColorIndexLast As Long = 32
    Dim myOrgColor As Double, myNewColor As Double, WB As Workbook
    Dim myRGB_R As Integer, myRGB_G As Integer, myRGB_B As Integer
    If ActiveWorkbook Is Nothing Then Application.ScreenUpdating = False: Set WB = Workbooks.Add
    myOrgColor = ActiveWorkbook.Colors(ColorIndexLast)    'save original palette color

    i_Color = IIf(i_OldColor = xlNone, BGColor, i_OldColor): myRGB_R = i_Color Mod 256
    i_Color = i_Color \ 256: myRGB_G = i_Color Mod 256
    i_Color = i_Color \ 256: myRGB_B = i_Color Mod 256
    ActiveWorkbook.ResetColors    'AppActivate Application.Name
    If Application.Dialogs(xlDialogEditColor).Show(ColorIndexLast, myRGB_R, myRGB_G, myRGB_B) Then
        PickNewColor = ActiveWorkbook.Colors(ColorIndexLast)
        ThisWorkbook.Colors(ColorIndexLast) = myOrgColor
    End If
    If Not WB Is Nothing Then WB.Close False: Application.ScreenUpdating = True
End Function

Изменено: Vitoch - 23.08.2018 15:49:15
 
Vitoch, респект :) . Хороший макрос.
 
Добрый день!
-копировать сумму выделенных ячеек в буфер обмена

Это есть - если открыть диспетчер горячих клавиш - в разделе Формулы - "Поместить сумму выделенных ячеек в Буфер Обмена"
 
Точно. Спасибо за подсказку. :) . Горячие клавиши как-то упустил из виду. Уберу из пожеланий.
Изменено: AlDan - 27.08.2018 18:18:13
 
Vitoch, пробую задествовать вашь код.
Пишет Compile error
Syntax error
 
Плохо скопировали. VBA не все распознал. У меня работает. Сейчас уже точно не помню, но по-моему 1 строку с Attribute удалил и все заработало. :)
Изменено: AlDan - 31.08.2018 20:20:03
 
День добрый!
Не буду отдельную тему создавать.
1. Обратил внимание на то, что при попытке перевести Лист в значение - вылетает файл без сохранения (даже авто сохранение не срабатывает). Причину выяснил - на Листе находится таблица (выгрузка из PQ), где я проводил расчеты, так вот при "ручном" переводе формул в значения - Excel ругается и не дает провести операцию в том случае когда выделяется столбец целиком, а не диапазон внутри таблицы. Учитывать ли это в надстройке, не знаю - описал больше для информации
2. При составление формулы, со сложными расчетами внутри ЕСЛИ, получаются громоздкие и плохо читабельные. Мб (как вариант) добавить некий оператор
типа ЕСЛИ(*(формула)="чему то";"";*). Я понимаю, что это реализовать можно с помощью диспетчера имен, но лично мне было б удобнее так. Я не на что не претендую, просто высказываю пожелание
В жизни нет ничего невозможного! Есть только недостаток знаний и умений.
 
Здравствуйте, Николай!

Очень не хватает в Plex такой нужной функции - Развернуть таблицу 1С как в надстройке «Финансист» http://file.1fd.ru/. Думаю такая функция просто необходима для облегчения труда финансово-экономических служб, учитывая сколько отчетов им приходится сбрасывать c 1 C в Excel и затем обрабатывать. :)
https://youtu.be/l5ifuJpal7o
Изменено: AlDan - 17.12.2018 13:09:50
 
AlDan, а в чем проблема поставить "Финансист"? Она же бесплатная, вроде, нет?
 
Для пользователей системы - бесплатная. Для других - как-то непонятно... Возможно просто тестируют, а затем сделают платной.
 
Павел, добрый день! Кто-то уже на форуме писал пожелание - добавить в менеджер листов функцию переименования. Например, собрать список всех листов, в этом списке затем рядом прописать новые названия и массово листы переименовать.
Изменено: InnaL - 22.03.2019 12:44:29
 
Николай, добрый вечер!

Было бы здорово добавить в Plex к функции "Разорвать все связи" или к "Очистка книги" дополнительную возможность удаления всех подключений из вкладки "Данные->Подключения" (Excel 2013), включая модель данных и удаления всех Queries созданых в PowerQuery, да и вообще удаление любых связей в книге с внешними источниками.

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

Будем ждать такого в новых версиях!

Спасибо!
 
VasiliePavlov, хорошая мысль, спасибо!
Поставлю в список на реализацию в следующих обновлениях.
 
Удобный инструмент "Выпадающий список с автопоиском " в последней версии.
А можно сделать, что бы поиск был не только по по первым введенным символам, а по любому месту совпадения внутри стоки.
Очень нужно.
Или это у кого то уже реализовано?
 
Sergii Skrypai, аналог
Изменено: Jack Famous - 14.08.2019 08:54:42
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Здравствуйте, Николай!
Часто пользуюсь функцией Textsplit (разделение слипшегося текста) из Plex.
Хотелось бы, чтобы эту функцию превратили в полноценный инструмент и добавили ее в группу инструментов для работы с текстом.
В чем проблема: работаю с большими таблицами текстовых данных, набранных неправильно. Использую Textsplit для чистки. Но для этого надо сделать копию листа, на другом листе указать диапазон с первого, откуда брать данные, а потом еще превратить то, что получилось, в значения.
Хочется, чтобы просто выделил необработанные данные, нажал на кнопку - и получил красивую таблицу (без лишнего копирования).
Изменено: alexnewsky - 18.08.2019 22:49:44
 
Накопилось малях  :D
ПОПРАВИТЬ
Выпадающий список с автопоиском" (своё видение инструмента тут)
    • поиск по маске
    • учитывать формат

Фильтровать по выделению (своё видение инструмента тут)
    • поиск по маске
    • учитывать формат
Если не менять инструмент по типу (оставить без поиска, т.к. это всё-таки форматирование по-выделению), то с форматами всё-равно нужно что-то делать…

Сборка листов из нескольких книг
    • маска для сбора данных с разных листов (уже учтено)
    • копировать скрытые и суперскрытые листы (не проверял)
    • отключить события (Application.EnableEvents = False), улучшить обход ошибок и открывать файл (для копирования листов) с такими параметрами:
Код
Workbooks.Open FileName:=ИмяФайла, UpdateLinks:=False, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, CorruptLoad:=xlRepairFile
ДОБАВИТЬ
    • Переименование листов по списку (возможно с маской и регулярками, возможно встроить в менеджер)
    • Переименование файлов по списку (возможно с маской и регулярками, возможно добавить в Книга-Файлы)
    • Функции МИНЕСЛИ и МАКСЕСЛИ, т.к. у большинства нет современных версий, где они встроены
    • Функции склейки текста: добавить параметр "только уникальные" или сделать новую функцию типа
=RangeToText(Диапазон; Optional Разделитель$=" ";  Optional ПустыеУчаствуют As Boolean; Optional ТолькоУникальные As Boolean)

Спасибо  :idea:
Изменено: Jack Famous - 23.08.2019 09:45:11
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Наряду с функцией отправить по Email, лист по Email неплохо бы было иметь команду "отправить" с выбором  отправки мессенджером, Viber, Telegram?
 
viktor-r-r-r,  :D я думаю с такой реализацией стоимость надстройки добавит тысяч 5-10 ))))))
 
Wild.Godlike, да это просто на фиг не нужно с предстоящим геморроем  :D
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Страницы: 1
Наверх