Note: The other languages of the website are Google-translated. Back to English

Как скрыть столбцы на нескольких листах в книге?

В Excel мы можем быстро скрыть столбцы на одном листе, но пробовали ли вы когда-нибудь скрыть столбцы сразу на нескольких листах? Обычно вы можете попытаться выбрать все листы и применить функцию «Скрыть», но это не сработает. В этой статье я расскажу о том, как быстро скрыть столбцы на нескольких листах?

Скрыть столбцы на нескольких листах в книге с кодом VBA


стрелка синий правый пузырь Скрыть столбцы на нескольких листах в книге с кодом VBA

Следующий код может помочь вам немедленно скрыть определенные столбцы на всех листах, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: скрыть столбцы сразу на нескольких листах:

 Sub Hide_Columns()
'Updateby Extendoffice
    Dim iWs As Integer
    Dim sCol As String
    On Error Resume Next
    sCol = Application.InputBox("Input entire column,Eg A:A OR A:B", _
                                "Kutools for Excel", , , , , , 2)
    If sCol = "" Then
        MsgBox "Empty columns", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    For iWs = 1 To ThisWorkbook.Worksheets.Count
        ThisWorkbook.Sheets(iWs).Columns(sCol).Hidden = True
    Next iWs
    On Error GoTo 0
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится окно подсказки, чтобы напомнить вам ввести столбцы, которые вы хотите скрыть на всех листах, см. снимок экрана:

док скрыть столбцы все листы 1

4. Затем нажмите OK Кнопка, указанные столбцы были скрыты сразу на всех листах.


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (5)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Я пытаюсь использовать этот код VBA, который вы сделали, чтобы скрыть несколько столбцов на нескольких листах. Но как я могу использовать его без окна сообщения...

Пожалуйста, помогите мне создать VBA, который будет скрывать сразу несколько столбцов на всех листах без большого количества окон сообщений?..


Мне очень нужен был такой код.


Пожалуйста помоги
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Треб,
Всплывающее окно сообщения может помочь вам вводить скрытые столбцы, которые вам нужны, удобно и динамично.
Этот комментарий был сведен к минимуму модератором на сайте
И VBA для отображения нескольких столбцов.

Заранее спасибо и дай бог здоровья
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Треб,
Чтобы отобразить все скрытые столбцы из всей книги, примените приведенный ниже код VBA:
Sub ShowHiddenColumns ()
Dim iWs как целое число
Dim sCol как строка
On Error Resume Next
Для iWs = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.sheets (iws) .columns.hidden = false
Следующие iWs
По ошибке GoTo 0
End Sub

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Как это сделать для строк?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL