エクセルマクロ一定時間おきにセルをクリック

Question

こんにちは、エクセルのマクロで解らない事があるので教えて頂けませんか。

一定時間、例えば5分おきにAB12セルをダブルクリックし、入力状態にし、すぐに入力状態を解除して、選択状態に戻したりは出来ますか？

ダブルクリック後、他のセルを選択しても構いません。

使っていないどこかのセルを一度入力状態に出来れば問題ないです。

詳しい方、教えて頂けませんでしょうか。

よろしくお願いいたします。

WindFaller · Accepted Answer

>Private Sub Workbook_Open()
Worksheets("Sheet1").Select　'シートの特定化
>　　Call selfTimerMacro
>End Sub

これって動いていないことはないけれども、基本的には、シートを特定し、開いたら、そのシートを開けるようにしないといけませんね。
#4のマクロは、アクテイブシートになっています。それを、「明示的」に、
With Worksheets("Sheet1")
　　If StrComp(.Range("F1").Value, "Q", 1) = 0 Then
　　　MsgBox "終了しました。", 64
　　　Exit Sub
　　Else '
　　　.Range("F1").Value = Now　 '　Format(Now, "hh:MM:ss")
　　End If
　　myTime = Now + TimeSerial(0, 0, 10)
　　Application.OnTime myTime, "selfTimerMacro", myTime + TimeSerial(0, 0, 5)
End With

などとつけてシートを特定化してあげないといけない、ということです。
タイマーの起動中に途中で終了するとマクロが立ち上がってくるはずです。
必ず止めてから、ブックを終了させます。
途中で止める方法は、やはりマクロで行います。

>表示箇所のユーザー定義を
>d"日 　"h"時"mm"分" ss"秒"
>としているにも関わらず正常な日付を表示してくれず
>1900/1/0 17:14:58　と表示されています。

Range("F1").Value = Format(Now, "hh:MM:ss")
これは、文字列を送っているだけですから、セルの表示のようにさせるなら、
Range("F1").Value = Now 
とかしてみたら良いです。

WindFaller · Answer

>一定時間、例えば5分おきにAB12セルをダブルクリックし、入力状態にし、すぐに入力状態を解除して、選択状態に戻したりは出来ますか？

本来の目的は、別の所にあるのではないでしょうか？
セル上で、「マウスの左によるダブルクリックする」という物理的な動作をさせても、意味があるとは思えないのですが。

>使っていないどこかのセルを一度入力状態に出来れば問題ないです。
もしかして、再計算をさせるという意味ではないでしょうか。

もし、そうなら、セル上には、=NOW() 関数を置き、
一定の時間(5 min)で、OnTime を使い、Caluculate　させれば、必要な部分が再計算します。
ただ、これを、ワークシートに何も置かないということになると、大変に不安定なコードになるような気がします。

例えば、こんなことです。時間のサイクルは、10秒にしてあります。
意味が違うようでしたら、もう少し説明をしてください。

'//標準モジュール
Dim flg As Boolean
Dim ETime As Date
Sub Start_End()
'開始と終了
 flg = Not flg
 TimerTest
 If flg Then
   MsgBox "開始しました"
 Else
   MsgBox "終了の命令を受け付けました。", vbInformation
   '//このコードではすぐに止まりません
 End If
End Sub
Private Sub TimerTest()
ETime = Now() + TimeSerial(0, 0, 10)　　'10秒単位
DoEvents
Application.OnTime ETime, "MacroTest"
End Sub
Private Sub MacroTest()
 Application.Calculate
 If flg Then
   TimerTest
 End If
End Sub

WindFaller · Answer

分かっていらっしゃるとは思いますが、
Dim flg As Boolean
Dim ETime As Date

この2つは、プロシージャ外のモジュール変数ですから、当該の標準モジュールの先頭に置いてください。

これがなければ、動きません。

d-q-t-p · Answer

> =NOW()が記述されていて、それを一定時間で更新したいと思っています。
それなら「セルをダブルクリックして確定し直し」なんてしなくても F9キーを
押すだけでいいと思いますが。

それはともかく５分置きでいいなら データベースクエリで 外部データ参照をし
て「定期的に更新する(R) 『5』分ごと」にしておけばいいだけです。

WindFaller · Answer

あまり、いろいろ書いても意味がないのかもしれませんが、以下は、自走型です。5秒間隔です。最近は、以下のようなコードを書かなくなりました。

タイマーを使ったマクロは、様々なものが発表されています。最終的には、RaiseEvent につながるようですが、最初は、こんなところでもつまずきます。

私も
Application.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
の使い方は、人から教わっています。知っているようで知らないものです。
(そんなことは、どうでもよいことかもしれませんが（^^;）

'//標準モジュール
Sub selfTimerMacro()
　　Dim myTime As Date
　　'----------------------------------
　　'終了は、セルに'Q' を入れる(小文字も可能）
　　'----------------------------------
　　If StrComp(Range("F1").Value, "Q", 1) = 0 Then
　　　MsgBox "終了しました。", 64
　　　Exit Sub
　　Else
　　　Range("F1").Value = Format(Now, "hh:MM:ss")
　　End If
　　myTime = Now + TimeSerial(0, 0, 10)
　　Application.OnTime myTime, "selfTimerMacro", myTime + TimeSerial(0, 0, 5)
End Sub

WindFaller · Answer

>依然、マクロの実行をしないと動いてくれません。
私には、分からないですね。たぶん、こういうのは固有の問題だと思っていますから、それを解明するのは難しいです。

まあ、デバッグのテクニックの話を紹介しておくぐらいしかしありません。ただし、これは特例です。

まず、Workbook_Open　でF8を押して、ステップインで、中のマクロに飛ぶかどうかチェックします。自動実行の場合は、Workbook_Openの次辺りに、Stop メソッドを置き、マクロが止まったら、後はステップイン(F8)にして、次のマクロに飛ぶか調べるわけです。

次に、セキュリティの設定で、自動実行が動かないような設定になっていないか調べます。Workbook_Openで動かなくても不思議ではありません。

もうひとつは、途中でマクロに割り込みが入っているのか、ということがあります。割り込みが入ってしまう問題は、そんなに簡単な話ではありません。特殊なツールが必要になります。

With Worksheets("Sheet2")
If StrComp(.Range("F2").Value, "Q", 1) = 0 Then
MsgBox "終了しました。", 64
'Q/qで止めるわけだから、
.Range("F2").ClearContents 　'と終了時、掃除　'←Qの文字排除／あまり関係ないが、
Exit Sub

あとは、私のマクロが、ヘタを打っているということになりますが……。もちろん、この紹介したマクロは、代用の実験的なもので、10年近く前に作ったものです。多少、凝った作りにはなっているようには感じますが、そんなに難しい内容でもありません。

私が実用で使うレベルでは、最初のマクロにもう少し手の込んだことをします。しかし、このまま、2つのマクロがダメなら、この件は、もうしわけありませんが、もう何も言えないです。

何が原因なのか、こちらに振り向けられても、こちらでは分からないのです。悪くは思わないでください。

エクセル マクロ 一定時間おきにセルをクリック

>一定時間、例えば5分おきにAB12セルをダブルクリックし、入力状態にし、すぐに入力状態を解除して、選択状態に戻したりは出来ますか？

分かっていらっしゃるとは思いますが、

> =NOW()が記述されていて、それを一定時間で更新したいと思っています。

あまり、いろいろ書いても意味がないのかもしれませんが、以下は、自走型です。

>Private Sub Workbook_Open()

>依然、マクロの実行をしないと動いてくれません。

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

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

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

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

エクセルマクロ一定時間おきにセルをクリック