vba - Excel VBA : How to autocreate hyperlink from cell value?

Question

我有一个名为 Table1 的表

在 B 列中，我有票号。例如:76537434

要求:当B列任意单元格发生变化时，将该单元格(目标单元格)变为超链接，超链接地址为example.com/id=76537434

单元格值(即 76537434)必须保持不变

Answer 1

将此事件处理程序添加到工作表的代码模块中:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    Target.Hyperlinks.Delete ' or Target.ClearHyperlinks to conserve the formatting
    Me.Hyperlinks.Add Target, "http://example.com/id=" & Target.value
End Sub