VBA 如何给变量重命名?
发布网友
发布时间:2022-04-22 12:46
我来回答
共1个回答
热心网友
时间:2023-11-05 05:02
Sub
rename
myDate
=
Format(Date,
"[$-409]dd-mmm-yy;@")
'得到美式的日期格式
mymonth
=
Split(myDate,
"-")
'split此日期格式,找到当前的月份的英语简写
myName
=
UCase(mymonth(1))
&
UCase(mymonth(0))
&
Year(Date)
&
"N"
'你需要的格式
Sheets(1).Name
=
myName
End
Sub