Sub AutoRenameSheet()
Dim ws As Worksheet
Dim newName As String
newName = ActiveSheet.Range("A1").Value
If newName <> "" And newName <> ActiveSheet.Name Then
On Error Resume Next
ActiveSheet.Name = newName
On Error GoTo 0
End If
Application.OnTime Now + TimeValue("00:00:01"), "AutoRenameSheet"
End Sub
Public Sub Auto_Open()
Call AutoRenameSheet
End Sub
Sub UpdateWorksheetName()
Dim ws As Worksheet
Dim cellValue As String
' 设置您希望用来更新工作表名称的单元格地址
cellValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
' 更新当前工作表的名称
Set ws = ThisWorkbook.Sheets("Sheet1")
ws.Name = cellValue
End Sub
WPS 灵犀给的答案
WPS寻令官 | 创作者俱乐部成员