Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10481 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21662】ブックを自動で閉じるには？ ぴかる 05/1/26(水) 9:21 質問[未読]
【21666】Re:ブックを自動で閉じるには？ IROC 05/1/26(水) 10:19 回答[未読]
【21667】Re:ブックを自動で閉じるには？ ぴかる 05/1/26(水) 10:47 質問[未読]
【21668】Re:ブックを自動で閉じるには？ IROC 05/1/26(水) 11:23 回答[未読]
【21671】Re:ブックを自動で閉じるには？ ぴかる 05/1/26(水) 11:29 お礼[未読]
【21670】Re:ブックを自動で閉じるには？ [名前なし] 05/1/26(水) 11:28 発言[未読]
【21672】Re:ブックを自動で閉じるには？ ぴかる 05/1/26(水) 11:35 発言[未読]
【21676】Re:ブックを自動で閉じるには？ [名前なし] 05/1/26(水) 13:43 回答[未読]
【21677】Re:ブックを自動で閉じるには？ ぴかる 05/1/26(水) 13:53 質問[未読]
【21679】Re:ブックを自動で閉じるには？ IROC 05/1/26(水) 14:17 回答[未読]
【21680】Re:ブックを自動で閉じるには？ ぴかる 05/1/26(水) 15:19 お礼[未読]
【21662】ブックを自動で閉じるには？
質問  ぴかる  - 05/1/26(水) 9:21 -
引用なし
パスワード
   スクリーンセーバーの様な感じである一定時間の操作がなかった場合、ブックを閉じたいと考えております。可能でしょうか？ よろしくお願い致します。
【21666】Re:ブックを自動で閉じるには？
回答  IROC  - 05/1/26(水) 10:19 -
引用なし
パスワード
   マウスとキーボードの入力監視をしたいということであれば、
カーソルの移動以外であれば、Win32APIのGetAsyncKeyState
を使うとできるかもしれませんが、
スクリーンセイバーみたいに最前面に表示されずに
他のウィンドウがアクティブになっていると対応できないと思います。
【21667】Re:ブックを自動で閉じるには？
質問  ぴかる  - 05/1/26(水) 10:47 -
引用なし
パスワード
   IROCさん、こんにちは。

>マウスとキーボードの入力監視をしたいということであれば、
>カーソルの移動以外であれば、Win32APIのGetAsyncKeyState
>を使うとできるかもしれませんが、
ご回答ありがとうございます。もしよろしければ、コードを提示して頂けると
ありがたいです。よろしくお願い致します。
【21668】Re:ブックを自動で閉じるには？
回答  IROC  - 05/1/26(水) 11:23 -
引用なし
パスワード
   WEBで検索してみましたので読んでみて下さい。

http://www.geocities.co.jp/SiliconValley/2383/18/
http://www1.plala.or.jp/chikada/cell/0101/0101.htm
http://www.geocities.co.jp/SiliconValley/7406/tips/mouse/mouse2.html
【21670】Re:ブックを自動で閉じるには？
発言  [名前なし]  - 05/1/26(水) 11:28 -
引用なし
パスワード
   ▼ぴかる さん：
>スクリーンセーバーの様な感じである一定時間の操作がなかった場合、ブックを閉じたいと考えております。可能でしょうか？ よろしくお願い致します。
可能ですが中級以上のWindowsプログラミングの技術を要します。


一定時間

エクセルを操作していないときに
・ブックを閉じる
・エクセルも閉じる

Windowsを操作していないときに
・ブックを閉じる
・エクセルも閉じる

が考えられますけど


投稿にもかいてあるように
Windowsを操作していないときに
・ブックを閉じる
のこといってるのでしょうか？


では、がんばってください。
【21671】Re:ブックを自動で閉じるには？
お礼  ぴかる  - 05/1/26(水) 11:29 -
引用なし
パスワード
   ▼IROC さん：
