SnowLs (Автор тем)

Применение макроса к АКТИВНОЙ сводной таблице

Пользователь

Сообщений: 9 Регистрация: 27.02.2017

13.12.2017 13:15:56

Добрый день!

Макрорекордером записал макрос, который форматирует сводную таблицу как мне нужно:

Код

Sub Макрос1()
    With ActiveSheet.PivotTables("Сводная таблица 1")
        .ColumnGrand = False
        .HasAutoFormat = False
        .RowGrand = False
    End With

    ActiveSheet.PivotTables("Сводная таблица 1").ShowDrillIndicators = False
    ActiveSheet.PivotTables("Сводная таблица 1").RowAxisLayout xlTabularRow
End Sub

Вопрос: как сделать данный макрос универсальным, т.е. применять не к сводной с названием "Сводная таблица 1", а к той, которая активна (т.е. к той, на которой находится активная ячейка).
Может есть что-то вроде "ActiveSheet", но только к сводной, типа "ActivePivot"?

Поиск в интернете не дал понятного решения.

Спасибо!

Перейти

Макрос. Перевод из текстового в числовой формат.

SnowLs

Пользователь

Сообщений: 9 Регистрация: 27.02.2017

27.02.2017 14:56:51

Всем доброго дня!
Есть вопрос, подскажите пожалуйста.

Нужно перевести текст в столбце J в числа.
Файл с данными и макросом приложил. Макрос привязан к кнопке (находится на уровне столбца X).

Код макроса:

Код

    Columns("J").SpecialCells(xlCellTypeConstants, xlTextValues). _
    Replace What:=".", Replacement:="", LookAt:=xlPart                  'убираю точки

    Columns("J").Select
    Selection.TextToColumns                                             'форматирую как число
   
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False                                            'меняю точки на запятые
    
    Selection.TextToColumns                                             'форматирую как число

Код, сразу говорю, работает. Однако работает за 4 итерации, что на мой взгляд избыточно.
Можно ли сделать элегантнее/правильнее за 1 действие?
Интересует решение именно для файла, который приложен.

Перейти