通过vba获取用户输入

Question

我在Col K中有一组日期“Latency”。我需要用户输入当前日期，然后代码应该在输入日期之前查找所有日期，复制整行并将其粘贴到名为“Previous”的另一个表中。

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

Answer 1

你可以使用一个输入框让用户输入一个日期，检查什么实际上进入是一个日期，然后运行你想要的代码：

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 2

这里是如何从用户那里得到输入：

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

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

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