Excel VBAでスペースキー入力でレ点を付ける方法｜ダブルクリックをキー操作へ変更するコード例

Excelでチェック表や確認リストを作成する際、ダブルクリックでレ点（チェックマーク）を入力できるVBAを使っている人は多くいます。しかし、毎回ダブルクリックするのが手間に感じ、「スペースキーだけでレ点を入れたい」と考えるケースもあります。この記事では、Excel VBAでスペースキーを押した時にレ点を入力・削除できる仕組みや、実装時の注意点についてわかりやすく解説します。

ダブルクリック入力はよく使われる方法
スペースキー入力に変更する考え方
スペースキーでレ点を切り替えるコード例
コードをどこへ入れるのか
1. 基本手順
スペースキー操作の注意点
レ点以外の記号へ変更も可能
まとめ

ダブルクリック入力はよく使われる方法

Excel VBAでは、「Worksheet_BeforeDoubleClick」を使って、セルをダブルクリックした時に処理を実行する方法がよく使われます。

例えば、以下のような用途があります。

用途	内容
チェック表	レ点入力
出欠管理	○や✓を入力
進捗管理	完了マーク切替

ただし、ダブルクリックはマウス操作が必要になるため、キーボード中心の入力では効率が落ちることがあります。

スペースキー入力に変更する考え方

Excel VBAでスペースキー操作を実現する場合、「キー入力イベント」を利用します。

代表的なのが「Application.OnKey」を使う方法です。

これにより、スペースキーを押した時に特定のマクロを実行できます。

ただし、通常のスペース入力を上書きするため、対象範囲を限定することが重要です。

スペースキーでレ点を切り替えるコード例

例えば、T3:T520の範囲でスペースキーを押した時に、レ点を切り替えるコードは次のようになります。

Sub SetSpaceKey()
    Application.OnKey " ", "ToggleCheck"
End Sub

Sub ToggleCheck()
    Dim Target As Range
    Set Target = ActiveCell

    If Not Intersect(Target, Range("T3:T520")) Is Nothing Then
        If Target.Value = "" Then
            Target.Value = ChrW(252)
            Target.Font.Name = "Wingdings"
            Target.Font.Size = 16
        Else
            Target.Value = ""
        End If
        Target.Offset(1, 0).Select
    Else
        SendKeys " "
    End If
End Sub

このコードを使うと、指定範囲でスペースキー入力時にレ点をON/OFFできます。

また、入力後に下のセルへ自動移動する動作も維持できます。