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

问题描述

我为以下代码创建了以下代码：当您输入客户的姓名和电话时，会创建一个具有页面类型的新工作表，并在姓名页面 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

解决方法

像这样：

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