Question

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

要求是： 将工作表sheet1改名为当日日期（变量）并加上一个N字。当日日期的个格式为NOV252010, 重命名后，sheet1会改成，比如，NOV252010N。不知用vba怎么写？请高手指点。

Answer 1

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

Answer 2

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

Answer 3

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