Application.inputbox 缺少提示

Question

我了解到 OSX 上的 Excel VBA 出现问题，但这是我的代码或 OSX 上的 VBA 中的问题吗？ 以下行：

FirstYear = Application.InputBox(prompt:="Enter the first year you wish to import", Type:=1)

给了我一个输入框，但没有提示。 有人有什么想法吗？ 如果我使用输入框功能而不是方法，提示会起作用，但是取消按钮的错误处理似乎是不可能的。

Answer 1

您可以按如下方式使用InputBox()函数：

Dim FirstYear As Long
On Error Resume Next
Do
    Err.Clear
    FirstYear = InputBox(prompt:="Enter the first year you wish to import")
Loop While Err <> 0 Or Not IsNumeric(FirstYear)
On Error GoTo 0