エクセルでマクロボタンを押す前に、実行するかどうか再確認させたいのですが・・・。

解決済

質問者：orennji1111
質問日時：2005/09/20 18:47
回答数：3件

いつもこちらで大変お世話になっています。

エクセルでマクロを組み、ボタンを作成しました。
ボタンをクリックすると、組んだマクロが開始されるのですが
その前に一度、「実行しますか？はい（実行）・いいえ（キャンセル）」といったような確認をさせたいのです。
このようなことは可能でしょうか？
可能ならば方法を教えてください。

どうぞよろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： Wendy02
回答日時：2005/09/22 16:42

こんにちは。

＞エクセルでマクロを組み、ボタンを作成しました。
元のコードがどうなっているのか分りませんので、実際は、どうしてよいのか具体的には、こちらでは分りません。

いくぶん、重複してしまいますが、それ以前のステップから書かないといけないようですが、よく読んで、試してみたください。

最初に、私の#2で書いたコードをそのまま貼り付けても、エラーが出ます。

それは、コマンドボタン(CommandButton）には、二種類あるからです。

1つは、コントロールツールのボタンと、もう1つは、フォームのボタンです。
それは、どちらなのかおわかりなりますか？

中身自体は、

'---------------------------------
If MsgBox("実行しますか？", vbQuestion + vbOKCancel) = vbCancel Then
　 MsgBox "終了します。"
　 Exit Sub
End If
　 '実行継続
'---------------------------------

このようにはなるのですが、外側が違ってきます。

コントロールツールの場合は、コントロールツールから、右クリックして、コードの表示とすると、

Private Sub CommandButton1_Click()

End Sub

と中身の空のプロシージャが出てきますから、そこに中身の点線で囲まれた上記のコードを入れてあげます。

フォームのツールの場合は、

例えば、

Sub ボタン1_Click()
If MsgBox("実行しますか？", vbQuestion + vbOKCancel) = vbCancel Then
　 MsgBox "終了します。"
　 Exit Sub
End If
　 '実行継続
End Sub

のようにして、右クリック－マクロの登録で、この名前「ボタン1_Click」を探して、登録します。

次に、「実行継続」の部分に、どんなものを入れるか、これは教えてもらってはいませんので、ご自分で入れられるなら、それを入れてください。もし、出来ないようなら、ここで公開してください。

- 5
- 件

通報する

この回答へのお礼

できました！！
ご親切に丁寧に教えてくださって、感謝です。
ありがとうございました。

通報する

お礼日時：2005/09/23 21:46

No.2

回答者： Wendy02
回答日時：2005/09/20 19:39

こんばんは。

同じような内容を書いて恐縮しますが、こうしたらどうでしょうね。
ただし、これは、コントロールツールバーの中のボタンに対して、[右クリック]－[コードの表示]でVisual Basic Editor 画面を出してから、書き付けるものです。

Private Sub CommandButton1_Click()
If MsgBox("実行しますか？", vbQuestion + vbOKCancel) = vbCancel Then
　 MsgBox "終了します。"
　 Exit Sub
End If
　 '実行継続
End Sub

フォームツールバーのコマンドボタンのほうが作りやすいけれども、コントロールツール側のボタンは、編集ボタン（青い三角定規のツールアイコン）を押さないと、勝手に変更することが出来ません。