如何在 Excel 的資料驗證下拉列表中設定預設值？

在資料驗證下拉列表中設定預設值，可以幫助他人快速識別工作表中的下拉列表單元格。本文詳細介紹了一種使用 VBA 方法在資料驗證下拉列表中設定預設值的方式。

使用 VBA 程式碼在資料驗證下拉列表中設定預設值

使用 VBA 程式碼在資料驗證下拉列表中設定預設值

如下方螢幕截圖所示，假設範圍 B2:C7 中的所有單元格都包含下拉列表，並且您希望在這些下拉列表中設定一個預設值（例如 - 從列表中選擇 -），然後再從中選擇值。您可以嘗試以下 VBA 程式碼。

1. 右鍵點擊需要設定預設值的含有下拉列表的工作表標籤，然後從選單中點擊 檢視程式碼。

2. 在 Microsoft Visual Basic for Applications 視窗中，將以下 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 鍵執行程式碼。您可以看到所有下拉列表單元格中都添加了預設值，如下方螢幕截圖所示。

注意事項：

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章：

• 如何在 Excel 下拉列表中輸入時自動完成？
• 如何在 Excel 中創建下拉列表日曆？
• 如何在 Excel 中創建可搜尋的下拉列表？
• 如何在 Excel 中創建允許多個選擇或值的下拉列表？
• 如何在 Excel 下拉列表中選擇值時自動填充其他單元格？