在输入框运行时滚动

Question

我有以下宏来向用户显示输入框：

Sub InsertRows()
    Do
        row_number = InputBox("How many rows do you want to insert?" _
            & vbCr & "Max: 500")
        If row_number = "" Then Exit Sub
        If row_number > 500 Then MsgBox ("Row number has to be <= 500")
    Loop Until row_number <= 500 Or row_number = ""
    MsgBox (row_number & " Rows inserted successfully.")
End Sub

宏本身运作完美。但是，一旦输入框显示在excel屏幕上并且用户必须输入值，他就无法在工作表内滚动。

是否可以以某种方式对此输入框进行编程，以便在显示输入框时用户仍然可以在工作表内滚动？

Answer 1

看一下非常相似但不是模态的Application.InputBox