【Excel】ダブルクリックで現在の日付や時刻を自動入力する便利なマクロ

Excel（エクセル）で、ダブルクリックをすると現在の日付や時刻をそのまま自動入力してくれる機能がほしいな。と思い、マクロを組んでみたのでご紹介します。

ダブルクリックで日付や時刻を自動入力するExcelマクロ

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:C10")) Is Nothing Then
        Cancel = True
        Target.Formula = Format(Now(), "HH:mm:ss")
    End If
End Sub

自動入力するセルの対象範囲を変更する

上記、例の場合、「A1~C10」までが対象セルとなっています。

例えば、B3のセルだけで良い場合、「Range(“A1:C10”)」を「Range(“B3”)」に変更するだけで大丈夫です。

日付や時刻の入力形式を変更する

上記、例の場合、「18:09:32」と「時:分:秒」が自動入力されるようになっています。

ダブルクリック時の内容を日付、時間、日時に切り替えるには「Target.Formula = Format(Now(), “HH:mm:ss”)」の「HH:mm:ss」部分を変更すれいいだけです。

Excel サンプルはこちら

上記、マクロ付Excel サンプルはこちら。

A1~C10のセルをどこでもいいのでダブルクリックすれば、「 18:09:32 」のようにクリック時刻が入力されるようになっています。

パスワードは「owl」、MD5ハッシュ値は「3c5d10b3beec6c8fce28dbf0d098f287」です。

※ ハッシュ値はダウンロード時に壊れたりしていないかチェックするための合言葉のようなものです

解凍、実行は自己責任でお願いします。

応援してもらえると幸いです。