VBA 2回実行してしまう？

質問

以下のVBAが　なぜか 2回繰り返し実行してしまう時があります。
－　必ずではありません。
どのような場合に2回実行されるのかよくわかりません。

Sub ABC()
ActiveCell.Offset(-1, 3).Activate
ActiveCell.FormulaR1C1 = "A"
ActiveCell.Offset(0, 1).Activate
ActiveCell.FormulaR1C1 = "B"
ActiveCell.Offset(0, 1).Activate
ActiveCell.FormulaR1C1 = "C"
ActiveCell.Offset(0, -4).Activate
End Sub

宜しくお願いします。

回答No.1

hiromu1988 · ベストアンサー

素人目で申し訳ございませんが、この文面だけであれば特に問題が無いように見えます。
どちらかというと、このプログラムを呼び出すボタンや他のCALLシーケンスに問題があるのではないでしょうか？
その程度のアドバイスは不要と言う場合は申し訳ないです。

補足

ボタンで実行すると４回に１回ぐらい２回走ります。
マクロで実行すると正常ですが

回答No.4

queuerev2

他の回答者様もおっしゃるとおり、コードは２回実行されるようになっていないと思います。
もしかしてマウスの左ボタンが調子悪くてチャタリングが発生しているのでは？
現在のマウスの左ボタン以外でクリックしてみて同じようになるかどうか試してみてはいかがでしょうか。
方法ですが、以下のようなものが考えつきます。
Ａ．マウスを交換する
Ｂ．コントロールパネル「マウス」で左右のボタンを入れ替える
Ｃ．コントロールパネル「ユーザー補助のオプション」の「マウス キー機能」（マウスキー）を使う
（コントロールパネルはWindows XPの場合であり、他のWindowsでは異なる可能性があります。）

補足

原因は解りませんが、ボタンを削除して作り変えたら正常に動くようになりました。
皆さんありがとうございました。

回答No.3

GreatDragon

No.2 です。
補足を拝見しました。

では、そのボタンのプロシージャを丸ごと（Private Sub から）この補足に書き込み願います。
もちろん、差支えがなければ・・です。

回答No.2

GreatDragon

こんにちは。

記載のプロシージャには問題はなく、また標準プロシージャなので呼び出し側の問題と思います。
ブレークポイントを設定してデバッグすることをおすすめします。

（参考）
http://www.moug.net/tech/exvba/0150019.html

補足

ボタンで実行すると４回に１回ぐらい２回走ります。
マクロで実行すると正常ですが？