MENU
  • Soft/App

Category カテゴリカテゴリ

PC/Gadget パソコン・ガジェット
Soft/App ソフト・アプリ
Entertainment エンタメ・イベント
Shopping お買い物
D.I.Y. セルフリフォーム
Download ダウンロード

パソコン関連のお得情報

マイクロソフトオフィス
マッキントッシュ
ウインドウズ
Adobe イラストレーター
ワードプレス
Apple iPhone
iPad & Apple Pencil
アプリ

©Goblog ごぶろぐ
created by N/A | powerd by SWELL

ソフトやガジェットのPR記事依頼はお気軽にお問い合わせください
  • Soft/App

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

Excelダブルクリックするだけで丸を入力するVBA

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

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

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

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

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

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

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

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

  • 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

作成方法の動画実演

この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」ではなく、使いたいシートに貼り付けてください。

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

6行目の .Value = “
7行目の Case “

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

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

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

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

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

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

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

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

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

私も実際に無料で読みましたが、VBAの登録方法は勿論、関数の意味もとても分かりやすく説明されています。
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 = "中"
            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

背景色を変更したい場合

.Interior.Color = RGB(255, 0, 0)の数値を変更してください。

まとめ:コードを変更すればダブルクリックだけで色々なことができる

今回ご紹介したコードを色々カスタマイズすることで、ダブルクリックだけでできることが増えるので効率はかなりアップすると思います。

「これにもうちょっと付け足してやりたいことがある」
「あと少し、ここをこうしたい」
「でもVBAが分からない・・・・」
そんな方には無料で読めるすぐ実践できる!私も読んだVBA入門本をおすすめします。

もっと「Excelの時短技・VBAについて学びたい」という方に朗報です

Kindle読み放題の無料体験をを利用して、Excelの時短技や便利技を無料で学べるチャンスです。

仕事のあらゆる場面で役立つ
「グラフ」作成のすべてが分かる

\2回目3回目も無料で体験できる/

1日2時間かかっていた作業を
5分で終わらせる時短のコツ

\2回目3回目も無料で体験できる/

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

\2回目3回目も無料で体験できる/

「ピボットテーブル」はマウス操作で
高度な集計を行える便利な機能です

\2回目3回目も無料で体験できる/

現行のすべてのバージョンに
対応した全484関数を解説

\2回目3回目も無料で体験できる/

Excelで行っている定型業務を自動化でき、
仕事の能率を大幅に高められます。

\2回目3回目も無料で体験できる/

Kindle Unlimitedtってなに?

Amazonが提供する電子書籍の読み放題サービスのことです。

Kindle=電子書籍
Unlimited=読み放題

ごん

Kindle Unlimitedは無料で何回も体験できるって知っていますか?私は実際に4回無料体験済みです。一度利用していても無料のチャンスは大いにありますよ(無料体験につてのまとめ記事

もし無料キャンペーンが使えなくても、2ヶ月99円のキャンペーンも何度もやっています

Kindle Unlimitedの99円キャンペーンを何度も利用するためには?

下のボタンからAmazonを開いて「無料体験」の表示が出るか確認してみましょう

\ Amazonで確認 /

仕事のあらゆる場面で役立つ
「グラフ」作成のすべてが分かる

\2回目3回目も無料で体験できる/

1日2時間かかっていた作業を
5分で終わらせる時短のコツ

\2回目3回目も無料で体験できる/

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

\2回目3回目も無料で体験できる/

「ピボットテーブル」はマウス操作で
高度な集計を行える便利な機能です

\2回目3回目も無料で体験できる/

現行のすべてのバージョンに
対応した全484関数を解説

\2回目3回目も無料で体験できる/

Excelで行っている定型業務を自動化でき、
仕事の能率を大幅に高められます。

\2回目3回目も無料で体験できる/

また、VBAに限らずエクセルには知らないだけでもっと便利な時短技が存在します。

たとえば、私も利用していますが、コピーする際にはCtrl+DCtrl+Rを使い、マウス・クリックを使わず時短で行います。
このようなExcelの時短技は、ネットで検索すればその都度説明サイトを発見することができます。

このブログでもExcelのショートカットをまとめた記事を書いています。

時短や便利技が好きな方は、エクセルだけに限らずWindowsのパソコンを効率よく使えるショートカット集の記事もぜひ参考にしてください。

これを全部覚えれば、マナブさんのようなすばらしく早いパソコン操作に近づけると思います。

ごん

その他にも便利なEXCEL小技や無料テンプレートの配布を行っています

管理人:ごん(デザイナー)

管理人:ごん(デザイナー)

「時短・楽したい」がモットー!Twitterでも情報公開しています
記事のライティング依頼やPR記事依頼・広告掲載のご依頼も受付中

よかったらシェアしてね!
  • URLをコピーしました!
目次