如何在 Excel 的下拉列表中添加勾號和叉號符號？

通常，在使用「符號」功能插入勾號和叉號符號並以它們作為數據源創建下拉列表後，結果會顯示為 ü 或 û，而不是預期的符號。本指南將展示如何在下拉單元格中顯示實際的 ✓ 和 來自下拉列表的符號。以下 VBA 方法將幫助您在 Excel 中創建勾號和叉號的下拉列表。

使用 VBA 程式碼添加勾號和叉號符號到下拉列表

使用 VBA 程式碼添加勾號和叉號符號到下拉列表

使用以下 VBA 程式碼，您可以將勾號和叉號的下拉列表插入到 Excel 中的指定單元格。請按照以下步驟操作。

1. 在您要創建勾號和叉號下拉列表的工作表中，右鍵單擊工作表標籤，然後從上下文菜單中選擇 檢視程式碼 。

2. 接著會打開 Microsoft Visual Basic for Applications 視窗，請將以下 VBA 程式碼複製到程式碼窗口中。

VBA 程式碼 1：將勾號和叉號符號添加到下拉列表

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180703
    If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
    If Target.Value = "Tick" Then
        Target.Value = "P"
    ElseIf Target.Value = "Cross" Then
        Target.Value = "S"
    End If
End Sub

3. 繼續點擊 插入 > 模組 ，然後將以下程式碼 2 複製到模組窗口中。

VBA 程式碼 2：將勾號和叉號符號添加到下拉列表

Sub usingSymbols()
'Update by Extendoffice 20180703
    Dim xRg As Range
    Set xRg = Range("B1:B10")
    xRg.Font.Name = "Wingdings 2"
    xRg.Validation.Add xlValidateList, , , "Tick,Cross"
End Sub

注意：在上述程式碼中，B1:B10 是您要創建勾號和叉號下拉列表的單元格區域。請根據需要更改該區域。

4. 按 F5 鍵運行程式碼。

現在，勾號和叉號符號的下拉列表已插入到 B1:B10 區域中。從下拉列表中選擇「勾號」將在單元格中插入 ✓，選擇「叉號」則會顯示 符號。請參見截圖：

相關文章：

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