在vba中创建超链接

Sub CreateHyperlink()
    Dim ws As Worksheet
    Dim rng As Range
    Dim hyperlink As Hyperlink
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 获取要添加超链接的单元格范围
    Set rng = ws.Range("A1")
    
    ' 创建超链接对象
    Set hyperlink = ws.Hyperlinks.Add(rng, "https://www.example.com", TextToDisplay:="Click Here")
    
    ' 设置超链接样式
    hyperlink.Range.Font.Color = RGB(0, 0, 255) ' 蓝色字体
    
    ' 保存工作表
    ws.Save
End Sub