Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Пожелания по увеличению функциональности Plex
 
Здравствуйте!
Раз уж есть такая ветка в форуме, то озвучу свои предложения по увеличению функциональности надстройки PLEX:
-размножить диапазон по листам;
-повторно запустить последнюю использовавшуюся утилиту.
Если что-то реализуете из этого буду признателен.
Изменено: AlDan - 29 Сен 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 Авг 2018 15:49:15
 
Vitoch, респект :) . Хороший макрос.
 
Добрый день!
-копировать сумму выделенных ячеек в буфер обмена

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

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