【EXCEL】プルダウンを使用せずダブルクリックだけでリスト選択できる機能の実装

概要

仕事していてこれいいな、と思った機能・実装があったのでご紹介

通常EXCELでリスト選択というとプルダウン機能を思い浮かべる方がほとんどだと思います。
ただ、こんな場面に遭遇したことがないでしょうか？

操作の際、毎回右の▽ボタンを押すことがめんどい、、、

そんなあなたに朗報…！
VBAの実装を行うことで、ダブルクリックするだけの手間いらずなリスト機能が簡単に作れちゃいます！

実装

①VBEにて対象シートを開く

②以下コードを記述

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        
        'C列をダブルクリックしたら
        If .Column = 3 Then
            If .Value = "" Then
                .Value = "はい"
            ElseIf .Value = "はい" Then
                .Value = "いいえ"
            ElseIf .Value = "いいえ" Then
                .Value = "はい"
            End If
            
             'セル内編集をキャンセル
            Cancel = True
         End If
         
    End With
End Sub

動作デモ

ダブルクリックするだけで次々と入力できちゃいます！
「はい/いいえ」の切り替えもダブルクリックするだけ
これぞストレスフリーな世界線

拡張

選択肢を増やしたい場合もIf文内にコード追記するだけです。

        'C列をダブルクリックしたら
        If .Column = 3 Then
            If .Value = "" Then
                .Value = "はい"
            ElseIf .Value = "はい" Then
                .Value = "いいえ"
            ElseIf .Value = "いいえ" Then
-                .Value = "はい"
+                .Value = "わからない"
+           ElseIf .Value = "わからない" Then
+                .Value = "はい"
+           End If
            
             'セル内編集をキャンセル
            Cancel = True
         End If

しかし、リストの選択肢が多いとその分ダブルクリックする回数が増えるので
その場合はプルダウンの方が良いかな、、といった感じにはなりますね笑

「はい/いいえ」だけの簡易的なアンケートを作りたいケース等には実装する価値ありかと思います！