Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как развернуть все листы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как развернуть все листы (Макросы/Sub)
Как развернуть все листы
Бубенчик Дата: Вторник, 25.06.2019, 09:14 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день, дорогие форумчане, на просторах интернета, (а скорее всего на Вашем супер форуме) во такой кодик, который скрывает ленту, сетку, строку формул и т .д, то есть на экране остается только поле с ячейками.
[vba]
Код
Sub ChangeInterface(Value As Boolean)
    With Application
        .ScreenUpdating = False
        .Caption = IIf(Value = True, Empty, "#Èãðà ÑÄ")
        .DisplayStatusBar = Value: .DisplayFormulaBar = Value
        Dim iCommandBar As CommandBar
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = Value
        Next
        With .ActiveWorkbook
            .Caption = IIf(Value = True, .Parent.Name, "")
            .DisplayHeadings = Value: .DisplayGridlines = Value
            .DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
            '.DisplayWorkbookTabs = Value
        End With
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
        .ScreenUpdating = True
    End With
End Sub
[/vba]

Я к Вам за помощью, книга открывается на первом листе, и после разворота листа на весь экран на листе 2 и 3 остаются сетка и заголовки, как сделать так, что бы сетка и заголовки пропадали на всех листах, а не только на первом? заранее спасибо!


Я тута новичок
 
Ответить
СообщениеДобрый день, дорогие форумчане, на просторах интернета, (а скорее всего на Вашем супер форуме) во такой кодик, который скрывает ленту, сетку, строку формул и т .д, то есть на экране остается только поле с ячейками.
[vba]
Код
Sub ChangeInterface(Value As Boolean)
    With Application
        .ScreenUpdating = False
        .Caption = IIf(Value = True, Empty, "#Èãðà ÑÄ")
        .DisplayStatusBar = Value: .DisplayFormulaBar = Value
        Dim iCommandBar As CommandBar
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = Value
        Next
        With .ActiveWorkbook
            .Caption = IIf(Value = True, .Parent.Name, "")
            .DisplayHeadings = Value: .DisplayGridlines = Value
            .DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
            '.DisplayWorkbookTabs = Value
        End With
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
        .ScreenUpdating = True
    End With
End Sub
[/vba]

Я к Вам за помощью, книга открывается на первом листе, и после разворота листа на весь экран на листе 2 и 3 остаются сетка и заголовки, как сделать так, что бы сетка и заголовки пропадали на всех листах, а не только на первом? заранее спасибо!

Автор - Бубенчик
Дата добавления - 25.06.2019 в 09:14
китин Дата: Вторник, 25.06.2019, 09:41 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5882
Репутация: 914 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Добрый. скорее всего надо добавить в код
[vba]
Код
[sup]Dim wsSh As Worksheet
For Each wsSh In Sheets[/sup]
'ВАШ КОД
Next wsSh
[/vba]
Не проверял


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеДобрый. скорее всего надо добавить в код
[vba]
Код
[sup]Dim wsSh As Worksheet
For Each wsSh In Sheets[/sup]
'ВАШ КОД
Next wsSh
[/vba]
Не проверял

Автор - китин
Дата добавления - 25.06.2019 в 09:41
_Boroda_ Дата: Вторник, 25.06.2019, 09:44 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15577
Репутация: 6078 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Нет, это макрос уважаемого EducatedFool https://excelvba.ru/code/HideCommandBarsAndRibbon

Просто переберите все листы книги
Примерно вот так
[vba]
Код

Private Sub ChangeInterface(Value As Boolean)
    With Application
        .ScreenUpdating = False
        .Caption = IIf(Value = True, Empty, "Наше окно")
        .DisplayStatusBar = Value: .DisplayFormulaBar = Value
        Dim iCommandBar As CommandBar
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = Value
        Next
        Set sh0 = ActiveSheet
        For Each sh In ThisWorkbook.Sheets
            sh.Activate
            With .ActiveWindow
                .Caption = IIf(Value = True, .Parent.Name, "")
                .DisplayHeadings = Value: .DisplayGridlines = Value
                .DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
                .DisplayWorkbookTabs = Value
            End With
        Next sh
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
        .ScreenUpdating = True
        sh0.Activate
    End With
End Sub

Private Sub УбратьВсё()
    ChangeInterface False
End Sub

Private Sub ВосстановитьИнтерфейс()
    ChangeInterface True
End Sub
[/vba]
К сообщению приложен файл: 571578.xlsm(18.6 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНет, это макрос уважаемого EducatedFool https://excelvba.ru/code/HideCommandBarsAndRibbon

Просто переберите все листы книги
Примерно вот так
[vba]
Код

Private Sub ChangeInterface(Value As Boolean)
    With Application
        .ScreenUpdating = False
        .Caption = IIf(Value = True, Empty, "Наше окно")
        .DisplayStatusBar = Value: .DisplayFormulaBar = Value
        Dim iCommandBar As CommandBar
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = Value
        Next
        Set sh0 = ActiveSheet
        For Each sh In ThisWorkbook.Sheets
            sh.Activate
            With .ActiveWindow
                .Caption = IIf(Value = True, .Parent.Name, "")
                .DisplayHeadings = Value: .DisplayGridlines = Value
                .DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
                .DisplayWorkbookTabs = Value
            End With
        Next sh
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
        .ScreenUpdating = True
        sh0.Activate
    End With
End Sub

Private Sub УбратьВсё()
    ChangeInterface False
End Sub

Private Sub ВосстановитьИнтерфейс()
    ChangeInterface True
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 25.06.2019 в 09:44
Бубенчик Дата: Вторник, 25.06.2019, 10:22 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Нет, это макрос уважаемого EducatedFool

Да, точно, значит на этом форуме искал, Спасибо огромное!) EducatedFool рулит B)


Я тута новичок
 
Ответить
Сообщение
Нет, это макрос уважаемого EducatedFool

Да, точно, значит на этом форуме искал, Спасибо огромное!) EducatedFool рулит B)

Автор - Бубенчик
Дата добавления - 25.06.2019 в 10:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как развернуть все листы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!