器用貧乏の独り言

器用貧乏なおっさんが気の向くままに。

【VBA】ダブルクリックで〇を入力するマクロ

◇前置き

Excelでチェックリストを作ることってありませんか?
終わった項目に〇や済、と記入するリストが一般的ではないでしょうか。
そんなチェックリストを使っていて

「クリックで〇が入力できたらなぁ」

なんて思ったことありませんか?

今日はそんな時に使えるマクロを紹介します。

◇概要

例としてこんな感じのExcelを用意しました。

非常にシンプルなチェックリストです。

ソースコード

本日のソースコードはこんな感じです。
標準モジュールではなく、ワークシートの方にコピペしてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not (Target.Row >= 3 And Target.Row <= 9 And Target.Column >= 3 And Target.Column <= 7) Then End
   If Target.Value <> "" Then
       Target.Value = ""
       Cancel = True
   Else
       Target.Value = "〇"
       Cancel = True
   End If
End Sub

コピペして使う際は、この部分をお使いのシートに合わせて書き換えてください。

If Not (Target.Row >= 3 And Target.Row <= 9 And Target.Column >= 3 And Target.Column <= 7) Then End

.Rowが行、.Columnが列のことです。
ここの数値を変更することで、「ダブルクリックしたら〇が入力される」範囲を変えることができます。

◇使い方

実際に動かしてみましょう。
対象エリアでダブルクリックしてみると....

はい。〇が入力されました。
ちなみに〇が入力されているセルをダブルクリックすると....

〇が消えましたね!

◇最後に

非常にシンプルなマクロですが、意外と使える機会は多いです。
「〇とタイピングするのが面倒臭い」
「プルダウンで選ぶのが面倒臭い」
そんな時に試してみてください。
これも誰かの参考になると嬉しいです。