EXCELでダブルクリックだけで丸やペケの記号・数字を入力する方法

2019年10月1日2024年4月9日

仕事での工程表・見積作成、プライベートでの家計簿・予定表など。
EXCELを利用する機会は人それぞれ、様々ですが、効率よくExcelを使いたい気持ちは同じはず。

そこで、この記事ではコピペするだけで簡単に使える「セルをダブルクリックすると指定した文字や記号を入力する」方法をご紹介します。

この記事で紹介する方法は、EXCELのVBAを利用しています。

EXCELのVBAの登録方法を知りたい方はEXCELで便利なマクロ・関数を使って作業効率を上げる方法まとめから先にお読みください

Goblog ごぶろぐ

EXCELでマクロ・関数・ショートカットで作業効率を上げる方法まとめ | Goblog ごぶろぐ仕事での工程表・見積作成、プライベートでの家計簿・予定表など、EXCELを利用する機会は様々。効率よくEXCELを使用するために、便利なVBA、マクロや関数をまとめました。…

余談：Excelにはまだまだ便利な技がいっぱいあります

当ブログでは、効率よくEXCELを使用するために、便利なVBA・マクロや関数をまとめています。
また、業務の効率をあげる工程表のテンプレートなども無料で配布しています。

EXCELではこんなこともできます

セルをダブルクリックすると指定した文字や記号を入力する
土日祝日に色をつけたり、曜日を自動で表示する
シート名を拾って自動で目次シートを作り、そのページに飛ぶようにリンクを付ける
指定したセルの値をシート名に利用する
右クリックのメニューを追加して、右クリックから線や円を描く

業務に直結のテクニックを最小時間でマスター！

KindleUnlimitedの無料体験でタダで読める
いつでもどこでも読める電子書籍版

KindleUnlimitedで読める

この小技でできること

ダブルクリックで表示される記号や文字はカスタムできる
~~※ただし特殊記号等は使えない~~
Chr、ChrB、ChrW関数をつかえば特殊文字も使えます
空白のセルをダブルクリックすると記入できる
※指定した文字以外の文字が入っていた場合は、ダブルクリックしても変化が起きない
もう一度ダブルクリックすると空白に戻る。以降繰り返し
ダブルクリックで反応する範囲を自分でカスタマイズできる

ダブルクリックするだけで文字や記号を入力

使用例の動画

まずはどんなものか動画を確認ください。

少しわかりにくいですが、○が入力・削除されているときのEXCEL上での操作は「マウスで左ダブルクリック」のみです。

セルをダブルクリックで記号入力：作成方法

以下VBAをコピペするだけでOKです。
VBAの登録の方法はこちらから。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:AZ1000")) Is Nothing Then Exit Sub
    With Target
        Select Case .Value
            Case ""
                .Value = "○"
            Case "○"
                .Value = ""
        End Select
    End With
End Sub

作成方法の動画実演

Windows用

時間短縮の「Excelマクロ集」

EXNo.001

Excel：プルダウン一括出力マクロ

ドロップダウンリストの上から順にすべて自動でPDF・印刷するVBA

Excelマクロで「入力規制のプルダウン（ドロップダウンリスト）を上から順番に変更して自動ですべて印刷・PDF保存するVBA」の配布

Boothでダウンロード

使い方はこちらから

EXNo.002

Excel：工事看板作成支援マクロ

エクセル上で工事黒板を作成して写真に貼り付ける写真台帳

Excelで工事看板・工事黒板を作成して写真に貼り付けることができる工事写真台帳

Boothでダウンロード

使い方はこちらから

EXNo.003

Excel：タグづけ支援マクロ

ストックイラストやSNSのタグ管理に

エクセルVBAでストックイラストやSNSで使えるタグやハッシュタグを管理して一括登録する方法

Boothでダウンロード

使い方はこちらから

EXNo.004

Excel：SRTチェッカー

字幕データ翻訳語のエラーチェックに

Boothでダウンロード

使い方はこちらから

EXNo.005

Excel：期間指定印刷マクロ

テンプレート作成など書類作成に

Boothでダウンロード

使い方はこちらから

EXNo.007

Excel：半角全角変換ツールバーマクロ

他の人が作ったExcelデータの修正に

Boothでダウンロード

使い方はこちらから

EXNo.007

Excel：A1形式とR1C1参照形式を簡単に切り替える

Vlookupの時の列番号確認の際など

Boothでダウンロード

使い方はこちらから

EXNo.007

Excel：オリジナルショートカット追加

