目盛りとクロスマークをセルにすばやく挿入するにはどうすればよいですか？

ワークシートでは、デフォルトで記号機能を使用して目盛りと十字マークを挿入できますが、毎回XNUMXつの記号だけを挿入できると退屈になります。 この記事では、Excelに目盛りと十字マークをすばやく挿入するためのいくつかの秘訣について説明します。

ショートカット文字を使用してセルにチェックマークとクロスマークを挿入します

VBAコードを使用してセルにチェックマークとクロスマークを挿入します

ショートカット文字を使用してセルにチェックマークとクロスマークを挿入します

目盛りと十字マークをすばやく挿入するには、ショートカット文字「a」と「r」を使用すると便利です。 このようにしてください：

1。 目盛りと十字マークを挿入する列セルを選択してから、 Webdings 下のフォント ホーム タブ、スクリーンショットを参照してください：

2。 これで、セルに文字「a」を入力すると目盛りになり、文字「r」を入力すると十字マークになります。スクリーンショットを参照してください。

VBAコードを使用してセルにチェックマークとクロスマークを挿入します

これは、クリックするだけで目盛りと十字マークを挿入するためのもうXNUMXつのすばやく簡単な方法です。

1。 チェックマークとクロスマークを挿入するシートタブを右クリックして、 コードを表示 コンテキストメニューから、開いた状態で アプリケーション用のMicrosoftVisual Basic ウィンドウで、次のコードをコピーして空のモジュールに貼り付けます。

VBAコード：チェックマークとクロスマークをセルに挿入します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B2:B12")) Is Nothing Then
            With Target
                .Font.Name = "Wingdings"
                .Font.Size = 12
                If .FormulaR1C1 = " û " Then
                    .FormulaR1C1 = "ü"
                Else
                    .FormulaR1C1 = " û "
                End If
            End With
        End If
        Cancel = True
    End If
End Sub

注意：上記のコードでは、 B2：B12 目盛りと十字マークを挿入するセルです。必要に応じてセル参照を変更できます。

2。 次に、コードを保存してこのコードを閉じます。セルをXNUMX回ダブルクリックするとクロスマークが挿入され、XNUMX回クリックするとチェックマークが表示されます。スクリーンショットを参照してください。