Как да задам стойност по подразбиране в падащия списък за валидиране на данни в Excel?
Задаването на стойност по подразбиране в падащия списък за валидиране на данни помага на другите да идентифицират лесно клетките на падащия списък с един поглед в работен лист. Тази статия предоставя подробно VBA метод за задаване на стойност по подразбиране в падащия списък за проверка на данни.
Задайте стойност по подразбиране в падащия списък за валидиране на данни с VBA код
Задайте стойност по подразбиране в падащия списък за валидиране на данни с VBA код
Както на екранната снимка по-долу, да предположим, че всички клетки в диапазон B2:C7 съдържат падащ списък и искате да зададете стойност по подразбиране (казва - Изберете от списъка -) в тези падащи списъкове, преди да изберете стойности от тях. Можете да опитате следния VBA код.
1. Щракнете с десния бутон върху раздела на листа с падащите списъци, които трябва да зададете стойност по подразбиране, след което щракнете Преглед на кода от менюто.
2. В Microsoft Visual Basic за приложения прозорец, копирайте и поставете следния VBA код в прозореца на кода.
VBA код: задайте стойност по подразбиране в падащия списък за валидиране на данни
Sub DropDownListToDefault()
Dim xCell As Range
Dim xRg As Range
Dim xAcCell As Range
Dim xScreen As Boolean
On Error Resume Next
Set xAcCell = Application.ActiveCell
Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
If xRg Is Nothing Then
MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
Exit Sub
End If
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Validation.Type = 3 Then
If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
End If
Next
xAcCell.Select
Application.ScreenUpdating = xScreen
End Sub
Забележка: можете да промените стойността по подразбиране във VBA кода на тази, от която се нуждаете.
6. Натисни F5 ключ за изпълнение на кода. Можете да видите, че стойностите по подразбиране се добавят към всички клетки от падащ списък, както е показано на екранната снимка по-долу.
бележки:
Още по темата:
- Как да попълвам автоматично при въвеждане в падащия списък на Excel?
- Как да създадете календар с падащ списък в Excel?
- Как да създадете падащ списък с възможност за търсене в Excel?
- Как да създадете падащ списък с множество селекции или стойности в Excel?
- Как да попълвам автоматично други клетки при избиране на стойности в падащия списък на Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!