ワークシートは、シートの範囲内の情報を要約し、特定のセルにハイパーリンクを追加する

Question

コンテンツページの背後には複数のシートがあり、コンテンツページはシートのすべての特定の情報を行ごとに要約します。 （これは既に行われています）しかし、私はコンテンツページの各行の特定のセルにハイパーリンクを追加して、後ろのそれぞれのシートにリンクしたいと思います。

しかし、私は

ActiveCell.Offset(0, 3).Value = Worksheets(R).Range("F77").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=_"'worksheets(R)"!A1", TextToDisplay:=cell.Value

あなたは、私はこの問題を解決する方法を私に教えていただけませんこの行に構文エラーがありますか？

ありがとうございました。

として以下のコードを参照してください。

Sub Summary_of_EO_Projects() 
Dim EOStartNum, EOEndNum As Long 
EOProStartNum = Worksheets("EOStart").Next.Index 
EOProEndNum = Worksheets("EOEnd").Previous.Index 

Sheets("Summary of EO Projects").Select 
Range("A5").Select 
Startline = 5 

For R = EOProStartNum To EOProEndNum 
Range("A" & Startline).Value = Worksheets(R).Range("D4") 
ActiveCell.Offset(0, 1).Value = Worksheets(R).Range("D5") 
ActiveCell.Offset(0, 3).Value = Worksheets(R).Range("F77").Hyperlinks.Add _ 
       Anchor:=Selection, Address:="", _ 
       SubAddress:="'worksheets(R)"!A1", _ 
       TextToDisplay:=cell.Value 
ActiveCell.Offset(0, 4).Value = Worksheets(R).Range("G77") 
ActiveCell.Offset(0, 5).Value = Worksheets(R).Range("H77") 

Startline = Startline + 1 
Range("A" & Startline).Select 
Next R 


End Sub 

Answer 1

は、ここで私はハイパーリンクを作成する必要があるときに私が通常使用するユーティリティサブです：

'Create a hyperlink from a cell to a range *in the same workbook* 
' txt = the text to disply in the hyperlink 
Sub DoHyperlink(rngFrom As Range, rngTo As Range, txt As String) 
    Dim addr As String 
    addr = "'" & rngTo.Parent.Name & "'!" & rngTo.Address(False, False) 
    rngFrom.Parent.Hyperlinks.Add Anchor:=rngFrom, Address:="", _ 
          SubAddress:=addr, TextToDisplay:=txt 
End Sub