• ベストアンサー

OnTimeを使ったのですが「エラー」になってしまいます

ＶＢＡ　でOnTimeの「サンプル」を使ってのタイマーですが、実行すると次のようなエラーが出て、実行マクロへ行けません。 「マクロ"I:\一定時間後に.xls'!実行マクロ名'が見つかりません。」 どうしてなのか教えてください。 Option Explicit Dim 待ち時間 Dim 指定時刻 Sub 一定の時間間隔でマクロを実行する() 指定時刻 = Now + TimeValue("0時00分05秒") '5秒後 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "実行マクロ名", TimeValue(待ち時間) End Sub Sub 実行マクロ名() Dim wavfile As String wavfile = "C:\Windows\Media\ringin.wav " 'wavファイルのパス Shell "mplay32.exe /play /close " & wavfile End Sub

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

  • ベストアンサー
  • onlyrom
  • ベストアンサー率59% (228/384)
回答No.2

提示のマクロで動作するはずですが ＞「マクロ"I:\一定時間後に.xls'!実行マクロ名'が見つかりません。」 と出たとすれば原因は２つ考えられます。 （１）提示したコードと実際実行したコードが違う 　　　例えば、”実行マクロ名”というマクロ名ではない （２）コードを書いている場所が、標準モジュールではない 　　　例えば、Sheet1のシートモジュールとか ということで、マクロ名が正しいか確認後、次のようにしてください。 １．ＶＢＥの画面を開く ２．「挿入」メニュー　＞　「標準モジュール」と進み、「標準モジュール」を挿入する ３．画面上部のタイトルバーに、「Module1 コード」と表示されてるか確認したあと、 　　コードウィンドーに質問のコードをコピー＆ペースト ５．ＶＢＥ画面を閉じて、実行 　 これでちゃんと動作するはずです。 　

yasima278
質問者

お礼

標準モジュールで動作させると正常に実行されました。 何日も迷いに迷っていたので実行できて大変うれしく思います。 誠にありがとうございました。

その他の回答 (1)

回答No.1

これと同じ現象でないか確認を。 http://oshiete1.goo.ne.jp/qa3196717.html

yasima278
質問者

補足

