Прескочи на основното съдържание

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

Автор: Xiaoyang Последна промяна: 2016-05-30

В Excel можете да създадете някои групови полета, за да групирате множество бутони за опции за извършване на въпрос с множествен избор, така че ще има групови полета около бутоните за опции и линиите на полето изглеждат разхвърляни, защото линиите не са толкова прави, колкото клетките. В тази статия ще ви представя някои трикове за скриване или премахване на границите или линиите от груповите полета, за да направите работния лист по-ясно видим, както е показано на следната екранна снимка:

doc скрий границите на груповата кутия 1

Премахнете или скрийте границите от групови кутии с един код

Премахнете или скрийте границите от групови кутии с VBA код


стрелка син десен балон Премахнете или скрийте границите от групови кутии с един код

За да скриете или премахнете граничните линии на груповите полета, ето един скрипт, който може да ви помогне, моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. След това натиснете Ctrl + G за да отворите Непосредствен прозорец, в Непосредствен прозорец, въведете този код: activesheet.groupboxes.visible = невярно, вижте екранна снимка:

doc скрий границите на груповата кутия 2

3. След като въведете кода, и след това натиснете Въведете и сега можете да видите, че границите на груповите полета са скрити незабавно.

Забележка: За да покажете границите отново, моля, приложете този код: activesheet.groupboxes.visible = вярно, и натиснете Въведете ключ.


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

Освен горния код, ето друг VBA код, който също може да ви помогне, моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния код в Модули Window.

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

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

3. След това натиснете F5 ключ за изпълнение на този код, всички граници на груповите полета в активния работен лист са скрити наведнъж, вижте екранната снимка:

doc скрий границите на груповата кутия 1

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hello guys,
i need to select multiple button to sum my scores. if is this possible pls suggest my a idea.?
This comment was minimized by the moderator on the site
Very nice piece of code, thanks. Helped to sort out client problem! Can toggle it: Sub ToggleVisible() Dim myGB As GroupBox For Each myGB In ActiveSheet.GroupBoxes myGB.Visible = IIf(myGB.Visible, False, True) Next myGB End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations