• ベストアンサー

VBA ；Book1を開く→一定時間がきたらお知らせ

エクセルＶＢＡのあるＢＯＯＫ１を開き、ある一定時間（例えば１０分経過時）がきたら、ポップアップでお知らせすることができる、式ってありますか？

noname#40297
noname#40297

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

  • ベストアンサー
  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.1

こんばんは。 標準モジュールに以下のように入れたらよいと思います。 Sub Auto_Open() 　Application.OnTime Now + TimeValue("00:10:00"), "myPopUp" End Sub Private Sub myPopUp() 　CreateObject("WScript.Shell").Popup "10分経過しました。", 2, "経過報告" End Sub '2秒間ポップアップが表示し、自動的に閉じます。

noname#40297
質問者

お礼

できましたっ。 早速の回答ありがとうございます。 返事が遅くなり、申し訳ありませんでした。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 一定時間経過するとポップアップでお知らせするソフト

    一定時間経過するとポップアップでお知らせしてくれるフリーのソフトウェアを探しています。「１時間経過しました」や「２時間経過しました」というメッセージを、画面の右下らへんにポップアップで表示してくれるソフトです。ご存知でしたら教えてください。

  • ＶＢＡ＝一定時間エクセルの入力操作がない場合、自動的にそのブックを閉じたい

    共通でエクセルを使用していますが、時々エクセルを開いたまま外出したり、休憩したり する方がおり、別な方がエクセルを開いて作業をしたいと思っても、どこかで開きぱなしのことが時々あります。 そんな時のために、エクセルに何も入力等がない一定時間経過したら、自動で保存して閉じる機能を持たせたいと考えています。例えば入力が５分以上なければ自動的に閉じるように・・・・ 上書き保存は下記のＶＢＡで機能するのは確認済みですが、これに「５分後」等のタイムの設定をしたいのですが可能でしょうか？ 可能の場合、どのようなＶＢＡになりますか？？ よろしくお願いします。 ⇒ 'ブックの上書き保存 ActiveWorkbook.Save ' 保存確認を避けるため、保存済みにする ThisWorkbook.Saved = True ' 他にブックが開いていなければ、Excelを終了する If Workbooks.Count <= 1 Then Application.Quit ' 本ブックをClose ThisWorkbook.Close False

  • オークションの終了時間をお知らせ

    いつも少し前までは覚えていて、いざという時終了時刻を忘れています。 メールのお知らせもメール自体開くのを、うっかり忘れています。 その当日や一時間前などにポップアップして画面に表示してくれるような ソフトはないでしょうか？WinMeです。フリーソフトがいいです。

  • VBAを時間指定で自動実行

    就業時間内（9時～6時）でエクセルVBAを指定時間に自動実行させたいです。 エクセルはパソコン起動した朝に、開いておきます。（バックグラウンド） 指定時間になったらVBAを自動実行させたいのです。 指定時間は例えば、 10時11分 10時16分 10時21分　などです。最初の時間から5分間隔で実行。 こういう事はできるのでしょうか？VBAでできるのか？ それ以外の方法があるのか？よくわかりません。 詳しく教えてください。

  • 睡眠中、一定の時間が経つと起きてしまいます

    睡眠中、一定の時間が経つと起きてしまいます 具体的には、夜寝てから５～６時間経過すると一度起き、再度寝て１～１時間半経過した時点でまた起き、再々度寝て１～１時間半経過したらまたまた起きる（そして起床）、といった感じです。 起きてしまうまでの間隔および回数がほぼ一定です。 途中起きた時点では、時間を確認して「まだ寝ても良いや」と思うと再度眠りにつく感じです。 また、二度寝、三度寝した時は決まって夢を見ます（変な夢や嫌な夢である事が多いです）。 ここ最近はほぼ毎日このような睡眠パターンなのですが、この現象は何なのでしょうか？ ぐっすり寝た時に比べて疲れがとれにくいような気がするので、質問させていただきました。 考えられる原因や対処法等ありましたら教えてください。

  • 一定時間ごとに教えてくれるアラームソフト

    セットした時刻に教えてくれるタイプではなく、 一度スタートしたら自動的に10分置きにとか30分置きにとか、 一定時間が経過するごとに教えてくれるアラームソフトを探してます。 何かいい物があれば教えてください。 よろしくお願いします。

  • 一定時間が経過したら処理を行う.

    一定時間が経過したら、ある処理を行いたいです。 if(一定時間が経過したら){ 　// 処理 } 例えばこのプログラムを実行してから1日たったら というようにしようと考えています. どのような条件をつければよいでしょうか？

  • VBA　ポップアップが表示されたら常に「はい」を選択したい

    VBA超初心者です。お願いします。 ポップアップが表示されたら常に「はい」を選択したいのですが、そんな事はVBAでできるのでしょうか？ コピー、貼り付けを自動化しているのに、途中で「名前の定義」のポップアップが出て止まってしまうので、困っています。 環境はエクセル2003を使っています。

  • VBAの時間設定について教えてください

    質問1： VBAで、ある一定の時間だけ指定したマクロが実行されることは出来ますか？ (例えば毎日16時30分～21時だけ"マクロA"が実行されるというような） ただ、16時30分にエクセルが開いているとは限らないので、もし開始される時間に開いてない場合でも、指定した時間内に1度でも開けば必ず実行されるのでしょうか？ マクロAには Sub マクロA() If sheets("1").Range("A1").Value <>"" Then msgbox"このシートは使えません" Else End If End sub という命令を作っています。 質問2： SUB() EndSub　で Private Sub Worksheet_SelectionChange(ByVal 　　　　　　　　　　Target As Range を開くことは出来ないのでしょか。 色々やってみたのですが出来ません。 すいません。初心者なので色々本を見ながら勉強していますが、なかなかうまく出来ません。 どなたか、教えてください。 　　　　　

  • エクセル VBAを使い一定時間毎に webページの情報をセルに所得し続

    エクセル VBAを使い一定時間毎に webページの情報をセルに所得し続けていました ある日 パソコンの調子が悪くなり新しいパソコンに変え 同じことをしようとしたのですが 何度か処理した段階で（時間、回数ともに不定期） webページが真っ白のまま何の要求も受け付けない状態になり 下記エラーがでて固まってしまいます -------------------------------------- 実行時エラー -2147417856（80010100）: オートメーション エラーです。 システムコールに失敗しました。 -------------------------------------- 旧から新に変える際、VBAの中身は一切いじってません 旧パソコン ・IE6 ・エクセル2000 新パソコン ・IE7 ・エクセル2007 IE または エクセルの バージョン違いのせいではないかと思うのですが原因を特定できません 考えられる原因、可能性でも結構ですのでお教えいただけたら幸いです 宜しくお願いいたします

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する