2013-04-27 53 views
0

我需要一个弹出式输入框,要求2013年4月24日星期五之前的较长日期,然后将日期添加到单元格I2。将弹出窗口的输入分配给Excel中的单元格

我Google在寻找这样的事情,发现

Public Function AskForResult() As String 
    Dim strUserResponse As String 

    strUserResponse = InputBox("Please Enter a Long Date") 

End Function 

但我无法弄清楚如何将输入分配给小区I2。

感谢

+0

使用输入框并迎合许多麻烦?我可以建议一个更好的[替代?](http://stackoverflow.com/questions/12012206/formatting-mmdd-yyyy-dates-in-textbox-in-vba/12013961#12013961) – 2013-04-27 13:46:10

+0

你好Siddharth Rout,我我试图使用alternitve方法“Userform1.frm和Userform1.frx”但不知道如何将输入分配给单元格。谢谢 – xyz 2013-04-27 17:21:44

+0

查看'CommandButton53_Click'代码。你可以使用'Range(“A'”)。value = TextBox1.Text' – 2013-04-27 17:55:09

回答

0

你可以你的InputBox行之后添加此行:

ActiveSheet.Cells(2, 9).Value = strUserResponse 

的2,9是I2单元格引用 - 为什么你要第2行,列9

+0

谢谢大卫 – xyz 2013-04-27 18:11:52