スキルアップ・問題解決なら、モーグにおまかせ！

お世話になります。
 
今回、RSSを公開しているサイトから、情報を読み取って、シートに記載することができました。
ただ、URL部分がWクリックしても開かないため、ハイパーリンクを設定したいのですが、
コンパイル エラー:　構文エラーで止まってしまいました。
構文の何がいけないのでしょうか
宜しくお願い致します。
 
表示は、
タイトル　URL 日付　のようには表示されました。
●で囲まれたコードを入れるとエラーになってしまいます。
※●は、削除しております。
 
お忙しいとは思いますが宜しくお願い致します。
☆★☆★☆★☆★☆★☆★☆★☆★★☆☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
Dim xmlDoc As Object, RSSURL As String, rCode As Boolean
Dim titleNodes, pubDateNodes, decriptNodes, sss, linkNodes, i As Integer, j As Integer
 
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    xmlDoc.async = False
    'イベント情報を取得
    RSSURL = "https://news.yahoo.co.jp/rss/categories/science.xml"
    rCode = xmlDoc.Load(RSSURL)
        If rCode = False Then
            MsgBox "読み込めませんでした。", vbCritical
            Exit Sub
        End If
     
    Set titleNodes = xmlDoc.SelectNodes("//item/title")
    Set decriptNodes = xmlDoc.SelectNodes("//item/description")
    Set linkNodes = xmlDoc.SelectNodes("//item/link")
    Set pubDateNodes = xmlDoc.SelectNodes("//item/pubDate")
     
    Cells(5, 1).Select
    Dim hyplink As Hyperlink
     
    '5件分のフィードを出力
    j = 0
    For i = 1 To 20
        With ActiveCell
            .Offset(j, 0).Value = titleNodes(i).Text
            .Offset(j, 1).Value = linkNodes(i).Text
            .Offset(j, 2).Value = Mid(pubDateNodes(i).Text, 6, 11)
 
        ●ActiveSheet.Hyperlinks.Add(Anchor:=Cells(j, 4), Address:=linkNodes(i).Text, TextToDisplay:=titleNodes(i).Text)●
 
        End With
 
        j = j + 1
    Next i
    

どこかのWebページへのリンクを挿入する動作をマクロ記録してみてはいかがですか？
それが参考になるはずです。

この質問ページへのハイパーリンクを張る動作を記録すると、下記になります。

Sub Macro1()
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "https://www.moug.net/faq/viewtopic.php?t=82038", TextToDisplay:= _
        "https://www.moug.net/faq/viewtopic.php?t=82038"
End Sub

Dim hl As Hypeylink
Set hl = ActiveSheet.Hyperlinks.Add(Anchor:=Selection, Address:= URL1, TextToDisplay:=URL1)

誤字がありました。
最後のパラグラフの
「異常の話」　は　「以上の話」の間違いです。失礼しました。

simpleさん
 
お疲れさまです。
ご丁寧にご説明をありがとうございました。
私のVBAのレベルがとても低いため、内容が殆ど理解できていません。
 
私なりに理解して、simpleさんが示された内容を追加してみました。
結果、RSSの記載開始位置にハイパーリンクの設定ができましたが、
その一行だけで、他の部分は、変わりませんでした。
※一行の中で、20件分の内容が変わっているようでした。
 
そちらを各行に配置されればいいのですが、理解力が乏しいため、
引き続きのご指導をお願いできないでしょうか
 
宜しくお願い致します。
 
 
こちらを登録しました。
Public Function call_ClipBoardSave(URL1 As String)
Dim hl As Hypeylink
Set hl = ActiveSheet.Hyperlinks.Add(Anchor:=Selection, Address:=URL1, TextToDisplay:=URL1)
End Function
 
●の部分を下記に変更しました。
    URL1 = linkNodes(i).Text
Call ActiveSheet.Hyperlinks.Add(Anchor:=Selection, Address:=URL1, TextToDisplay:=URL1)
 

表示名も変えてみました。/表示名も表示されるようになりました。
あとは、表示位置の問題です。
 
