-3

vba エラー: オブジェクト変数またはブロック変数が設定されていません

何が起こったのかわかりません！助けてください。これが私のコードです！

  If intMsgBox = vbYes Then
Unload frmNewOrder // error here
Unload Main_Menu //error here
ActiveSheet.PrintPreview
wkbNewOrder.Worksheets("New Order").Select
wkbNewOrder.Worksheets("New Order").Delete
wkbNewOrder.Worksheets("Main Menu").Select
End If
4

2 に答える 2

4

ドキュメントで説明されているように、 Main_Menu も frmNewOrder も設定されていません。

リンクのスクリーンショット。上記のリンクが切れた場合。

ここに画像の説明を入力

于 2013-10-25T07:45:16.523 に答える
0

frmNewOrder を変数として宣言したように見えますが、設定していないため、コードは次のようになります。

Dim MyForm As UserForm1
Unload MyForm

ただし、代わりに次のようにする必要があります。

Dim MyForm As UserForm
Set MyForm = UserForm1
Unload MyForm
于 2013-10-25T07:45:22.997 に答える