• ベストアンサー

Bookを保存の際、E1セルに日付をつけたいです。

現在E1セルにTODAYの関数にて自動で本日の日付が現れるようにしている テンプレートBookがあるのですが、Bookを保存する時はいつも日付を キーボードの 【Ctrl】+【;】( セミコロン ) 押して日付を確定させ てから保存をしてます。 しかし日付を確定し忘れる時があり、後日Bookを開いたときにTODAYの 関数を埋めている部分に以前保存した日付ではなく、今日の日付がでて しまいます。(当然ですが) Bookを保存する際、E1セルに日付を確定できるコード教えていただきた いのですがよろしくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Range("E1") = Format(Date, "yyyymmdd") End Sub -- "yyyymmdd"は色々考えられる。 TodayはVBEではDateです。 ThisworkbookのBeforeSaveイベントに書いていますが、これでよいかな。

-kamekame-
質問者

お礼

ありがとうございます。急いでたので本当にたすかりました。 (*^_^*)

-kamekame-
質問者

補足

ありがとうございます。 ただひとつ問題がありました。 Bookがテンプレートのため、テンプレート自体を作成した日付が保存されてしまい、Book1には反映されていませんでした。 例えば 4/2にテンプレートを作成。 4/4そのテンプレートに内容を入力し、Book1として保存。 4/5にBook1をみると4/2となっている本当は4/4となってほしいのです。 解決策よろしくお願いいたします。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • 本日の日付のセルの色を変えたいのですが・・・

    はじめまして、エクセルで在庫表を作っています。 A列は空白 B列に使用日 C列に前日在庫 D列に使用数 E列に仕入数 F列に差引在庫数 といった簡素なものですが、一ヶ月分の表を作ると ちょっとわずらわしくなってきます そこで、本日の日付のセルの色を変える関数がないかどうか調べてみました。 このページの内容が近いかな?と思いhttp://homepage1.nifty.com/kenzo30/ex_kisotyu/ex_ks_tyukyu9_9_1.htm 下段のほうの=DAY(TODAY())という関数を試してみました。 12月17日の日付を打ち込んでみると、変わりません・・・ ですが17と打ち込むと1900年1月17日の日付が入力され、セルの色が変わりました・・・ この関数では本日の日付のセルの色を変えることは出来ないのでしょうか? どうかお分かりの方いらっしゃいましたらご教授お願いいたします。

  • あるセルからあるセルへリンクさせたい

    あるシートのセル(今日の日付けのセル)・・毎日TODAY関数が入っていて、変わる・・そのセルから別のブックにあるシートのカレンダー表の同じ日付けのセルにリンクさせることはできますか?つまりリンク先のセルが毎日自動的に変わる。わかりにくくてすみません。よろしくお願いします。

  • エクセル 日付が変わると同時にセルを空にしたいです

    こんな事が出来るのかも分からないのですが… エクセルでB4にTODAYで日付が表示されるようにしています。 その日付が変わるとB5~B32のセル内を空にしたいのですが可能なのでしょうか? マクロなどは使った事がなく全くわかりません…。 関数などでそういった設定は出来るのでしょうか? 出来れば本日中にお答えいただければ幸いです! 分かりにくい文面で申し訳ありませんが、よろしくお願いいたします!!

  • EXCELの日付関数「today()」を使って同一セル内で「2006/

    EXCELの日付関数「today()」を使って同一セル内で「2006/06/27 から」と関数のあとに「から」などの文字をいれたいのですがうまくいきません。御指南ください。

  • Excelである条件下で指定セルの内容をクリアし

    Bookを開いた際に、ある条件下で指定のセルの値をクリアしたいと考えています その条件とは TODAY関数で日付を表示してるのですが、最後にBookを開いた日付と上記の表示されている日付が異なる場合というものです (1)Bookを閉じる際に日付を取得し、どこかに保存しておく (2)次に開いた際に(1)の日付と比較して異なれば指定セルの値をクリア このような流れになるのかな?と考えているのですが未熟な為、方法がわかりません もしよい方法があればご教示いただけると有難いです。

  • Excelの日付関数について教えて!

    見積書などでファイルを開いた時に自動で日付が入るように「TODAY」関数を入れていますが、これですと 後日内容を確認する時に日付がその日になってしまいます。 作成する時に自動で日付が入り、後日開いた時に日付が変わらないようにする関数ってありますか? 初心者ですので分かりやすい説明でお願いします。 Excelは2002でOSはXPです。

  • 10年経過した日付のセルに色付け

    office365 使用しております ・セルA1に本日の日付を表示さすようにしています。=TODAY() ・B列に “入荷日付” が入っていて、ブランクもあります。 ブランクのセルはそのままで 入荷日付から10年経過したセルに色を付けたいです。 お詳しい方、ご教示お願い致します。

  • エクセルでTODAY関数を一時的に使用しない方法

    TODAY関数で日付が自動更新されるセルがあるのですが、この日付を関数を消去することなく、確定的な日数をとりあえず入れたまま保存するにはどうしたらよいでしょうか? 無知な私を助けてください。よろしくお願い致します。

  • エクセル日付関数について

     日付関数の初歩的な質問です。  例えばtoday()で、セル書式が日付なら2009/1/4となります。セルの書式を標準にすればシリアル値がでます。そこでyear(today())とし書式が日付なら2009となると思ったのですが、結果は1905/7/1となりました。どういうことなのでしょうか。セル書式を標準にしたら2009となりました。  的はずれの質問かもしれませんが、なぜyear(today())とうつと1905/7/1となるのでしょうか。  

  • 自動で、名前をつけて保存

    エクセルブックの名前をつけて保存について質問です。 マクロを使用して、ブック名を「A1セル内の文字列+作成日(today関数セル)」という事は可能でしょうか?ご教授お願いします。