[[20050401173919]]　『ハイパーリンクのアドレスの一部だけ変更する』（sekata）　ページの最後に飛ぶ

『ハイパーリンクのアドレスの一部だけ変更する』（sekata）

教えて頂きたいのですが、

大量の文書ファイルのタイトル一覧をエクセルで作り、それぞれハイパーリンクを挿入した。いま　リンク先のアドレスの一部のみ変更となりました。

例：\\bbbbb\123456 → \\aaaaa\123456

    \\bbbbb\464845 →　\\aaaaa\464845

300件ほどありますので　なにか簡単な変更方法がありますでしょうか。
宜しくお願いいたします。

 編集の置換では出来ませんか？
（SoulMan）

置換では出来ないのですが。
（sekata）

 マクロで、hyperlinksコレクションをループ処理しながら置き換えかな・・
  (INA)

マクロの具体的なやり方は教えて頂きますでしょうか、宜しくお願い致します。
（sekata)

 Dim h As Hyperlink
    For Each h In ActiveSheet.Hyperlinks
        h.Address = Replace(h.Address, "bbbbb", "aaaaa")
        MsgBox h.Range.Address(0, 0) & " = " & h.Address
    Next h

  (INA)

できました！
どうもありがとうございました！！！
(sekata)

コメント返信：

[ 一覧(最新更新順) ]

[[20050401173919]] 『ハイパーリンクのアドレスの一部だけ変更する』（sekata） ページの最後に飛ぶ

[[20050401173919]]　『ハイパーリンクのアドレスの一部だけ変更する』（sekata）　ページの最後に飛ぶ