0

我需要一个弹出输入框,要求在 2013 年 4 月 24 日星期五之前输入一个长日期,然后将日期添加到单元格 I2。

我用谷歌搜索了类似的东西并发现

Public Function AskForResult() As String
    Dim strUserResponse As String

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

End Function

但我不知道如何将输入分配给单元格 I2。

谢谢

4

1 回答 1

0

您可以在 InputBox 行之后添加此行:

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

2, 9 是 I2 的单元格引用 - 第 2 行第 9 列。

于 2013-04-27T14:25:23.800 回答