Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Применить форматирование, не открывая вкладки Инструменты
 
Есть макрос, для красивости в конце добавлено:
Код
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, и что еще хуже -она остается активной, вместо моей самописной риббоновской.
Как это пофиксить?
Мы в Екселе не работаем, мы в нём живём!
 
Исполните еще раз код своей самописной фукции
Согласие есть продукт при полном непротивлении сторон.
 
?
макрос вызывается в цикле раз двадцать, правда для каждой страници - только раз
Мы в Екселе не работаем, мы в нём живём!
 
Тогда не выполняйте. Что можно еще сказать не видя ни файла, ни, хотя-бы, Вашей функции?
Согласие есть продукт при полном непротивлении сторон.
 
листинг я привел.  Рибон - банальная UserRibbon.xml, подсунутая внутрь ексельки
Мы в Екселе не работаем, мы в нём живём!
 
Код
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
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1
Читают тему (гостей: 1)