Excelのドロップダウンリストにチェックマークとクロス記号を追加するにはどうすればよいですか？

通常、シンボル機能を使用してセルに目盛りと十字記号を挿入し、それらをデータソースとしてドロップダウンリストを作成すると、結果はドロップダウンセルにüまたはûとして表示されます。 実際の表示方法✓と ドロップダウンリストからアイテムを選択した後のセル内の記号？ 以下のVBAメソッドは、Excelでティックとクロスのドロップダウンリストを作成するのに役立ちます。

VBAコードを使用してドロップダウンリストにチェックマークとクロス記号を追加します

VBAコードを使用してドロップダウンリストにチェックマークとクロス記号を追加します

以下のVBAコードを使用すると、Excelの指定したセルにチェックマークとクロスのドロップダウンリストを挿入できます。 次のようにしてください。

1.ワークシートで、目盛りと十字記号のドロップダウンリストを作成し、シートタブを右クリックして、を選択します。 コードを表示 コンテキストメニューから選択します。

2.次に、 アプリケーション向け Microsoft Visual Basic ウィンドウが開きます。以下の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

Note：上記のコードでは、B1：B10は、チェックマークとクロスのドロップダウンリストを作成するセルの範囲です。 必要に応じて範囲を変更してください。

4。 プレス F5 コードを実行するためのキー。

これで、目盛りと十字記号のドロップダウンリストが範囲B1：B10に挿入されます。 ドロップダウンから[ティック]を選択すると、✓がセルに挿入され、[クロス]を選択すると表示されます シンボル。 スクリーンショットを参照してください：

関連記事：

• Excelのドロップダウンリストで値を選択するときに他のセルに自動入力するにはどうすればよいですか？
• Excelのドロップダウンリストに入力するときにオートコンプリートするにはどうすればよいですか？
• Excelでドロップダウンリストカレンダーを作成するにはどうすればよいですか？
• Excelで複数の選択または値を含むドロップダウンリストを作成するにはどうすればよいですか？