如何在新工作表excel VBA上放置超链接？答案

【问题标题】：how put a hyperlink on a new sheet excel VBA?如何在新工作表excel VBA上放置超链接？
【发布时间】：2021-07-08 11:47:02
【问题描述】：

我已经为以下代码创建了此代码：当您输入客户的姓名和电话时，将创建一个具有页面类型的新工作表，并且他在名称页面 1 和工作表之间创建了一个链接。但他一直不知道参考。

Sub dupliquer2()

Dim numFeuilClient As String
Dim telFeuilClient As String

Worksheets(2).Visible = True
Worksheets(3).Visible = True

numFeuilClient = InputBox("Nom Client")
telFeuilClient = InputBox("Numéro de Téléphone")

    If numFeuilClient = "" Then
        Worksheets(2).Visible = False
        Worksheets(3).Visible = False
        Exit Sub
    End If
    
Sheets("FeuilClient").Range("_suprclient").ClearContents
Sheets("FeuilClient").Copy after:=Sheets(Sheets.Count)

ActiveSheet.Name = numFeuilClient


 Hyperlinks.Add Anchor:=Sheets("FichierClient").Range("C3"), Address:="", SubAddress:= _
    "ActiveSheet!A1", TextToDisplay:="Voir Client"


ActiveSheet.Range("_nomclient").Value = numFeuilClient
ActiveSheet.Range("_telclient").Value = telFeuilClient

Sheets("FichierClient").Range("A3").Value = numFeuilClient
Sheets("FichierClient").Range("B3").Value = telFeuilClient
   
With Sheets("FichierClient").Range("A3:B3:C3")
.Insert xlShiftDown
End With

Worksheets(2).Visible = False
Worksheets(3).Visible = False


End Sub

【问题讨论】：

欢迎来到 SO。 Hyperlinks 集合属性是 Sheet 对象的成员，因此您需要 Activesheet.Hyperlinks 或更好的限定工作表名称 Sheets("MySheet").Hyperlinks
您好，感谢您的回答。但这是问题所在。工作表的名称取决于之前输入的名称。而且我不知道如何创建这个变量。或者如何使用变量 numFeuilClient 选择子地址。我是一个初学者，所以也许这是一个愚蠢的问题。

标签： excel vba hyperlink excel-2010 export-to-excel

【解决方案1】：

像这样：

Hyperlinks.Add Anchor:=Sheets("FichierClient").Range("C3"), Address:="", _
         SubAddress:= "'" & ActiveSheet.Name & "'!A1", TextToDisplay:="Voir Client"

【讨论】：

啊，是的，所以它是SubAddress 中的工作表名称。