独習 Excel VBAエキスパート スタンダード

9. エラー対策



問4: 次のコードではエラーが発生してもエラーを無視して処理を続けるようにしたい。このとき空欄に入る適切な命令はなにか。



Sub Sample5()

	On Error 【空欄】

	ActiveWorkbook.SaveAs "Book1.xlsm"

	If ActiveWorkbook.Saved = True Then

		MsgBox "保存されました"

	Else

		MsgBox "保存されていません"

	End If

End Sub