アドインだから、どのExcelでも使える

excelの結合や選択範囲で中央揃え、罫線などのオリジナルショートカットを追加する方法

Boothでダウンロード

使い方はこちらから

このVBAを利用する際の変更箇所や注意点

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:AZ1000")) Is Nothing Then Exit Sub
    With Target
        Select Case .Value
            Case ""
                .Value = "○"
            Case "○"
                .Value = ""
        End Select
    End With
End Sub

VBAを貼り付ける場所

VBAは「this word book」ではなく、使いたいシートに貼り付けてください。

ダブルクリックで入力する文字の変更方法

６行目の　.Value = "○"
７行目の　Case "○"

の○の部分を変更することで、ダブルクリックで好きな記号や文字を入力することが可能です。

注１：○の部分は２カ所とも同じ文字を記入
注２：Chr、ChrB、ChrW関数を使えば特殊文字も利用できます

✓（チェック）を〇の代わりに入れたい場合は、”〇”の部分を　ChrW(&H2713)　に変更してください
※レ点を入れたい場合は”レ”でOKです。

ダブルクリックで対応する範囲の変更

１行目の(Target, Range("A1:AZ1000")の範囲を変更すれば、ダブルクリックで反応する範囲を指定できます。

ダブルクリックだけでセルに入力の応用編

自分好みにカスタマイズしたい場合

「これにもうちょっと付け足してやりたいことがある」
「あと少し、ここをこうしたい」
「でもVBAが分からない････」

意味不明のVBAをコピペするだけでなく、理解したい人には無料で読めるすぐ実践できる「ふりがなつき」のやさしいVBA入門本をおすすめします。

私も実際に無料で読みましたが、VBAの登録方法は勿論、関数の意味もとても分かりやすく説明されています。
VBAにふりがながふってあるので、字幕付きの映画を観る感覚で勉強できます。
気になる方は、下記記事でこの本のレビューをしていますので参考にしてください。

Goblog ごぶろぐ

今だけ無料！VBAを一から学ぶなら「ふりがな」付きの入門本がおすすめ | Goblog ごぶろぐスラスラ読めるExcel　VBAふりがなプログラミングは現在KindleUnlimitedではよめなくなっています。その代わりにAmazonPrime会員であれば、無料で読むことが可能です。＼ ...

その他、ダブルクリックで日付を入れるなど、簡単なカスタマイズを以下でご紹介します。

ダブルクリックするたびに文字をローテーションさせる

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:AZ1000")) Is Nothing Then Exit Sub
    With Target
        Select Case .Value
            Case ""
                .Value = "小"
            Case "小"
                .Value = "中"
            Case "中"
                .Value = "大"
            Case "大"
                .Value = ""
        End Select
    End With
End Sub

上記のように設定すれば、空白→大→中→小→空白とローテーションさせることも可能です。
文字を入れ替えることで、〇→△→□→空白、△→〇→×→空白など様々応用をきかせることができます。

セルが空白の場合、ダブルクリックで日付を入力する

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:AZ1000")) Is Nothing Then Exit Sub
    With Target
        Select Case .Value
            Case ""
                .Value = Date

        End Select
    End With
End Sub

上記の場合は、空白のときだけダブルクリックで日付が入力されます。
一度入力された場合、再度ダブルクリックしても消えません。

セルにダブルクリックで色を塗る（背景色）

セルが空白の時だけ、ダブルクリックで塗りつぶしを行う

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:AZ1000")) Is Nothing Then Exit Sub
    With Target
        Select Case .Value
            Case ""
                .Interior.Color = RGB(255, 0, 0)
        End Select
    End With
End Sub

上記の場合は、空白のときだけダブルクリックで背景色をつけます。
一度色をつけた場合、再度ダブルクリックしても消えません。
文字が入っているセルにはダブルクリックしても背景色は塗られません。

セルに文字が入っている時だけ、ダブルクリックで塗りつぶしを行う

セルに何か入力されているときだけダブルクリックで背景色をつけます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:AZ1000")) Is Nothing Then Exit Sub
    With Target
        Select Case .Value
            Case ""
            Case Else
                .Interior.Color = RGB(255, 0, 0)
        End Select
    End With
End Sub

セルにダブルクリックで塗りつぶしを行う

セルが空白でも、そうでなくてもダブルクリックで背景色をつけます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:AZ1000")) Is Nothing Then Exit Sub
    With Target
        .Interior.Color = RGB(255, 0, 0)
    End With
End Sub