我可以根据同一张表格中的单元格引用使用以下VBA代码成功命名我的工作表标签:
exact
但是,我很难根据标题表中的单元格引用更改工作表标签。我尝试过简单地用所需表单Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
On Error GoTo Badname
ActiveSheet.Name = Left(Target, 31)
Exit Sub
Badname:
MsgBox "Please revise the entry in A1." & Chr(13) _
& "It appears to contain one or more " & Chr(13) _
& "illegal characters." & Chr(13)
Range("A1").Activate
End Sub
中的引用替换范围,但这似乎不起作用。
任何有关解决这个问题的建议都会非常感激。
答案 0 :(得分:4)
使用它来引用另一个工作表
Worksheets("Keywords").Range("A1").Value