Excel（エクセル）活用コミュのいつもエクセルを閉じるとアベンドしてしまいます。

ComboBox1_Change()を使用すると、
いつもエクセルを閉じるとき、
「Sheetsメソッドは失敗しました_Globalオブジェクト」
というエラーが出てアベンドします。
ws1 = Worksheets("aaa").ComboBox1.ListIndex
という欄でいつも止まります。
どうすれば解決できるのでしょうか？
どうかよろしくお願い致します。

コメント(4)

最初
全て
最新の40件

[1] mixiユーザー 07月26日 00:15

書かれている情報だけだと、そのタイミングでChangeイベントが発生する
理由は良く分かりませんが、
とりあえずの対策で良いならOn Error文あたりを使って、
特定条件下のエラーの時はエラーを無視するような方法で、
強引に回避しても良いかも知れませんね。

[2] mixiユーザー 07月26日 20:18

>Minon さん
アドバイスありがとうございます。
とりあえずの対策でこころ見てみましたが中々うまいこといきません。

一番確実なのは、エクセルを閉じるとき、
このComboBox1_Change()を通らないようにしたり、通ってもWorksheetsのステップを飛ばすようにすることかと思いますが、
どうやってそういうのを指定するのかわかりません。
どうすればそうやって指定できるのでしょうか？
どうかよろしくお願い致します。

[3] mixiユーザー 07月27日 01:15

＞このComboBox1_Change()を通らないようにしたり、通ってもWorksheetsの
＞ステップを飛ばすようにすることかと思いますが、
＞どうやってそういうのを指定するのかわかりません。

私のスキル不足も多分にありますが、
こういう事を外部の人間が考えるためには情報が不足しています。

そのコンボボックスをどのように使っているのかも、
Changeイベント中でどんな処理を行っているのかも書かれていなかったので、
もう少し情報を頂かないと具体的には答えようが無いと思います。
せいぜいコードから、
　・[コントロール]ツールバーのコンボボックスComboBox1を
　　ワークシート"aaa"上に貼り付けた
　・ComboBox1のChangeイベントハンドラ中で、そのComboBox1のリスト選択状態を
　　参照しようとしている
という事くらいしか、私には読み取れませんでした。

また、現象の再現を試みたのですが、コンボボックスへのアイテム追加を
手動設定するだけでは上手く現象再現できませんでした。
別の場所で、コンボボックスのLinkedCellプロパティやListFillRangeなど、
ワークシート上のセル範囲と関連づけるプロパティを設定していませんか？
そして、アプリ終了時などにそれらの範囲に対して変更を加える処理を
記述していませんか？
守秘に抵触しない範囲で現象を再現可能な最低限の記述をした
ブックを提示して頂けると、一番手っ取り早いのですが…。

＞とりあえずの対策でこころ見てみましたが中々うまいこといきません。

？？？
↓のような感じに特定エラー時のみ無視して処理を続行、
それ以外のエラーなら一般的なエラー発生時のようにエラー内容を
示して終了するようなコードを記述すれば良いと思います。
(根本的解決じゃないのは確かですね…)

Private Sub ComboBox1_Change()
Dim idx As Integer
On Error GoTo ErrHandler
idx = Worksheets("Sheet6").ComboBox1.ListIndex
On Error GoTo 0
Exit Sub

ErrHandler:
If Err.Number = 1000 Then '1000はでたらめ。メソッド失敗のエラーコードに要書き換え
Resume Next
Else 'その他のエラーならエラー内容を表示して終了
MsgBox Err.Description & "(" & Err.Number & ")"
End
End If
End Sub

[4] mixiユーザー 07月27日 23:11

>Minon さん

おっしゃる通りワークシート上のセル範囲と関連づける設定をしています。
結果アプリ終了時などにそれらの範囲に対して変更を加える処理をわからず
記述しているかもしれません。

現状ですが、On Error GoTo ErrHandler のコード記述で、
アプリ終了の度に出ていたエラーは回避できました。

今後のためにも再現可能な記述をさせてご助言を求めるかもしれませんが、
エラー回避のコーディングができたのは大変助かりました。
ありがとうございました。

ログインすると、みんなのコメントがもっと見れるよ