EXCEL VBA 年月日期格式?
发布网友
发布时间：2022-04-23 05:59
共1个回答
热心网友
时间：2023-07-07 00:25
Sub Dat()
[a1] = Format(Date, "yyyy/mm/dd")
[a2] = Format(Date, "yy/mm/dd")
End Sub追问你好，以下是新行入工作表时工作表名称自动以日期命名，我按你的改不能自动命名，麻烦改一下，谢谢！
If Sheets(Sheets.Count - 1).Name = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00") Then '限定当前日期名工作表的唯一性
Sh.Delete
Else
Sh.Name = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")
End Sub
追答工作表名不支持“/”字符。
If Sheets(Sheets.Count - 1).Name = Format(Date, "yyyy年mm月dd日") Then
sh.Delete
Else
sh.Name = Format(Date, "yyyy年mm月dd日")
End If