お忙しいとは思いますが宜しくお願い致します。
 
Public Function call_ClipBoardSave(URL1, TitleName As String)
Dim hl As Hypeylink
Set hl = ActiveSheet.Hyperlinks.Add(Anchor:=Selection, Address:=URL1, TextToDisplay:=TitleName)
End Function
 
 
    URL1 = linkNodes(i).Text
    TitleName = titleNodes(i).Text
Call ActiveSheet.Hyperlinks.Add(Anchor:=Selection, Address:=URL1, TextToDisplay:=TitleName)

simpleさん
 
お疲れさまです。
ハイパーリンクで表示されるようになります。
ただ、なぜか、ハイパーリンクが20件表示されるされるのですが、
日付がそれ以降も10行も表示されるようになりました。
 
あと少しです。
引き続きご指導を宜しくお願い致します。
 
Dim xmlDoc As Object, RSSURL As String, rCode As Boolean
Dim titleNodes, pubDateNodes, decriptNodes, sss, linkNodes, i As Integer, j As Integer
Dim URL1, TitleName As String
 
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    xmlDoc.async = False
    'イベント情報を取得
    RSSURL = "https://news.yahoo.co.jp/rss/categories/science.xml"
    rCode = xmlDoc.Load(RSSURL)
        If rCode = False Then
            MsgBox "読み込めませんでした。", vbCritical
            Exit Sub
        End If
     
    Set titleNodes = xmlDoc.SelectNodes("//item/title")
    Set decriptNodes = xmlDoc.SelectNodes("//item/description")
    Set linkNodes = xmlDoc.SelectNodes("//item/link")
    Set pubDateNodes = xmlDoc.SelectNodes("//item/pubDate")
     
' Cells(5, 1).Select
' Dim hyplink As Hyperlink
     
    '20件分のフィードを出力
    j = 0
 Range("A5").Activate
     
    For i = 1 To 20
        With ActiveCell
            .Offset(j + 1, 1).Value = Mid(pubDateNodes(i).Text, 6, 11)
ActiveCell.Offset(1, 0).Select
URL1 = linkNodes(i).Text
TitleName = titleNodes(i).Text
Call ActiveSheet.Hyperlinks.Add(Anchor:=Selection, Address:=URL1, TextToDisplay:=TitleName)
     
        End With
 
     
        j = j + 1
    Next i

再掲します。

引用:
引数をカッコで囲んだりしていないですよね。そのとおりに真似をしてもらえばOKです。
ちなみに、Cells(j, 4)は、 .Offset(j, 4) の単純ミスでしょう。

 simpleさん
 
ありがとうございます。
 
コードは、ネットで探して、検証しながら、作っているので、理解していないのが事実です。
 
>ちなみに、Cells(j, 4)は、 .Offset(j, 4) の単純ミスでしょう。
こちらですが、.Offset(j, 4).Value =に変更するのですが、下記のコードをどのように表現
してよいのかがわかっていないのです。
 
もう少し、レベルを下げてご指導頂けないでしょうか
宜しくお願い致します。
 
Call ActiveSheet.Hyperlinks.Add(Anchor:=Selection, Address:=URL1, TextToDisplay:=TitleName)

当初のコードを前提にした修正案はこういうものです。
その後仕様が変わったとしたらその分を追加修正してください。（下記には反映していません）

    j = 0
    For i = 1 To 20
        With ActiveCell
            .Offset(j, 0).Value = titleNodes(i).Text
            .Offset(j, 1).Value = linkNodes(i).Text
            .Offset(j, 2).Value = Mid(pubDateNodes(i).Text, 6, 11)
            ActiveSheet.Hyperlinks.Add Anchor:=.Offset(j, 4), _
                  Address:=linkNodes(i).Text, TextToDisplay:=titleNodes(i).Text
        End With
        j = j + 1
    Next i

ありがとうございました。
 
無事、解決しました。
 
ハイパーリンクの使い方は、記録させていただきたいと思います。