Home » エクセルマクロ・Excel VBAの使い方 » イベントプロシージャ » 今日の日付を自動的に入力する−Worksheet_BeforeDoubleClick

今日の日付を自動的に入力する−Worksheet_BeforeDoubleClick

対象：Excel97,Excel2000,Excel2002,Excel2003,Excel2007

「TODAY関数で自動的に入力された今日の日付が更新されないようにしたい」
という要望に対する解決策として、［F9］キーで計算結果にする方法と、ショートカットキー：［Ctrl］＋［;］（セミコロン）で今日の日付が入力できることをご紹介しました。

これらの方法をご紹介すると、
「マクロでやるにはどうしたらいいのでしょうか？」
「マクロを組んだらもっとスマートに入力できるんじゃないですかね？」
といったご質問をいただくことがあります。

［F9］キーや［Ctrl］＋［;］キーを利用する方法は、Excelで対応しているのではなく、ユーザー側のスキルを上げろということなので、スキルに差がある複数の人が操作するような場合には現実的ではありません。

［スポンサードリンク］

もちろんVBA（Visual Basic for Applications）でマクロを組んでしまえば、何らかのアクションがあったときに今日の日付をセルに入力するなんてことは簡単です。

どのアクションやタイミングで日付を入力するかによって、様々な実装方法が考えられますが、ダブルクリックしたときに入力するというのはいかがでしょう。

▼ダブルクリックしたときに今日の日付を入力するイベントプロシージャ
※C1:C10セルでダブルクリックしたときに今日の日付を入力する例

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

　If Intersect(Target, Range("C1:C10")) Is Nothing Then Exit Sub
　
　If ActiveCell = "" Then
　　ActiveCell = Date
　　Cancel = True
　End If

End Sub

実際にアクティブセルに今日の日付を入力するのは
「ActiveCell = Date」
の部分です。

C1:C10セルにだけ、ダブルクリックで日付を入力させるために、
「If Intersect(Target, Range("C1:C10")) Is Nothing Then Exit Sub」
でC1:C10セルでないときには処理を抜けるようにしています。

他のセルでダブルクリックしたときに日付入力させたい場合、
「Range("C1:C10")」
適宜の部分を変更してください。

既に何らかのデータが入力されているときには、日付入力の処理を行いたくないので
「If ActiveCell = "" Then」
というIf文を入れセルが空っぽのときだけ処理を行うようにしています。

セルでダブルクリックをすると、通常はセル内にカーソルが入ります。
しかし今回のダブルクリックで日付入力を行った場合、セル内にカーソルが入る必要はないので
「Cancel = True」
で、通常のダブルクリックイベントをキャンセルしています。

サンプルファイルの「Sheet1」イベントモジュールに、上記のイベントプロシージャを作成してありますので、興味のある方はご確認ください。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » イベントプロシージャ » 今日の日付を自動的に入力する−Worksheet_BeforeDoubleClick

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

日経BP社から出版されたExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

「イベントプロシージャ」の記事一覧