マクロを使用したハイパーリンクの追加

Question

マクロを使用して特定のフォルダ内の他の多くのブックをアクティブ化し、特定のデータをGENERALに集めて合計を作成するワークブック（「一般」と呼ぶ）があります。私は自動的にエラーを迅速にトレースできるように特定のブックに戻るコピーされた値のいずれかにハイパーリンクを作成したいと思います。だから、

MyPath = "Y:\test_workbook" 
MyFile = Dir(MyPath) 
Do While MyFile <> "" 
If MyFile Like "*.xls" Or MyFile Like "*.xlsx" Then 
Workbooks.Open MyPath & MyFile  

Sheets(1).Select 
Range("A1") = myValue 
Range("A1") = CDate(myValue)  
a = Range("A2").Value   ' here file-title 
b = Range("A3").Value   
c = Range("A4").Value   
f = Range("B1").Value 

ActiveWorkbook.Close SaveChanges:=True  
End If 

Workbooks("GENERAL.xlsm").Activate  
Sheets("total").Cells(i, j) = a   
Sheets("total").Cells(i, j + b) = c 

i = i + 1 
MyFile = Dir 

Loop 

：私のコードは次のようである私が情報を提供し、に戻ってつながる相関ワークブックのA2セル情報を含むセルの上にマッピングされているワークブックGENERALでハイパーリンクを作成したいですそれ。 誰かがこれがどのように行われたのか手がかりを持っていますか？

Answer 1

私はあなたの状況を理解していない怖いが、ここでは、Excel VBAでハイパーリンクを作成する方法は次のとおりです。私は私の場合にそれを適応し、チューニングのビットで、助け

With worksheet 
    .Hyperlinks.Add Anchor:=.Range("A2"), _ 
    Address:="http://www.stackoverflow.com", _ 
    ScreenTip:="Stack Overflow", _ 
    TextToDisplay:="StackOverflow" 
End With