Как да изчистите съдържанието на комбинираното поле с VBA код в Excel?
Обикновено можете да изчистите съдържанието на разгъващ се списък, като изчистите данните от списъка с входен диапазон. Но какво ще кажете за изчистване на съдържанието на всички комбинирани полета в работен лист на Excel? Тази статия подготвя два VBA кода, за да ви помогне не само да изчистите съдържанието на разгъващ се списък, но и да изчистите съдържанието на всички разгъващи се полета едновременно в работен лист на Excel.
Лесно изчистване на съдържанието на комбинираното поле чрез VBA код
Лесно изчистване на съдържанието на комбинираното поле чрез VBA код
Двата VBA кода по-долу могат да ви помогнат да изчистите съдържанието на комбинирано поле или всички комбинирани полета в активния работен лист. Моля, направете следното.
1. В работния лист трябва да изчистите съдържанието на разгъващ се списък, моля, натиснете Друг + F11 ключове едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте под VBA кода в прозореца на кода.
VBA 1: Изчистване на съдържанието на разгъващ се списък в работен лист
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End Sub
Забележка: В кода „Падащо меню 2“ е името на разгъващия се списък, от който ще изчистите съдържанието. Моля, променете го на свой собствен.
VBA 2: Изчистване на съдържанието на всички комбинирани полета в активния работен лист
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub
3. Натисни F5 или щракнете върху бутона Изпълнение, за да изпълните кода.
След това можете да видите, че съдържанието е изчистено в посоченото комбинирано поле или всички комбинирани полета в активния работен лист, както е показано на екранната снимка по-долу:
Забележка: кодовете на VBA могат да бъдат приложени както към комбинирано поле (контрола на формуляр), така и към комбинирано поле (контрола ActiveX).
Още по темата:
- Как да изчистите съдържанието и форматирането едновременно в клетки в Excel?
- Как да изчистите съдържанието на именуван диапазон в Excel?
- Как да изчистите ограничени стойности в клетки в Excel?
- Как да изчистя определено съдържание на клетка, ако стойността на друга клетка се промени в Excel?
- Как да изчистя определено съдържание на клетка при отваряне и излизане в работна книга на Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!