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

Question

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

Wendy02 · Accepted Answer

こんにちは。Wendy02です。

>メッセージウィンドウで、いつもやっている事と同じで、必ず『はい』を押して、終了させているのですが、どうしても、上記のような結果となってしまいます。

それでは、Module1 等をすべて削除した時点で、Ctrl + S で、保存してください。
何かの反応が出てくるはずです。

それから、もしも、それが、PERSONAL.XLS でしたら、今の時点では、そのPERSONAL.XLS を、

C:\Documents and Settings\[ユーザー名]\Application Data\Microsoft\Excel\XLSTART\

の場所から、一時退避したほうがよいかもしれません。

ただ、そういうことではない場合、
つまり、すべてが割り込みが働いている状態でしたら、私がいままで書いたことでは削除できません。
本来ですと、その製作者に問い合わせるのが筋なのですが、一応、その場合の処理の仕方は、

[スタート]－[すべてのプログラム]－[Ctrl キーを押しながら+Excelをクリック]

で、
[セーフモードで起動]

それから、それぞれのModule1 等の処理を、私がいままで書いたようにします。

Wendy02 · Answer

こんばんは。Wendy02です。

#11 の回答への直接の返事はついていないようですが、最近、やっと分かったことですが、バックアップとるのは、インターネットアクセスする、Excel用アドインを外せば出来るはずです。アドインを入れたままでは、出来ないのです。まず、直接インターネットにリンクしているものは外してから、バックアップを取ってください。

Wendy02 · Answer

こんにちは。Wendy02です。
 
>　★については、試行してみた結果、考えているようには、為らず、

ということは、モジュールのコードをエキスポート後、「削除して保存できた」、ということでしょうか？それなら、問題がないと思いますし、私の　Personal.xls の退避の話などは無視してよろしいかと思います。

>　★★今現在の”方向性”としては、ＶＢＡの当該モジュールのみを残し、他・残りの全てのワークシートを、エクスポートする形で、バックアップできないでしょうか？

話が、飛んでしまっています。最初の問題が解決したのか、こちらでは分かりません。それを別にして、次の問題に入るのでしたら、個別のバックアップというよりも、元のブックのバックアップでよろしいのではありませんか？そして、必要なだけ、残しておけば簡単だと思います。しかし、最初の問題が解決の目処が立っているか、わからなくては、こちらは、なんとも言いようがないのです。きちんと、一つをクリアしてからのほうがよいと思います。同時に平行的には成り立ちません。

Wendy02 · Answer

こんばんは。Wendy02です。

右クリックメニュー⇒⇒⇒[Module数字] の解放

「削除する前にエクスポートしますか？」
と聞いてきますね。エクスポートしても、しなくても、「キャンセル」を押さない限りは、その後の結果は、「Module1」などは消えているはずです。

しかし、ブックを終了する前に、更新したブックを保存しなければ、また戻っているはずです。

Wendy02 · Answer

TRADKING 様
こんばんは。Wendy02です。

最初に、
>★『中堅所のVBA専門掲示板』の話、たいへん参考になりました。

どちらかというと、回答者さん全体のの礼儀の善し悪しによって決めたほうがよいでしょうね。
一人や二人おかしな人は、どこでもいますから、それはしょうがないのですが、全体的に荒れた雰囲気の場所もあります。

しかし、回答者側のみる掲示板と、質問者側がみる掲示板とは違いますから、はっきり言えませんが。
ここの掲示板は、長いスレッドが続かせるのは、なかなか難しいです。私は、自分の書いたものに対して、Excelの表で管理して、開け締めの状態が分かるようになっていますが、普通の人は、そういうようには出来ていませんから。

>★★かんたんプログラミング Excel2003 VBA 基礎編 (単行本) 辺りでも、理解可能でしょうか？★

私が申していたのは、この本を指しています。内容がかなり細かいなって思いますが、大雑把で、飛ばし読みでよいと思います。私は、この本に出会うまでは、VBAは、覚えられませんでした。もう4年ほど経ちますが、また、思い出しては、この本を読んでいることがあります。（この本の装丁は弱いのか、あまり使っていると、バラバラになってきます)この本のシリーズ、3部の応用編まで終えれば、かなり目立つ存在になりますね。VBAで行える、ほとんどが載っています。

