エクセルの日付について教えてください

質問

現在、Ｇ・Ｈ・Ｉの3（統合したセル）に日付を出す為に＝TODAY()と式を覚えさせています。この場合、エクセルを開いた時点で日付が更新されてしまいます、エクセルの内容を変更や訂正をした場合のみ日付を更新できる方法を教えてください。変更対象セルはＣ9～Ｃ28・Ｅ9～Ｅ28・Ｈ9～Ｈ28・Ｉ9～Ｉ28の範囲で変更した時に日付が更新できる方法があればいいのですが、変更対象が広範囲すぎる場合はC・E・H・Iのどれか1列でもかまいません。

回答No.1

keithin · ベストアンサー

まぁムリせず，さくっとふつーにマクロを使って行います。

手順：
シートを開く
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
　if application.intersect(target, range("C9:C28,E9:E28,H9:H28,I9:I28")) is nothing then exit sub
　range("G3") = date
end sub

ファイルメニューから終了してエクセルに戻る
所定のセルに記入や編集する。