ご回答ありがとうございました。 ＶＢＡはまだ始めたばかりで良く分かりません。 説明の中に 解決策として「Normal.dot にマクロを作成します。 」とは何を意味するのでしょうか？ よろしくお願い致します。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • EXSEL　OnTime

    OnTimeを使ったタイマーですが、サンプルを利用して実行させると次のようなエラーになってしまいます。 「マクロ’Ｉ：￥一定時間後にxls'実行マクロ'が見つかりません。」 なにか設定する事項でもあるのでしょうか？ Option Explicit Dim 待ち時間 Dim 指定時刻 Sub 一定の時間間隔でマクロを実行する() 指定時刻 = Now + TimeValue("0時00分05秒") '5秒後 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "実行マクロ名", TimeValue(待ち時間) End Sub Sub 実行マクロ名() Dim wavfile As String wavfile = "C:\Windows\Media\ringin.wav " 'wavファイルのパス Shell "mplay32.exe /play /close " & wavfile End Sub

  • エクセルのマクロのタイマー機能について

    エクセルのマクロのタイマー機能について エクセルのマクロで指定した時間ごとにＵＲＬをクリックするマクロを作っています。 下記のように作っていますが、もっと簡略化して短い記述にしたく思います。 ＵＲＬと指定時間は別のマクロで生成して、ＵＲＬはA1～A49まで、指定時間はB1～B490までセルに書きこむようにしています。 URLはA49まで読んだらA1から読み直して10往復して、490回使用します。 使用するセルを一回ごとにずらしていくだけなので、簡単に出来そうな気もしますが、マクロ初心者のためわかりません＞＜ 恐れ入りますが、ご教授いただければ幸いです。 ちなみにエクセル２００７で作成しています。 Sub 一定の時間間隔でマクロを実行する() '進捗状況を示すために準備する 指定時刻 = Now + TimeValue("0時00分05秒") 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "新規01", TimeValue(待ち時間) End Sub Sub 新規01() Range("A1").Select 'A列のURLを取得 Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 指定時刻 = Now + Range("B1").Value 'B列の時間を取得 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "新規02", TimeValue(待ち時間) End Sub Sub 新規02() Range("A2").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 指定時刻 = Now + Range("B2").Value 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "新規03", TimeValue(待ち時間) End Sub 　　　　　　　　↓ 　　　同様の記述を490回繰り返す 　　　　　　　　↓ Sub 新規建設490() Range("C1").Value = Now & " 終了" End Sub Private Sub 進捗状況を示すために準備する() Cells.Clear Columns("A:A").NumberFormatLocal = "yyyy/m/d h:mm:ss" Range("A1").Select ActiveCell.Value = Now & " 開始　　　　　　　" Columns("A:A").EntireColumn.AutoFit End Sub

  • Excel ＴimeValueをしようしたループマクロの待機中のCPU開放について教えて頂けませんでしょうか？

    質問1：　10秒間隔で”解析1”のマクロを実行する下記のPrgですと待機の10秒間　ビジーになってしまいます。解決方法ご存知の方教えて下さい。 Sub 解析1実行用ループマクロ() Do 指定時刻 = Now + TimeValue("0時00分10秒") '10秒後 待ち時間 = TimeValue("0時00分05秒") Application.OnTime TimeValue(指定時刻), "解析1", TimeValue(待ち時間) Loop End Sub 　（マクロ集引用しただけで理解はあまりできていません。） 質問2: ループを終了させるのにEscで終わらせています。Escをボタンに登録しようと思ってますが他にスマートな方法有りますでしょうか？

  • 「一定の時間間隔で5秒毎にマクロを実行する」

    Timer関数を使ったループ 「一定の時間間隔で5秒毎にマクロを実行する」 ようにしてMacro1を実行したいのですが、 うまくいきません。どう改変したらいいでしょうか。 Sub Macro2() Dim tt As Double Dim wt As Double tt = Now + TimeValue("00:00:05") '5秒後 wt = TimeValue("00:00:01") 'インターバル1秒 Application.OnTime TimeValue("00:00:05"), "Macro1", TimeValue("00:00:01") End Sub

  • VBAのタイマー

    こんにちは VBAで、一日に一回起動するマクロを作ろうと思っています。 Sub timer() Dim settime As Variant Dim waittime As Variant settime = TimeValue("00:35:00") '指定時刻 waittime = TimeValue("00:01:00") settime = settime + waittime '指定時刻待ち時間 Application.OnTime TimeValue(settime), "sub" End Sub な感じなのですが、これだと一度起動すると二日目以降は動作しなくなります。 毎日起動するにはどうしたら良いものでしょうか

  • 指定した時刻になるとセルに色がつくようにしたい

    初心者です。エクセルのVBAで設定した時刻になったらセルに色がつくようにしたいです。 例えば、１７：００時にA1セル、１８：００にA2セルに色を自動でつくようにしたいと思っています。 OnTimeを使ったらよいと思っていろいろ試しましたが、設定した時刻になってもなにも起こりません。 標準モジュールに以下の内容を記述して、パソコンの時計を変更して確認しています。 できたらクリックしないでファイルオープンしてなにもせずに設定時刻に実行されるようにしたいです。 最初の３秒でB１に現在の時間を取得。 セルA１とA２をクリアしてから設定時間に色をつけるようにしたつもりです。 下記が記述内容です。 Sub 指定時間にマクロを開始() Dim stime As Date Range("A1") = "" Range("A2") = "" Range("B1").Select stime = Now + TimeValue("00:00:03") Application.OnTime TimeValue(stime), "マクロ実行内容", TimeValue("00:05:00") End Sub Sub 時刻の設定1() Application.OnTime EarliestTime:=TimeValue("17:00:00"), Procedure:="Test" End Sub Sub Procedure() Range("A1").Interior.ColorIndex = 8 End Sub Sub 時刻の設定2() Application.OnTime EarliestTime:=TimeValue("18:00:00"), Procedure:="Test" End Sub Sub Procedure2() Range("A2").Interior.ColorIndex = 9 End Sub 実行マクロは有効にしています。 ご教授よろしくお願いします。

  • Excelのontimeについて

    a1に数式が入っています。 c3からd3,e3,f3…に一定時間ごとにa1の値を入力するマクロがあります。 Sub 入力() Sheets("Sheet1").Select Range("a3").End(xlToRight).Offset(0, 1).Select ActiveCell.Value = Cells(1, 1).Value End Sub Sub スタート() Dim MyTime As Date Dim Jikan As Date Dim i As Integer Jikan = TimeValue("13:59:00") For i = 0 To 5 MyTime = Jikan + TimeSerial(0, 0, 5) * i Application.OnTime MyTime, "入力" Next End Sub で、教えていただきたいのですが、"入力"を動かしている途中で 上記のマクロをとめるにはどうしたらよいのでしょう？ ご教授ください。

  • 外部データの保存

    http://www.bloomberg.co.jp/markets/commodities/cfutures.html 上記のサイトをエクセルのWebクリエで取り込んで、2分おきにっ更新していますが、そのデータをすべて保存したいです。 そこで、サイトにあるコードを使いました。 １、50秒おきにデータをほかのセルにコピー ２、コピーした先の数値が、（コピー元の）時間と時価が同じなら、コピーしない。 ３、コピーした先が、（コピー元の）時間と時価が違うなら、１つ下にズラしてコピー ４、・・・・ としていますが、実行してみると、数値のコピーはされますが、 「Book1の一定間隔で実行するマクロを実行できません。」 となります。 どうしてでしょうか。 Option Explicit Dim 開始時刻, 終了時刻, インターバル, 反復時刻 Public Line As Integer '--------------------------------------------------------------------------------- Sub 開始時刻から終了時刻まで一定間隔でマクロを実行する() 開始時刻 = TimeValue("09:00:00") 終了時刻 = TimeValue("23:00:00") インターバル = TimeValue("00:00:50") Application.OnTime 開始時刻, "一定間隔で実行するマクロ" End Sub '--------------------------------------------------------------------------------- Sub 一定間隔で実行するマクロ() If TimeValue(Now) >= 終了時刻 Then '終了時刻になったら終わる MsgBox "終了時刻になりました。" Exit Sub End If Call 必要な作業を行うマクロ 反復時刻 = TimeValue(Now) + インターバル Application.OnTime 反復時刻, "一定間隔で実行するマクロ" End Sub '--------------------------------------------------------------------------------- Sub 必要な作業を行うマクロ() Dim flag As Integer Line = 11 If Cells(Line, 2).Value = Cells(2, 2).Value And Cells(Line, 1).Value = Cells(2, 5).Value Then Line = Line + 1 Cells(Line, 2).Value = Cells(2, 2).Value Cells(Line, 1).Value = Cells(2, 5).Value Else Cells(Line, 2).Value = Cells(2, 2).Value Cells(Line, 1).Value = Cells(2, 5).Value End If End Sub

  • 「一定の時間間隔で5秒毎にMacro1を実行する」

    「一定の時間間隔で5秒毎にMacro1を実行する」 一応startマクロ、stopマクロは作成してみたのですが、 下記stopコマンド実行しても止まらなかったような気がします。 ここから改変するとしたらどうですか？ Public timestop As Boolean Sub test() Dim tt As Double Dim wt As Double tt = Now + TimeValue("00:00:05") '5秒後 wt = TimeValue("00:00:02") 'インターバル2秒 Application.OnTime tt, "Macro1", wt If (timestop = False) Then Time = Timer Application.OnTime earliesttime:=(Now + TimeValue("00:00:01")), procedure:="test" End If End Sub ---------------------------------------- ここからstart,stopマクロ Sub t_start() timestop = False Call test End Sub Sub t_stop() timestop = True End Sub

  • Excel2003　VBAでタイマーを組んでマクロを走らせたいのですが

    Excel2003　VBAでタイマーを組んでマクロを走らせたいのですが、以下のエラーメッセージが出ました。 マクロ　"C:\aaa\Timer.xls'!Record1'が見つかりません。 マクロは、Timer.xlsブックのThisWorkbookに記述しています。 ---------------------------------------------------------------------- Sub timer1() 指定時刻 = TimeValue("09:00:00") 終了時刻 = TimeValue("11:00:00") Application.OnTime 指定時刻, "Record1" End Sub ---------------------------------------------------------------------- Sub Record1() Dim sh1, sh2 If TimeValue(Now) >= 終了時刻 Then '終了時刻になら終わる MsgBox "終了時刻になりました。" Application.CutCopyMode = False Exit Sub End If Set sh1 = Worksheets("1") Set sh2 = Worksheets("2") sh1.range("G5：G506").Copy 'コピー sh2.range("Q5：Q506").PasteSpecial Paste:=xlValues Selection.Offset(0, 2).Select '2行ずらす 指定時刻 = Now + TimeValue("00時05分00秒") '5分後 Application.OnTime 指定時刻, "Record1" End Sub ---------------------------------------------------------------------- どこを直せばよろしいのでしょうか？ よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する