如何在excel 2013 VBA中基于单元格值更改url值？

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查更改的单元格是否是目标单元格
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ' 获取目标单元格的值
        Dim cellValue As String
        cellValue = Target.Value
        
        ' 根据单元格值修改URL
        Dim newURL As String
        newURL = "https://www.example.com/" & cellValue
        
        ' 将新的URL赋值给目标单元格的超链接
        Target.Hyperlinks.Add Anchor:=Target, Address:=newURL, TextToDisplay:=newURL
    End If
End Sub