こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

コマンドボタンを2回目クリックでエラー発生する

windows7 Excel2007でマクロ作成の初心者です。以下の点で困ってます。ご指導お願いします。

次のコマンドボタンを実行すると、最初のクリックでは実行できるのに
同じボタンを再度クリックするとエラーがでます。
エラーが出ないようにするにはどうしたらよろしいでしょうか。
ちなみに、ブックはA、B、Cの3個です。

Private Sub CommandButton8_Click()
ActiveWorkbook.Close SaveChanges:=True
On Error Resume Next
Workbooks(2).Activate 'Bブックをアクティブに
Resume Next
Unload Me
評価.Show 
End Sub

投稿日時 - 2009-11-01 22:00:30

QNo.5414784

困ってます

質問者が選んだベストアンサー

>ActiveWorkbook.Close SaveChanges:=True
1回目はWorkbooksのインデックスが1~3ある中から1つを閉じると、
インデックスは1~2になる。

>Workbooks(2).Activate 'Bブックをアクティブに
ここでインデックス2はアクティブに出来る。

2回目はインデックスが1~2しかない物を1つ閉じるとインデックスは1だけなので
Workbooks(2).Activate ではインデックスがないのでエラーになる。

と言う事でしょうか?
その場合ならどのブックを閉じてどのブックをアクティブにするか、ブック名で指定出来るのなら
その方がよいのではないかと思います。

投稿日時 - 2009-11-01 22:28:58

お礼

やはりその方法でやってみます。ありがとうございました。

投稿日時 - 2009-11-02 07:50:14

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問