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のセル値がスコットランドという名前の別のワークシートであり、変更されたセルが$ 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 

Answer 2

を確認してください。チェックしてください。

Sheets("ChangeRecord").Hyperlinks.Add Anchor:=Sheets("ChangeRecord").Range("G" & CStr(lr)), Address:="", SubAddress:=ActiveSheet.Name & "!" & Sheets("ChangeRecord").Cells(Target.Row, Target.Column).Address, TextToDisplay:=ActiveSheet.Name