"1人の落後者も輩出しない解説書"というのが、この本のキャッチコピーだそうです。

私は、Excelをスタートしたのも、Windowsに手を出したのも、ほんの5～6年前で、プログランミグも初めてです。まさか、自分が、一通り覚えるとは、思ってもみなかったです。そういう私は、いくつかの本では失敗しています。

若い20代の人は、どんどん覚えるのでしょうけれど、その倍以上の年齢からスタートするとなると、どうにも、ワザやテクニック集の本のページをめくっていっただけでは覚えられません。ただ、私の持論ですが、どんな人でも、1日2時間ぐらいで、だいたい3ヶ月で、VBAはマスターできる、と思っております。一旦、終了したら、後は、実践の中で、徐々に慣らしていくのが一番早いです。

Wendy02 · Answer

TRADKING 様
こんばんは。Wendy02です。

>『できる大事典 Excel VBA 2000/2002/2003 対応』　インプレス出版　

この種のものは、一つあれば十分です。

VBAを覚えるというのは、英会話や他の言語を覚えることと同じ手順です。ただ、子供と大人が覚えるのでは、覚え方が違います。暗記しようとして、仮に暗記しても、とても覚えられるものではありません。体系的なものから攻めていくのが早いのです。

まず、いきなりコレクション（大村あつしさんの著書ではここから)とはいかないので、VBAでいう一般のオブジェクト（ブック、ワークシート、セル)があって、そこに、プロパティ（値の設定と取得)と、メソッド（その処理)　をいくつかやってみて、オブジェクトという「概念」を覚えます。（私は、「概念」という言葉の代わりに、「イメージ」という言葉を良く使っています。簡単にいうと、生き物の蛸のようなもので、それぞれ、違う足がついていて、違う動きをします。)

次は、それを文型として使ってみます。
If .... For i = 1 To .... などの構文に当てはめます。

そこまで出来たら、全体的なこと、つまり、セルがあれば、その上のワークシートと合わせて、使うようにしてみます。それが出来たら、違うワークシートへの値の取得、値の代入をします。そして、今度はブックと続きます。

いきなり、大きな完成品を作り上げようとすると、1年掛かっても、少しも進まないことがあります。基礎構文を多く繰り返すことで覚えます。それと、毎日、休まないことが大事です。私でも、旅行で3日休むと、取り戻すのに、その後3日掛かります。すごく、怖く感じます。

ある程度できるようになったら、今度は、もう少し、その周辺、VBAの書き方自体を覚えます。次に、ユーザーフォームや、上級文法に入ります。このようにして、VBAは、段階を踏みながら上級に進んでいきます。とはいえ、半分ぐらいの人は、途中のVBAの書き方あたりで揺らいでいます。それは、Microsoft が、VBAユーザーに見本を見せなくなったのが原因のようです。

>★★一体、どのようにしたら、３０ワークシート全てのＶＢＡが、完全に、｛削除｝出来るでしょうか？★★

さて、どのようなマクロにもよります。私の#2のマクロは、全体に支障がなければ、左上のプロジェクト・エクスプローラで、[Module数字] のところにマウスを当て、右クリック－[Module数字] の解放　で、そのすべてを削除できます。

大事な、アドインは、通常は開きません。開けなければ、削除できません。

>★★【マクロを削除するには】とあって、
>　｛マクロ｝ダイアログボックスで、削除したいマクロを選択して、｛削除｝ボタンをクリックせよ！とのヘルプ、並びに本の図解を見て、手順に間違いはないと思うのですが、

いいえ、これは、一般的なマクロです。Private キーワードがついたものは、直接、Visual Basic Eitor の中で削除しないと、通常は削除できません。

Visual Basic Eitor　の中で、それぞれシートモジュールやModuleをダブルクリックして開け、直接、マウスで選択して削除しないと出来ないです。もちろん、こちらで、禁じ手のひとつ、マクロを消すためのマクロ作成というのも可能なのですが、それは、新たな手間になりますから、やめておきます。また、ユーザー定義関数(Function)を削除すると支障が出るかもしれませんから、良く注意して行ってください。行う前には、バックアップしておいたほうがよいです。

