エクセルVBAで出した電卓をVBAで終了したい。

先ほどこちらで以下のすばらしいマクロを教わりました。

Sub my電卓()
On Error GoTo mg
x = Shell("calc.exe")
Exit Sub
mg: MsgBox "ごめん、電卓が" _
+ Chr(&HD) + Chr(&HA) + "探せない・・・", vbExcritical, "（＾＾；）"
End Sub

それで、ワークシートに配置したアイコンをクリックすると電卓が出るのですが、電卓が出ているときに再度アイコンをクリックすると電卓が最小化され、さらにクリックすると二つ目の電卓が出てしまいます。
電卓がでている状態でクリックしたら電卓を終了するようにしたいのですがどのように変えればいいのでしょうか？

No.2 ベストアンサー 回答者： tsukasa-12r 回答日時： 2004/03/23 15:03

＞そのままコピペしてみましたがエラーです。

どういうエラーでしょうか？コンパイルエラーでしょうか？それとも実行時エラーでしょうか？
そのままコピペということなので、たぶん、コンパイルエラーだろうと推測して書きますが、
＞'---------------------------------------------
＞' Module
＞'---------------------------------------------
以下の部分は、Excel VBA の画面で、メニューの「挿入」→「標準モジュール」で標準モジュールを新しく作成して、そこの貼り付けてください。
ワークシートのコードに貼り付けるなら、先頭の方の(General)-(Declarations) のところに貼り付けて、
Public → Private に置換してください。

この回答へのお礼

はい、コンパイルエラーでした。
今度はうまくいきました。ありがとうございました！

お礼日時：2004/03/23 20:30

No.1 回答者： tsukasa-12r 回答日時： 2004/03/22 22:26

こちらが参考になると思います。

http://www.geocities.co.jp/SiliconValley/4805/vb …

参考URL：http://www.geocities.co.jp/SiliconValley/4805/vb …

この回答への補足

さっそくありがとうございました。
参考ページ拝見いたしました。残念ながら高度すぎて理解不能です。
そのままコピペしてみましたがエラーです。

ほかにもいろいろ検索してSendkeyでALT＋F4で終了させる手を見つけました。ところが
Sub 電卓終了()
SendKeys "%{F4}", True ' Alt + F4 キーを転送
End Sub
を設定したボタンをクリックすると、電卓が最小化されてしまいうまくいきません。
何か方法がないでしょうか？

補足日時：2004/03/23 11:47