【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が列のことです。
ここの数値を変更することで、「ダブルクリックしたら〇が入力される」範囲を変えることができます。
◇使い方
実際に動かしてみましょう。
対象エリアでダブルクリックしてみると....
はい。〇が入力されました。
ちなみに〇が入力されているセルをダブルクリックすると....
〇が消えましたね!
◇最後に
非常にシンプルなマクロですが、意外と使える機会は多いです。
「〇とタイピングするのが面倒臭い」
「プルダウンで選ぶのが面倒臭い」
そんな時に試してみてください。
これも誰かの参考になると嬉しいです。