Question

我需要为用户指定一个日期作为输入手动日期，并在以后阶段使用输入。当用户插入手动日期时，必须将其用于文件名的命名约定。前football 20160601.xlsx

我已经浏览了一些网站，但根据我的要求无法找到任何答案。

我的代码：

Sub date()
    date_test = Now()    

        Range("A1") = Format(date_test, "mm.dd.yy") ' how to aassign this date as a user defined date( as manual date) something like msg box but not msgbox.

    End date

Answer 1

Dim inputDate as Date
Date = Format(InputBox("Enter a Date", "Input"),"yyyy-mm-dd")

这样的东西？

如果您希望Datepicker选择所需的日期，请创建一个新的用户表单并添加＆＃34; Microsoft日期和时间选择器控件＆＃34; （工具 - >附加控件）到表单。然后你就可以使用它的价值：Format(DatePicker1.Value,"yyyymmdd")

如何在vba excel

1 个答案: