用单元格值自动创build一个表格，并将单元格值超链接到它

我正在使用此VBA代码为每个单元格值创build新工作表

Private Sub Worksheet_Change(ByVal Target As Range) Dim wsNew As Worksheet If Target.Cells.Count > 1 Then Exit Sub On Error Resume Next If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Set wsNew = Sheets(Target.Text) If wsNew Is Nothing Then Sheets.Add().Name = Target.Text End If End Sub 

它工作正常，但工作表正在创build之前，我希望他们主表，我想链接这些单元格值作为超链接到其各自的工作表。

谢谢

Answer 1

 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Len(Target.Value) = 0 Then Exit Sub If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Dim wsNew As Worksheet On Error Resume Next Set wsNew = Worksheets(Target.Text) On Error GoTo 0 If wsNew Is Nothing Then With Worksheets.Add(after:=Me) .Name = Target.Text Target.Hyperlinks.Delete Target.Hyperlinks.Add Target, "", "'" & .Name & "'!" & .Range("A1").Address(False, False, xlA1) End With Me.Activate End If End If End Sub