それから、この最初のご質問の解決は、VBAの専門の方が、直接、それを調べない限りは、ラチが開かないような気がします。こちらでは、時間で同期しているものに、マクロを動かすのは、割り込みが入ってしまい不可能だというぐらいなのです。

それと、最後ですが、前回も書いたかもしれませんが、ここのカテゴリでは、VBA専門にし、なおかつネットトレーディングをしている人は、どうやらいないようですが、専門掲示板では、かなりのベテランの人が、この辺りに明るい方がいます。私の今のネットの技術は、その方を通して覚えたものです。直接、そのアドレスを教えるわけにはいきませんが、中堅所のVBA専門掲示板には、一人二人、そういう方がいらっしゃいますので、これに懲りないで、再び、挑戦してくださるようにお願いいたします。何か、私が引き伸ばしてしまったようで申し訳ありませんでした。

これが、私がずっと申し上げたかったことです。

Wendy02 · Answer

TRADKING 様

#2
# 私自身は、元のプログラムを知らないので、以下のように単独では動いても、相手の方の環境では、この種のマクロでは成功しておりません。

と私が、書いたように、このままですと、今回も、再び、解決をみずに終わってしまうように思います。私としては、やはりダメだった公算が強いように思っております。その理由は、RSS関数が、時間で割り込みが入るので、他のマクロを排除するのではないか、と思っております。ですから、通常の方法では、うまく行かない気がしております。

出来れば、返事をつけてくださると、今後のためにもなるかと思います。よろしくお願いします。

Wendy02 · Answer

こんばんは。Wendy02です。

『◆補足◆ＲＳＳの問題点』
について、少しコメントを入れさせていただくと、問題は、Excel側にあります。MS社側では、次のバージョン(2007)では、XMLの標準化をし、ファイルの構造の問題を解消するとは言ってはいるのですが、今回の「RSS」は、あえて、Excelのアドインにしなければならない、という根本的な問題はぬぐえてはいないように思います。また、RSS関数と戻り値の表示のタイムラグの間に、問題があるのではないか、と想像しています。

>ＲＳＳ用関数を使用した場合のリアルタイムフィードが切断されるのではないかとのご指摘でしたが、
「リアルタイムフィード」という意味は分かりませんが、

私が申したのは、もともと、そのRSS側のアドインが通信中の場合は、こちらの自前のマクロは、暗黙のエラーか、マクロの切断がされるのではないか、ということです。

>ＲＳＳ使用中でも、ＮＯＷ関数の時刻は分単位はおろか、ＳＥＣＯＮＤ関数もキチンと”秒”単位で動作致しますので、問題はないのですから、

Now関数は、Excelのワークシート関数ですから、本体がハングしなければ、「計算(Calculate)」という命令のときだけ、値を取得するようにできています。継続的な１本の命令のプログラムの中で動いているわけではありません。中断されようがされまいが、特に本体が死んでいなければ問題はありません。内部のコマンドとVBAは、まったく次元の違うものです。

>EXCEL関数使用オンリーの計算であれば、「頂いたプログラム」により、実行可能ということで、理解して宜しいでしょうか？

相手のアドインが生きている状態で、私の考えているものと同じように、他の介入を阻止させるような命令をしていたら、マクロは動かないだろうから、ともかく、試してください、ということです。RSSの搭載していないところで、試しても、結果的には無駄になるのではないでしょうか。

zap35さんも、私も、動かないコードを作って公開しているわけではありません。しかし、前回のエラーの問題の原因がはっきりしない限りは、同じ問題が出てしまう可能性もあるということです。

Wendy02 · Answer

こんにちは。Wendy02です。

>　御推察の通り、証券会社の提供するリアルタイムスプレッドシートという、EXCELに、関数を打ち込んで、株価の変動に合わせ、ほぼ、リアルタイムに”株価を取得”し、連動させた計算を行う”仕様”のものです。

やっぱりそうでしたか!これで、私は、3度目ですね。
今まで、私は、古いExcelと古いPCだったので、状況がさっぱりつかませんでした。

「リアルタイム株価受信の方法」のマニュアルをざっと読んでみましたが、結論から言うと、いったん、証券会社からの通信をとめないとマクロによる更新はしないような気がします。

これは、証券会社に口座があって、取引をしていないと、無料ではできないので、ちょっと、試すというわけにはいきそうにもありません。

