Excel格式的date格式
我有一个窗体文本框,以Dec-15
日这种格式input月份和年份,但实际上它返回VBA代码中的value 15/12/2016
。
我怎样才能做到01/12/2015?
sMonthYear = Trim(Form.txtMonthYear.Value)
报告标题= 12月15日
Sheets("Report").Cells(2, 2).Value = "" & sMonthYear & ""
find文件夹= 2015
sFolderYear = Year(sMonthYear) strSavePath = sFilePath + sFolderYear + "\"
文件名=十二月-15
sFileName = sMonthYear wbDest.SaveAs strSavePath & sFileName & ".xls"
谢谢
尝试这个…
Sheets("Sheet1").Cells(2, 2).Value = "01" & "" & sMonthYear & ""
或格式化单元格
Option Explicit Sub DateFormat() Dim sMonthYear As String sMonthYear = "Dec-15" Sheets("Sheet1").Cells(2, 2).NumberFormat = "DD/MM/YYYY" Sheets("Sheet1").Cells(2, 2).Value = "01" & "" & sMonthYear & "" End Sub