Как да премахнете всички бутони или командни бутони в Excel?
Тази статия говори за премахване на всички бутони за управление на формуляри или командни бутони от активен лист в Excel.
Премахнете всички бутони, включително бутоните за управление на формуляра и командните бутони, като ги изберете всички
Премахнете всички бутони, включително бутоните за контрол на формуляра и командните бутони чрез VBA код
Премахнете всички бутони за управление на формуляри или командни бутони с VBA код
Премахнете всички бутони, включително бутоните за управление на формуляра и командните бутони, като ги изберете всички
Моля, направете следното, за да премахнете всички бутони (включително бутони за контрол на формуляр и командни бутони) от активния работен лист.
1. Активирайте режима на проектиране, като щракнете Софтуерен Инженер > Режим на проектиране. Вижте екранна снимка:
2. Изберете един от командните бутони и натиснете Ctrl + A клавиши, за да изберете всички бутони в текущия работен лист.
3. Натисни Изтрий клавиш за изтриване на всички избрани бутони.
Забележка: Ако има други обекти в този работен лист, те също ще бъдат избрани.
Премахнете всички бутони, включително бутоните за контрол на формуляра и командните бутони чрез VBA код
Освен това можете да приложите по-долу VBA скрипт, за да премахнете всички бутони от текущия работен лист в Excel.
1. Отворете работния лист, който съдържа бутоните, които искате да премахнете, и след това натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след което копирайте по-долу VBA кода в прозореца на кода.
VBA код: Премахнете всички бутони от активния лист
Sub Clear_ButtonsActiveSheet()
Dim I As Long
Dim xOLE As Object
On Error Resume Next
ActiveSheet.Buttons.Delete
For Each xOLE In ActiveSheet.OLEObjects
If TypeName(xOLE.Object) = "CommandButton" Then
xOLE.Delete
End If
Next
End Sub3. Натисни F5 ключ за изпълнение на кода. След това всички бутони, включително бутоните за управление на формуляр и командните бутони, се премахват незабавно от текущия работен лист.
Премахнете всички бутони за управление на формуляри или командни бутони с VBA код
Ако искате само да премахнете всички бутони за управление на формуляр или всички командни бутони от активния лист. Можете да опитате долните VBA кодове, за да го постигнете.
1. Отворете работния лист, който съдържа бутоните, които искате да премахнете, и след това натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след което копирайте по-долу VBA кода в прозореца на кода.
VBA код: Премахнете всички бутони за управление на формуляр от активния лист
Sub Clear_ButtonsActiveSheet()
ActiveSheet.Buttons.Delete
End SubVBA код: Премахнете всички командни бутони от активния лист
Sub Clear_ButtonsActiveSheet()
Dim xOLE As Object
On Error Resume Next
For Each xOLE In ActiveSheet.OLEObjects
If TypeName(xOLE.Object) = "CommandButton" Then
xOLE.Delete
End If
Next
End Sub3. Натисни F5 ключ за изпълнение на кода.
След това всички бутони за управление на формуляр или всички командни бутони се премахват незабавно от текущия работен лист.
Още по темата:
- Как да вмъкна празен нов ред автоматично чрез команден бутон в Excel?
- Как да използвате командния бутон за запазване на активен работен лист като PDF файл в Excel?
- Как да актуализирате или вмъкнете (текуща) дата и час чрез команден бутон в Excel?
- Как да използвате команден бутон, за да промените определена стойност на клетка в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