それと、私は、そのようなリンク方法を良く理解できていません。海外のサイトで、その仕組みを探してくるしかないのかなって思っています。日本のでは、独自で作る人はいても、その仕組みを公開している人がないように思います。

独自のユーザー定義関数を持っていて、それを、いったん、通信によって、取得するというおかしな関数のようにように見えますね。証券会社のホームページにログインしていないと、その関数は正しくは解を返さないのではないでしょうか？ユーザーのカスタマイズに応えるためだと思いますが、考えてみると、そういう方法しかないかなって思いました。

ある程度、コンピュータが分かれば、タスクマネージャのプロセスや、また、ファイアウォールについているリアルタイムで通信ポートを調べるツールで、お調べになっていただければ、Excelの通信の出入りが、よりはっきりとするかと思います。

今、調べた限りは、通常のアドインのような気がします。最近は、特殊なアドインもありますが、そこまでは手が込んでいそうにはありません。

実験的に、相手のコードを殺して、自分のコードを活かす方法を試したいとは思いますが、当面、今、ここに出ているコードは、ざっと試してみてください。たぶん、うまくいかないはずですが。
実際に、稼動した状態ですから、土日は試せないなら、月曜日以降でかまいません。

>『エラー番号』とは、どのようにしても、表示されず、解からなかったのですが、
上記の場合、何も、出なかったと思います。

> 実行可能なプログラムの形で教えて頂けないでしょうか？

他の言語でコンパイルせずに使う方法としては、オートメーションを使う方法がありますね。Excel本体(Application)は、通常、Winの中でひとつしか動きませんが、この方法ですと、複数動きますが、元のRSSを試せませんし、私の身近な人にもいませんもので、ちょっと手が出せません。それに、自分が同じ立場だったら、一度は、最初から自分で作ってみる価値のあるものだと思います。

zap35 · Answer

前回、回答したものです
補足に「エラーが…」と書かれていたのを見逃しておりました。２時間程度の動作確認をしたものをｕｐします

Option Explicit
Sub Auto_Open()
Dim wkMIN As Integer, TargetTime, WaitTime, wktime
    WaitTime = TimeValue("00:00:10")
    wktime = Now
    wkMIN = Application.Floor(Minute(wktime) + 15, 15)
    If wkMIN = 60 Then
        TargetTime = TimeValue(Application.Text(wktime, "hh") & ":00:00") _
                    + TimeValue("1:00:00")
    Else
        TargetTime = TimeValue(Application.Text(wktime, "hh") & ":00:00") _
                    + TimeValue("00:" & Application.Text(wkMIN, "00") & ":00")
    End If
    With Worksheets(1)
        .Range("A1").Formula = "=now()"
        .Range("B1") = 1
    End With
    Application.OnTime TargetTime, "Macro1", WaitTime
End Sub

Sub Macro1()
Dim wkMIN As Integer, TargetTime, WaitTime, wktime
    Calculate
    wktime = Now
    WaitTime = TimeValue("00:00:10")
    wkMIN = Minute(wktime)
    wkMIN = Application.Floor(Minute(wktime) + 15, 15)
    If wkMIN = 60 Then
        TargetTime = TimeValue(Application.Text(wktime, "hh") & ":00:00") _
                    + TimeValue("1:00:00")
    Else
        TargetTime = TimeValue(Application.Text(wktime, "hh") & ":00:00") _
                    + TimeValue("00:" & Application.Text(wkMIN, "00") & ":00")
    End If
    Worksheets(1).Range("B1") = Worksheets(1).Range("B1") + 1
    Application.OnTime TargetTime, "Macro1", WaitTime
End Sub


Sub auto_close()
Dim i As Integer, TargetTime, wktime
On Error Resume Next
    wktime = Now
    For i = 0 To 16
    TargetTime = TimeValue(Application.Text(wktime, "hh") & ":" _
        & Application.Text(Minute(wktime), "00") & ":00") + _
        TimeValue("00:" & Application.Text(i, "00") & ":00")
    Application.OnTime TargetTime, "Macro1", , False
Next i
End Sub

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

こんにちは。

こんばんは。

この回答への補足

こんにちは。

この回答への補足

こんばんは。

TRADKING 様

TRADKING 様

TRADKING 様

こんばんは。

こんにちは。

前回、回答したものです

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング