セルをダブルクリックしたら色を塗るようにした

紙の資料と画面のExcelの数値をチェックしたりすることはないだろうか？

残念ながらありまくりである。

今回はこの作業を少しでも楽にできないかとアドオン作ったお話

現在の作業
シートイベントの活用
- シートイベントの挿入
シートイベントの内容記入
- ColorConstans(カラー定数)
- Cancel = True(イベントキャンセル)
まとめ

現在の作業

紙に定規を当て内容を目検し、画面上のExcelの内容をチェック。

Excelでチェックした内容にチェック済みという意味でマークを付けたりしないだろうか。
私の場合は該当項目の横のセルに「１」を入力するか、該当セルに色を付けることが多い。

色を塗るパターンの場合、以下のような動きになる
f:id:ExcelLover:20210116144807g:plain

該当項目を選択
右クリックしてメニューを表示
色塗りボタンをクリック

セルを選択した後の動作がなんともめんどくさい。
セルをクリックしたときに念を送ると色を塗ってくれると良いのだが、残念ながらそこまでのテクノロジーは備え付けらていない。

代替案として該当セルをダブルクリックすると色を塗る機能を作成することにした。

シートイベントの活用

今回のゴールはアドイン機能で上記の機能を実現することだが、まずは単体のブック上で実現する方法を紹介する。

シートイベントの挿入

まずはVBEを開く。(ショートカットキーは Alt + F11)
f:id:ExcelLover:20210116144929j:plain

セルをダブルクリックすると色を塗りたいシートを選択する。
今回は「Sheet１」を選択している。

f:id:ExcelLover:20210116145001j:plain

「ダブルクリック」イベントを作成する。オブジェクトから「Worksheet」を選択後、イベント種類から「BeforeDoubleClick」を選択 f:id:ExcelLover:20210116145053g:plain

これでSheet１でセルをダブルクリックするとマクロを発動する準備が整いました。
作業の途中で記載されてしまったPrivate Sub Worksheet_SelectionChange～End Subは削除しても大丈夫です。

シートイベントの内容記入

次にシートをダブルクリックした時に発動させたいコードを記載します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     With Target.Interior
          If .ColorIndex = xlNone Then
               .Color = vbRed
          Else
               .Color = xlNone
          End If
     End With
     Cancel = True
End Sub

コードの意味としては下記のようになります。

ダブルクリックしたセルに色塗りつぶしがなければ
赤く塗る。
そうでない場合は
色塗りつぶしをクリア
ダブルクリックイベントを無かったことにする

ColorConstans(カラー定数)

セルに色を塗るにはRange.InteriorのColorプロパティを使用します。

定数	色
vbBlack	黒
vbRed	赤
vbGreen	緑
vbYellow	黄
vbBlue	青
vbMagenta	紫
vbCyan	シアン(水色)
vbWhite	白

docs.microsoft.com

上記以外の色を使いたい場合は色の番号を直接入力することで使用することが出来ます。
例えば私は上記には無いオレンジを使用したいので以下の方法で色番号を調べました。

f:id:ExcelLover:20210116145155g:plain

上記の様にマクロの記録を行うと下記のコードを得ることが出来ます。

Sub Macro2()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("F40").Select
End Sub

上記コード内の「.Color = 49407」の49407がオレンジ色の色番号になります。
この番号を最初のコードのvbRedと置き換えます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     With Target.Interior
          If .ColorIndex = xlNone Then
               .Color = 49407
          Else
               .Color = xlNone
          End If
     End With
     Cancel = True
End Sub