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

Как удалить или скрыть границы групповых полей в Excel?

В Excel вы можете создать несколько групповых полей, чтобы сгруппировать несколько переключателей для ответа на вопрос с несколькими вариантами ответов, поэтому вокруг переключателей будут групповые поля, а линии полей будут выглядеть беспорядочно, потому что линии не такие прямые, как ячейки. В этой статье я расскажу вам о некоторых приемах, позволяющих скрыть или удалить границы или линии из групповых полей, чтобы рабочий лист был более наглядным, как показано на следующем снимке экрана:

документ скрыть границы поля группы 1

Удалять или скрывать границы групповых полей одним кодом

Удаление или скрытие границ групповых полей с помощью кода VBA


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

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

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

2, Затем нажмите Ctrl + G для открытия Немедленная окно, в Немедленная окно, введите этот код: activesheet.groupboxes.visible = ложь, см. снимок экрана:

документ скрыть границы поля группы 2

3. После ввода кода, а затем нажмите Enter key, и теперь вы можете видеть, что границы групповых полей сразу скрываются.

Внимание: Чтобы снова отобразить границы, примените этот код: activesheet.groupboxes.visible = истина, и нажмите Enter .


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

Помимо приведенного выше кода, вот еще один код VBA, который также может вам помочь. Сделайте следующее:

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

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

Код VBA: удалить или скрыть границы групповых полей:

Sub ToggleVisible()
Dim myGB As GroupBox
For Each myGB In ActiveSheet.GroupBoxes
myGB.Visible = False
Next myGB
End Sub

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

документ скрыть границы поля группы 1


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (2)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Очень хороший кусок кода, спасибо. Помогли решить проблему клиента! Можно переключить его: Sub ToggleVisible() Dim myGB As GroupBox Для каждого myGB в ActiveSheet.GroupBoxes myGB.Visible = IIf(myGB.Visible, False, True) Next myGB End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет, ребята,
мне нужно выбрать несколько кнопок, чтобы суммировать мои баллы. если это возможно, пожалуйста, предложите мою идею?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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