如果 TextToDisplay 更改，则自动更改超链接地址答案

【问题标题】：Change hyperlink address automatically if the TextToDisplay changes如果 TextToDisplay 更改，则自动更改超链接地址
【发布时间】：2019-11-24 18:53:31
【问题描述】：

我需要 Excel 中超链接的解决方案。如果我更改超链接的文本，我想让我的整个超链接地址自动更新。

比如TextToDisplay的超链接是：

D:/attachment/1000.jpg

然后我把超链接的TextToDisplay改成：

D:/attachment/1001.jpg

如果我更改超链接的文本，则超链接地址的更改与显示文本相同。

【问题讨论】：

标签： excel vba excel-formula hyperlink

【解决方案1】：

公式解决方案

最简单的方法是使用辅助列。例如，在 A 列中写入您的 URL，并在 B 列中使用以下公式创建超链接。每次更改 A 列中的 URL 时，都会相应地更改超链接。

=HYPERLINK(A:A)

VBA 解决方案

您也可以在 VBA 中使用 Worksheet_Change 事件。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    For Each Cell In Target
        If Cell.Hyperlinks.Count = 1 Then
            Cell.Hyperlinks(1).Address = Cell.Value
        End If
    Next Cell
End Sub

请注意，此代码适用于工作表上的所有超链接。如果您想将其限制在特定范围内，请执行以下更改：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim AffectedRange As Range
    Set AffectedRange = Intersect(Target, Me.Range("A:A"))
        'limits the code to hyperlinks in column A.
        'hyperlinks in other cells than column a are not changed

    If Not AffectedRange Is Nothing Then
        Dim Cell As Range
        For Each Cell In AffectedRange
            If Cell.Hyperlinks.Count = 1 Then
                Cell.Hyperlinks(1).Address = Cell.Value
            End If
        Next Cell
    End If
End Sub

【讨论】：

嗯有一些错误。如果我使用 marcos，我有很多不同名称的数据，你发布它会改变所有的超链接
@RonaldSebastian 好吧，如果您希望我能在这方面提供帮助，您需要更加准确。
是你发布的第 1 号 marcos 会更改所有超链接吗？示例我有不同名称的超链接 54.jpg、101.jpg 和 102.jpg 。如果我将 54 更改为 103，它也会更改 101.jpg 和 102.jpg 吗？和 54 到 103.jpg 一样吗？然后我所有的超链接都变成了 103.jpg？
好的，谢谢。您发布的第 2 个宏是什么意思？我还是不明白。
@RonaldSebastian 它只会更改 A 列中的超链接，但不会更改其他列中的超链接。