EXCEL VBA UserFormで起動エラーが発生する理由と解決方法

質問

• EXCEL VBA UserFormで起動時に発生するエラーを解決する方法を紹介します。
• エラーの原因は、ラベルやボタンの表示、非表示を切り替える命令行で発生しています。
• 解決方法としては、時間差をつけて命令を実行することでエラーを回避することができます。

回答No.2

Wendy02

リンク先のアドバイスを書いた本人です。

確か、その時のアドバイスは、開いて直(ダイレクト）に、UserForm を操作したり、ダイレクトで、UserForm でクローズと共にBook をクローズすると、ハングしてしまうということで、時間差を付けるというのを考えました。Excel本体のメモリの割り付けとUserForm のメモリの割り付けとインスタンスの設定を同時にすることが問題になっているようです。

もともと、アプリケーションの本体を表示せずに、UserForm だけを独立させて表示させるのは、無理があるのではないかと思います。富士通のFOMの教本のサンプルには出ていましたが、私はかねがね疑問に感じていました。

以下のコードも、当然は、危ないコードです。
UserForm のほうは、元に戻していないのですか？「EXCEL VBA UserFormで困っています。」のご質問者さんも、ダイレクトで行っていたようです。

>Private Sub CommandButton14_Click()
>y = MsgBox("終了します。よろしいですか？", vbYesNo)
>If y = vbYes Then
>　　Application.DisplayAlerts = False
>　　ThisWorkbook.save
>　　ThisWorkbook.Close
>End If
>End Sub

Private Sub CommandButton14_Click()
If MsgBox("終了します。よろしいですか？", vbYesNo) = vbYes Then
　　Unload Me
　　Application.DisplayAlerts = False
　　If ThisWorkbook.Saved = False Then
　　　ThisWorkbook.Close True
　　End If
End If
End Sub

無理なコードは書かないことに尽きます。そういう私自身、最近PCのせいなのか、UserForm をAPIで最小化させて、ずっと出しっぱなしにしていることがありますが、どうやら、メモリ・リークがあるようです。PCが極端に動かなくなります。ExcelをQuit すれば、元に戻ります。

>自動保存機能
私は、一応、これは外しています。自動保存と、マクロがぶつかる時があり、マクロに支障が出ます。こちらでは、独自のバックアップシステムをマクロで作っています。

お礼

回答ありがとうございます。
保存＋終了の処理を、ご教授頂いた上記のコードに変更してみましたが、現象は改善されません。

menuというフォームから、コマンドボタンを押すとUserform1が立ち上がる、というマクロなんですが、コマンドボタンを押すとuserform1が立ち上がる前に「問題が発生したため...」というエラーが出てしまいます。
ステップモードで実行すると問題なく動作し、その状態で一度動作させると、次に保存＋終了処理をしてブックを閉じるまでは正常動作しています。
しかし、menuフォームから保存＋終了処理をしてブックを閉じると、次に開いたときにまた最初に逆戻りしてしまいます。

一応、一連の動作中に実行されるコードを以下に記載しておきます。
以下のコード内において、ご指摘の「ダイレクトなuserformの操作」箇所はありますでしょうか。

宜しくお願い致します。

'menuフォーム上のコマンドボタン(押すとuserform1が立ち上がる)
Private Sub CommandButton15_Click()

UserForm1.CommandButton6.Visible = False
UserForm1.CommandButton7.Visible = False
UserForm1.CommandButton8.Visible = False
UserForm1.CommandButton9.Visible = False
UserForm1.CommandButton10.Visible = False
UserForm1.Label10.Visible = True
UserForm1.Label18.Visible = True
UserForm1.Label199.Visible = False
UserForm1.Label197.Visible = False
UserForm1.Label198.Visible = False
UserForm1.Label200.Visible = False
UserForm1.Label201.Visible = False
UserForm1.Label217.Visible = False
UserForm1.Label195.Visible = True
UserForm1.Label218.Visible = False
UserForm1.Label219.Visible = False
UserForm1.Label112.Visible = True
UserForm1.Label214.Visible = True
UserForm1.Label220.Visible = False
UserForm1.MultiPage1.Value = 0
UserForm1.Show
End Sub

'Userform1のコンボボックスリストを作成
Private Sub UserForm_Initialize()
'基本情報タブ
Dim MaxRow As Long
MaxRow = Sheets("取引先DB").Cells(Rows.Count, 1).End(xlUp).Row
combocnt = 2
Sheets("取引先DB").Select
Do Until combocnt = MaxRow + 1
combolist = Sheets("取引先DB").Range("B" & combocnt).Value
UserForm1.ComboBox70.AddItem combolist
combocnt = combocnt + 1
Loop
sheets("sheet1").select
end sub