Як встановити значення за замовчуванням у розкривному списку перевірки даних у 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?