EXCEL2002で、OnTime メソッドを使い、15分毎にCalculateする方法を選択し、15分毎に,別のセルの値を+1ずつ増加させる方法

質問

EXCEL2002でセルの時刻(A1)が15分更新されるのに対応させて、他のセル(B1)の数値を+1ずつ増加させる方法を教えて下さい！
例として,
A1に9:00 というNOW関数で表示させた値が、9:15⇒9:30⇒9:45⇒10:00
と変化する度に、
B1の値を「1」を初期値として始まり、 1⇒2⇒3⇒4⇒5 と増加させる方法を教えて下さい！

　この際、
　OnTime メソッドを使って、15分ごとに
１．Calculateする
２．セルB1の値に1を加えるか、別途カウント用の変数に保持した値をセルB1に書き込む。（多分Microsoftの推奨は前者）
３．次回（15分後）のOnTime設定をする。
４．閉じるときはOnTime設定を解除する。

　以上の方法で、VBAを組み立てるには、どうしたら良いでしょうか？
　何度やっても失敗します。
たいへん、厚かましい質問で申し訳ありません。
　実行可能なプログラムの形で教えて頂けないでしょうか？
　以前の質問　QNo.2292225の関連質問です。御覧下さい！
　参考URL　http://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv214.html

回答No.10

Wendy02 · ベストアンサー

こんにちは。Wendy02です。

>メッセージウィンドウで、いつもやっている事と同じで、必ず『はい』を押して、終了させているのですが、どうしても、上記のような結果となってしまいます。

それでは、Module1 等をすべて削除した時点で、Ctrl + S で、保存してください。
何かの反応が出てくるはずです。

それから、もしも、それが、PERSONAL.XLS でしたら、今の時点では、そのPERSONAL.XLS を、

C:\Documents and Settings\[ユーザー名]\Application Data\Microsoft\Excel\XLSTART\

の場所から、一時退避したほうがよいかもしれません。

ただ、そういうことではない場合、
つまり、すべてが割り込みが働いている状態でしたら、私がいままで書いたことでは削除できません。
本来ですと、その製作者に問い合わせるのが筋なのですが、一応、その場合の処理の仕方は、

[スタート]－[すべてのプログラム]－[Ctrl キーを押しながら+Excelをクリック]

で、
[セーフモードで起動]

それから、それぞれのModule1 等の処理を、私がいままで書いたようにします。

お礼

毎回、如何なる時でも、たいへん慈悲深い、丁寧な対応で、応じて下さり、本当に、頭の下がる思いです。

　本当に有難うございます。

　何時も、御気に掛けて下さり、御心配為さって下さっているようで、たいへん申し訳ありません。

　御報告が遅れました事、本当に、申し訳ありませんでした。中々に、四苦八苦して、熟考中でありまして、御報告が遅れました。

　前回の質問中、
（１）前半部の
>メッセージウィンドウで、いつもやっている事と同じで、必ず『はい』を押して、終了させているのですが、どうしても、上記のような結果となってしまいます。

それでは、Module1 等をすべて削除した時点で、Ctrl + S で、保存してください。
何かの反応が出てくるはずです。

　★については、試行してみた結果、考えているようには、為らず、
然して、

（２）＞それから、もしも、それが、PERSONAL.XLS でしたら、今の時点では、そのPERSONAL.XLS を、

C:\Documents and Settings\[ユーザー名]\Application

Data\Microsoft\Excel\XLSTART\

の場所から、一時退避したほうがよいかもしれません。

　以下の部分については、その”可能性”も含め、引き続き”検討⇒考え中”ということでありまして、
　★★今現在の”方向性”としては、ＶＢＡの当該モジュールのみを残し、他・残りの全てのワークシートを、エクスポートする形で、バックアップできないでしょうか？★★といった、不可能か可能か？　自分では、判別しづらいことを考えています。（ひょっとしたら、ちょっと考え過ぎかも？(^_^;)）

回答No.1

NCU

> 何度やっても失敗します。
不思議ですね。ヘルプの通りやる他ないと思うのですが。
そのコード、貼ってもらえます？

> 実行可能なプログラムの形で教えて頂けないでしょうか？
何を勘違いされているのか知りませんが、そういうのはありえません。