vba - 如何根据 2 个单元格值在单元格中自动插入超链接

Question

我想知道是否有人可以帮忙。

我有一个宏，用作更改记录，如下所示:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveSheet.Name = "ChangeRecord" Then Exit Sub

Application.EnableEvents = False

UserName = Environ("USERNAME")

NewVal = Target.Value

Application.Undo

oldVal = Target.Value

lr = Sheets("ChangeRecord").Range("A" & Rows.Count).End(xlUp).Row + 1

Sheets("ChangeRecord").Range("A" & lr) = Now
Sheets("ChangeRecord").Range("B" & lr) = ActiveSheet.Name
Sheets("ChangeRecord").Range("C" & lr) = Target.Address
Sheets("ChangeRecord").Range("D" & lr) = oldVal
Sheets("ChangeRecord").Range("E" & lr) = NewVal
Sheets("ChangeRecord").Range("F" & lr) = UserName

Target = NewVal

Application.EnableEvents = True
End Sub

因此，更改记录在名为 ChangeRecord 的单独工作表中，并且效果很好。

我还想做的是在 G 列中添加一个超链接，它可以直接转到更改记录，因此，如果 B 列中的单元格值是另一个名为 Scotland 的工作表，并且更改的单元格是 $A $21，然后 G 列中自动创建的超链接将我带到该工作表上的该单元格。

任何帮助将不胜感激。最好的问候

Answer 1

检查下面的代码

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveSheet.Name = "ChangeRecord" Then Exit Sub

Application.EnableEvents = False

UserName = Environ("USERNAME")

NewVal = Target.Value

Application.Undo

oldVal = Target.Value

lr = Sheets("ChangeRecord").Range("A" & Rows.Count).End(xlUp).Row + 1

Sheets("ChangeRecord").Range("A" & lr) = Now
Sheets("ChangeRecord").Range("B" & lr) = ActiveSheet.Name
Sheets("ChangeRecord").Range("C" & lr) = Target.Address
Sheets("ChangeRecord").Range("D" & lr) = oldVal
Sheets("ChangeRecord").Range("E" & lr) = NewVal
Sheets("ChangeRecord").Range("F" & lr) = UserName
Sheets("ChangeRecord").Hyperlinks.Add anchor:=Sheets("ChangeRecord").Range("G" & lr), _
            Address:="", SubAddress:=Target.Worksheet.Name & "!" & Target.Address, _
            TextToDisplay:="Changes"
Target = NewVal

Application.EnableEvents = True
End Sub