>WEBで検索してみましたので読んでみて下さい。
>
>http://www.geocities.co.jp/SiliconValley/2383/18/
>http://www1.plala.or.jp/chikada/cell/0101/0101.htm
>http://www.geocities.co.jp/SiliconValley/7406/tips/mouse/mouse2.html
ありがとうございます。じっくり、勉強させて頂きます。
うまくいったら、報告させて頂きます。
【21672】Re:ブックを自動で閉じるには？
発言  ぴかる  - 05/1/26(水) 11:35 -
引用なし
パスワード
   [名前なし]さん、こんにちは。

>エクセルを操作していないときに
>・ブックを閉じる
これです。一つの作業日報ファイルを複数の人間がＬＡＮにて入力する仕様を考えております。開かれたままですと、次の人が入力不可となるもんですから。

>では、がんばってください。
はい、ファイト一発！ かんばります。
【21676】Re:ブックを自動で閉じるには？
回答  [名前なし]  - 05/1/26(水) 13:43 -
引用なし
パスワード
   ▼ぴかる さん：
>[名前なし]さん、こんにちは。
>
>>エクセルを操作していないときに
>>・ブックを閉じる
>これです。一つの作業日報ファイルを複数の人間がＬＡＮにて入力する仕様を考えております。開かれたままですと、次の人が入力不可となるもんですから。
>
>>では、がんばってください。
>はい、ファイト一発！ かんばります。

それでしたら、ワークブックのイベントだけで、対応できますよ。
試しに書いたら指定秒後に操作しなかったら閉じるようにできましたから
簡単な確認版なら宣言も含めて全部で２０数行でかけますよ
きちんと対応するには４０行くらいいるかもしれませんけどね。

変更があった場合の
確認がでてくるので、
自動保存かどうかもきめたほうがいいですね。


時間　一個設定
Boolean　一個設定
Activate数個設定
Change数個設定
Doevents使えば

Win32API使わなくても可能ですよ
【21677】Re:ブックを自動で閉じるには？
質問  ぴかる  - 05/1/26(水) 13:53 -
引用なし
パスワード
   >それでしたら、ワークブックのイベントだけで、対応できますよ。
>試しに書いたら指定秒後に操作しなかったら閉じるようにできましたから
>簡単な確認版なら宣言も含めて全部で２０数行でかけますよ
誠に恐れ入りますが、是非そのコードをご提示頂けないでしょうか？
今のところ、全くイメージすら浮かんでいない状態なものでして・・・。
【21679】Re:ブックを自動で閉じるには？
回答  IROC  - 05/1/26(水) 14:17 -
引用なし
パスワード
   Excel上のどのような操作に対して、「操作しなかった」と判断しますか？

マウスカーソルの移動を「操作した」とするなら、
WIN32APIが必要なので難しいですよ。

Excelにはどのようなイベントがあるか、熟知していらっしゃいますか？
それを知らないことには、どのような仕様（イベントのみで）のマクロを作るか
決めることもできないと思います。

仕様が決まらないことには、回答も付けにくいかと思いますが。
【21680】Re:ブックを自動で閉じるには？
お礼  ぴかる  - 05/1/26(水) 15:19 -
引用なし
パスワード
   ありがとうございました。なんとか出来そうになってきました。
まだ暫定ではありますが、以下の様なマクロにしました。

・セル選択が変わる度に現在時刻(BF3)を記憶
・そして１分後に指定マクロを動作
・条件成立にて自動終了

テストＯＫだったので、これをベースに考えていこうと思っています。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　
　　Range("BF3") = Now
　　指定時刻 = Now + TimeValue("00:01:00")
　　待ち時間 = TimeValue("00:00:10")
　　Application.OnTime TimeValue(指定時刻), "ブック自動終了", TimeValue(待ち時間)

End Sub
Sub ブック自動終了()

　　If Range("BF3") * 86400 + 55 < Now * 86400 Then
　　　　ActiveWorkbook.Save
　　　　ActiveWorkbook.Close
　　End If

End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10481 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free