« 光 ONU【Optical Network Unit】取替。 | トップページ | 寒いですね。 »

2010/10/20

エクセルで一旦停止~再開。

エクセル VBAと格闘。(2010.10.20)
会社でエクセルを触っています。
その処理の中で一旦停止して入力後再開したいという処理が発生しました。
自分では、どうにもならないのでネット検索してみるとマイクロソフト サポート オンライン でこんなサポートがありました。
で、取り込んで実行してみますとおもいとおりに動いてくれます。

ところが・・・、数回動作させますと .name="pause" のところでエラーが出て前へ進みません、エクセルの参照設定の不具合とかも疑ってみていろいろやりましたが解決できません。
---------------------------------------------------------
Sub CreatePauseToolbar()
'プロシージャ名: CreatePauseToolbar -ツールバーを作成するプロシージャ
Dim NewBar As Object
'ツールバーの作成
On Error Resume Next ’ <-----追加
Set NewBar = CommandBars.Add
With NewBar
.Name = "pause" <------プロシージャエラー
.Visible = True
'ツールバーにボタンの追加
.Controls.Add Type:=msoControlButton
With .Controls(1)
.Style = msoButtonCaption
.Caption = "*****継続*****"
'プロシージャの登録
.OnAction = "PartTwo"
End With
End With
End Sub
---------------------------------------------------------
Sub PartTwo()
'プロシージャ名: PartTwo -ツールボタンに登録するプロシージャ
'ツールバーの削除
On Error Resume Next ’ <-----追加
CommandBars("pause").Delete
Call 処理
Call 並替
End Sub
---------------------------------------------------------
数回はうまくできるのにそのうちに駄目になるって、こんなことネットでどこ探しても対処法が書いてないなぁ。
「ええいっ!ままよっ!!」ということで、禁断の技 On Error Resume Next をマクロに挿入したらこともなく動きました。
とりあえず、初期の目的を達成出来たみたいなので良しとしましょう。

HPへジャンプ

|

« 光 ONU【Optical Network Unit】取替。 | トップページ | 寒いですね。 »

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/40543/49797953

この記事へのトラックバック一覧です: エクセルで一旦停止~再開。:

« 光 ONU【Optical Network Unit】取替。 | トップページ | 寒いですね。 »