当サイトご案内


  • クリックで応援っ!!

    人気blogランキング


     

    いらっしゃいませ。

     

    「The徒然★Re-Mix」へようこそ。

     

    徒然草序段

     

     「つれづれなるまゝに、日暮らし、硯にむかひて、心にうつりゆくよしなし事を、そこはかとなく書きつくれば、あやしうこそものぐるほしけれ」

     

     の、ように、このブログでは硯の代わりにパソコンに向かって「心にに移り行く」、「よしなしごと」を「そこはか」となく「書きつく」ってます。

     

     それでは、ごゆっくりと当ブログをご覧下さい。

     

     管理者:きかてぃけい

     

    応援よろしくです

    人気blogランキング


無料ブログはココログ

おすすめ(?)サイト

アクセスアップとか

« 良好な日中関係が重要 福田首相が視察先で | トップページ | Excel/VBA備忘録(3)・最終更新者(ユーザ名)をセルに入れる »

2008年1月 1日 (火)

Excel/VBA備忘録(2)・ファイルの最終更新日時をセルに入れる

アドゲー天国エディタ(edita.jp)
ブログにビール注ぎゲーム「生一丁プレミアム!」を貼ろうキャンペーンはこちら

↑注)JavaScriptをONしないと表示されません。

 たまにエクセル(Micorosoft Excel)でマクロ(VBA)を使うこともあるんですが、昔使ったことがある手法があったとしますよね。
 んで、改めてその手法を使おうと思っても、すでにその手法を忘れてて、「どうだったかなぁ〜?」とか言いながら、結局Webを探し回ると凄く時間と労力がかかるんで、とりあえず、自分用に、忘れたときのメモとして、ExcelやVBAの手法を書こうと思います。
 ちなみに、本文章についてご質問を承っても十分な回答を差し上げる自信は全くありません。
 疑問などがございましたら、本文末尾に参考にさせてもらったサイトのリンクを貼っておきますので、そちらを参照ください。

 では、本題に移ります。

 エクセルに限ったことでは無いんですが、勤め先のオッサン連中の要望で、良く、データの最終更新日時、つまり、そのデータがいつ書かれたものかを、セルなんかに書く場合があるかと思います。
 私なんかは「ファイルの更新日時をフォルダ詳細で見りゃ良じゃん」、なんて思うのですが、オッサン連中には、そんな話は通用しません。
 それにプリントアウトなんかした日にゃ、色んな似たような紙が入り混じって、どれが新しいんだか、古いんだか訳が分からなくなる場合もあります。
 まぁ、そんな訳で、エクセルの場合ですが、保存するときセルへ更新日時を自動で入力出来ないものかをWebで調べていたら、ファイルの最終更新日時を取得したい−ユーザー定義関数:Excel エクセルの使い方-マクロ/VBAっていう所に書いてあったんで、紹介します。

 まず、下記のコードをVBE(Visual Basic Editor)を起動して標準モジュールに貼り付けます。

Function LastSaveTime()

     Application.Volatile
     LastSaveTime = ThisWorkbook.BuiltinDocumentProperties("Last save time").Value

End Function

 で、「LastSaveTime()」ってのが、エクセルのワークシート関数と同様に使えるようになりますから、最終更新日時を表示させたいセルへ「=LastSaveTime()」と入力します。

 これで終わりです。

 実際にやってみると、私の場合ですが、一発で表示されました。

 ただし、そのままではシリアル値が表示されるので、[セルの書式設定]ダイアログで適切な表示設定を行ってください。

 もし上手くいかない場合は、Webかなんかで頑張って調べてみてください。

<リンク先(多謝):インストラクターのネタ帳

”グッ”と来ることが書いてあったらクリックお願いします
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

人気ブログランキ

ング

« 良好な日中関係が重要 福田首相が視察先で | トップページ | Excel/VBA備忘録(3)・最終更新者(ユーザ名)をセルに入れる »

Excel/VBA」カテゴリの記事

パソコン・インターネット」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/414019/9634971

この記事へのトラックバック一覧です: Excel/VBA備忘録(2)・ファイルの最終更新日時をセルに入れる:

« 良好な日中関係が重要 福田首相が視察先で | トップページ | Excel/VBA備忘録(3)・最終更新者(ユーザ名)をセルに入れる »

2017年7月
            1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31