excel中如何用vba将工作表sheet1重命名，因为要重命名的名称是变量，所以搞不定。

发布网友发布时间：2022-05-18 20:25

共3个回答

热心网友时间：2023-10-31 04:00

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

热心网友时间：2023-10-31 04:01

1为设置，2为恢复
Sub Macro1()
Sheets("Sheet1").Select
Sheets("Sheet1").Name = Left(Now(), 10) & "N"
End Sub

Sub Macro2()
Sheets(Left(Now(), 10) & "N").Select
Sheets(Left(Now(), 10) & "N").Name = "Sheet1"
End Sub

热心网友时间：2023-10-31 04:01

Sub test()
Sheets("sheet1").Name = Format(Date, "mmmddyyyy")
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com