VBA 学习笔记 错误处理

Posted 2021-08-09 笑虾

一下代码实现用户输入判断，出错可以一直重试。

Sub demo()
	Dim birthday As Date
	On Error Resume Next ' 出错时忽略，继续向下运行。
	Do
		birthday  = InputBox ("输入您的生日(yyyy-MM-dd)")  ' 假设此处用户没有输入日期。
		If Err. Number <> 0 Then 
			MsgBox "您的输入有误！请按照提示的日期格式输入。" ' 如有需要，可以在此提醒用户。
			GoTo ErrorHandler ' 跳转到标签位置
		End IF
		
		' 业务逻辑代码

		ErrorHandler: ' 定义标签 errorTag， 名字自己起的。
		Err. Clear
	Loop
End Sub

参考资料

微软Docs 》Office 》VBA 参考 》语言参考 》参考》 语句 》On Error 语句
微软Docs 》Office 》VBA 参考 》语言参考 》参考》 对象 》Err 对象
微软Docs 》Office 》VBA 参考 》语言参考 》用户界面帮助 》错误消息 》可捕获的错误