[[20090623211752]]　『ＮＯＷ関数を自動更新』（パゲパゲ）　ページの最後に飛ぶ

『ＮＯＷ関数を自動更新』（パゲパゲ）
ＮＯＷ関数を一定時間毎（例えば5分おきとか）に自動で再計算し、その値を他の関数の参照値に出来るようなマクロとかは組めないでしょうか。
エクセルのバージョン⇒Excel2003
ＯＳ⇒WindowsXP
よろしくお願いします。m(__)m

[[20081101145236]]

 の　ちゅうねんさんの投稿のようにするとＶＢＡなしでも出来ますね！！
 最初にこれを体験した時は、ちょっと感動した覚えがあります。
 この投稿前にExcel2002でも確認。
 確かExcel2000でもできたはずです。

 ＶＢＡを使えば、標準モジュールに
 '===================================================
 Private tm As Double
 Sub 更新()
    Application.Calculate
    tm = [now()+timevalue("00:01:00")]
    Application.OnTime tm, "更新"
 End Sub
 '=====================================================
 Sub 更新やめ()
    Application.OnTime tm, "更新", , False
 End Sub

 これで「更新」を実行すれば、1分毎にNow()関数が更新されます。
 (更新を中止する場合は、更新やめを実行する。ブックを閉じる前に実行する）
 こんな方法で可能です。

 ichinose

(パゲパゲ)　早速のご回答ありがとうございます。是非試させていただきます。

 リンク先の方法に興味が沸いたんですが、
 詳しい手順がわからなかったので検索してみました。
http://pcq.furu.org/thread.php?thread=59536&keyword=os+%EF%BF%BD%E5%BE%A1%EF%BF%BD%EF%BF%BD
 ふむふむ。本当に更新されてる！凄い！（ぞう）

(パゲパゲ)ichinoseさんありがとうございました。ご教授いただいた2つの方法を
試してみましたが、ＶＢＡを使う方がすっきりと組めて使いやすそうなのでこちら
でやってみます。
もう1つの「外部データの取り込み」の方は、たしかに自動更新できますが、
設定したエクセルファイルを開くとNOW関数を入力したセルの左横に「Ｆ1」とか
「Ｆ2」という文字が入力されたセル（列）が勝手に挿入されます。
「外部データの取り込み」の設定の方法が間違っていたのでしょうか？

 自分の環境ではそのような現象は起こらなかったのでなんとも･･･(XP/Excel2002)
 お役に立てずすみません（ぞう）

 >左横に「Ｆ1」とか「Ｆ2」という文字が入力されたセル（列）が勝手に挿入されます。
　なりますね！！　NOW()が更新されると言う現象しか確認してませんでした。
 動作に感動はしましたけど、業務で使う気は当面なかったので・・・
 きっちり、調べたわけではないですが、更新時に更新前と何ら変更のない状態にしておけばよいと思います。

 オペレーション

 新規ブック（Sheet1,Sheet2,Sheet3というシートがある）にて、

 Sheet1の適当なセル（例Ａ１）に　=Now()と指定します。書式は、hh:mmにでもして置いてください。

 適当な名前で保存してください（例　SAMPLE.XLS）。

 Sheet2をアクティブにしてください。
 「データ」----「外部データの取り込み」----「データの取り込み」とクリックし、
 「データファイルの選択」というダイアログを表示させ、保存した自身のブック名を指定します。
 「表の選択」ダイアログでもSheet2を選択します。

 「データインポート」ダイアログのプロパティをクリックして、

 定期的に更新するにチェックをいれ、時間を1分に設定

 データレイアウトの「フィールド名を含む」のチェックをはずす。

 これで「データインポート」ダイアログにもどり、データを返す先を　=$A$1　にしてＯＫボタンクリック。

 これで実際の運用では、Sheet2は入力付加（非表示にする）に設定しておきます。

 こんな方法でどうでしょうか？

 ichinose

 データ範囲プロパティで、「フィールド名を含む」のチェックを外すと「F1」などの文字は出ませんでした。
 お試しください。
 209/06/26 12:55 (ちゅうねん)

皆様、本当にありがとうございました。今回はＶＢＡで進める事にしました。
「外部データの取り込み」については、色々と使えそうなので次回試して
みたいと思います。また、わからない事があったら是非ご指南ください。m(_ _)m

コメント返信：

[ 一覧(最新更新順) ]

[[20090623211752]] 『ＮＯＷ関数を自動更新』（パゲパゲ） ページの最後に飛ぶ

[[20090623211752]]　『ＮＯＷ関数を自動更新』（パゲパゲ）　ページの最後に飛ぶ