Question

我在Col K中的片段“Latency”中有一组日期。我需要用户输入当前日期，然后代码应找到输入日期之前的所有日期，复制整行并将其粘贴到名为“上一页”的不同表格中。

我一直坚持如何从用户那里获取输入并将其集成到代码中并执行上述操作。欢迎任何建议。

Answer 1

以下是如何从用户那里获得输入：

Range("A1").Value = InputBox("Give me some input")

在这里阅读更多内容： http://www.excel-easy.com/vba/examples/inputbox-function.html

Answer 2

您可以使用输入框让用户输入日期，检查输入的内容实际上是日期，然后运行所需的代码：

Sub test()
Dim userdate

userdate = InputBox("Please enter a date", "Enter Date", Date)
If IsDate(userdate) Then
  'Do stuff here
End If

End Sub

Answer 3

您可以尝试类似下面的代码（添加一些基本的错误处理）

Sub InputDateBox()

Dim myDateString As String
Dim myDate As Date

myDateString = InputBox("Please enter a date", "Enter Date", Format(Date, "dd/mm/yyyy"))

If IsDate(myDateString) Then
    myDate = myDateString  
    'Do the rest of your coding here
Else
    MsgBox "Not a valid date format!"
End If

End Sub

通过vba获取用户输入

3 个答案: