Применить форматирование, не открывая вкладки Инструменты

RSS

panix1111

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

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

11.02.2017 14:45:26

Есть макрос, для красивости в конце добавлено:

Код

Sub ForTable(end_rng)
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$E$" & end_rng & "")).Name = "Table1"
        'No go in 2003
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight20"
End Sub

Собственно, все работает, табличка становится красивенькой, но проблема в другом - по умолчанию мне надо скрывать все стандартные ексельные вкладки с риббона. А этот макрос открывает вкладку Table Tools, и что еще хуже -она остается активной, вместо моей самописной риббоновской.
Как это пофиксить?

Мы в Екселе не работаем, мы в нём живём!

Sanja Модератор Сообщений: 16562 Регистрация: 10.01.2013	#2 13.02.2017 15:52:17 Исполните еще раз код своей самописной фукции Согласие есть продукт при полном непротивлении сторон

panix1111 Пользователь Сообщений: 149 Регистрация: 14.01.2016	#3 18.02.2017 17:39:49 ? макрос вызывается в цикле раз двадцать, правда для каждой страници - только раз Мы в Екселе не работаем, мы в нём живём!

Sanja Модератор Сообщений: 16562 Регистрация: 10.01.2013	#4 18.02.2017 17:42:24 Тогда не выполняйте. Что можно еще сказать не видя ни файла, ни, хотя-бы, Вашей функции? Согласие есть продукт при полном непротивлении сторон

panix1111 Пользователь Сообщений: 149 Регистрация: 14.01.2016	#5 18.02.2017 17:44:32 листинг я привел. Рибон - банальная UserRibbon.xml, подсунутая внутрь ексельки Мы в Екселе не работаем, мы в нём живём!

Sanja

Модератор

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

18.02.2017 17:50:38

Код

Sub ForTable()
Application.ScreenUpdating = False
    With ActiveSheet
        .ListObjects.Add(xlSrcRange, Range("$A$1:$E$10")).Name = "Table1"
        .ListObjects("Table1").TableStyle = "TableStyleLight20"
        .Range("F1").Select
    End With
Application.ScreenUpdating = True
End Sub

Согласие есть продукт при полном непротивлении сторон