1.通常的规则是:
如果希望获取函数的返回值,函数后应用()将参数括起来。
如无需使用返回值,则不应使用括号。
Sub 测试返回值()
Dim answer As Long
'MsgBox prompt:="删除这条记录吗?", Buttons:=vbYesNo + vbQuestion
answer = MsgBox(prompt:="删除这条记录吗?", Buttons:=vbYesNo + vbQuestion)
If answer = vbYes Then ActiveCell.EntireRow.Delete
Debug.Print answer
End Sub
2.编程时要习惯性的对可能出现的各种情况进行判断,尤其是是或否、有或无的判断。
Sub 输入对话框()
'input永远返回string类型的值,即使输入的是一个数字。
Dim s As String
s = InputBox(prompt:="请输入目标销售额:")
'如果在弹出的对话框中不输入就点击确定,或者直接点击取消,函数将返回零长度的字符串
'写代码要注意经常进行各种意外情况的判断。
If s = "" Then Exit Sub
Range("B2").Value = s
End Sub