トップ | ログイン
セルの値を変更したら、変更した日付を入力したい
2008年 03月 23日
Excelで、請求書や見積書を作成した場合、
その日の日付を入力するために、日付のセルには、よく「=today()」と入力されています。
便利ですね。

でも、作成したその日にプリントするならそれでもいいのですが、

2,3日後にプリントしたい場合は 日付が変わってしまって困る。
作成したその日の日付が表示されたまま保存できないだろうか?という質問を受けました。

やっぱりこういうときは、VBAでしょうね。
Worksheet_changeイベントプロシージャの「Target」を利用するといいです。

セルA4に入力すると、セルB2に日付を入力したい場合、
シートのシート見出しで右クリックして、「コードの表示」をクリック。
a0030830_2361562.gif

そして、表示されたVBEに下のコードを入力します。
もうひとつの書き方もあるけど・・ま、いいか!

******************************
Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Row = 4 And .Column = 1 Then
Target.Offset(, 1).Value = Date
Else
Exit Sub
End If
End With

End Sub
*******************************
a0030830_23111939.gif

by hama_y | 2008-03-23 22:25 | Excel |▲TOPへ

<< 2行おきに太罫線を設定したい シートの保護をするとオートフィ... >>


パソコンのお役立ち機能を一緒に学びませんか?[初心者のためのOffice講座 hamachan.info]のサポートブログです。
by はま
サイト内検索
リンク
PROFILE
問い合わせ
プライバシーポリシー
初心者のためのOffice講座
はじめてのMac

[アフィリエイトやるなら]
カンファレンスバナー
[MVP]

Microsoft MVP for Word
(2016.1-2017.12)
Microsoft MVP for Office System
(2009.1-2015.12)

Google+
外部リンク
記事ランキング
最新の記事
フォームのテキストボックスを..
at 2017-03-20 17:29
Windows10でタスクバ..
at 2017-03-11 19:06
メールリンクをクリックしてG..
at 2017-03-07 19:30
Wordの裁ちトンボの印刷は..
at 2017-03-05 14:28
重要なファイルは拡張子を変え..
at 2017-02-23 23:32
カテゴリ
全体
Windows
IME
Office共通
Word
Excel
PowerPoint
Access
Outlook
Internet Explorer
Outlook Express
ホームページビルダー
ATOK
一太郎
筆まめ
筆王
筆ぐるめ
PhotoshopElements
ネットワーク
PCインストラクター
ああ~お客様
(@_@)
iPhone
SharePoint
未分類
以前の記事
2017年 03月
2017年 02月
2017年 01月
more...
検索