エグウェブ.JP@福岡/WEBセミナー・分析・WEBサイト制作

福岡でWEB分析・ホームページ・WEBサイト作成・WordPress、Googleアナリティクス、LINEスタンプ、Photshop・illustrator、Excelの講座やセミナーを開催

【EXCEL】ハイパーリンクのリンク先を一括変換したい場合の対処法<VBA>

time 2017/10/23

ハイパーリンクが。。。

ハイパーリンク先のフォルダのファイルをごっそり移動してしまい、ハイパーリンクが使えない・・・

しかし、ハイパーリンクを「置換」しようとしても、できない・・・。

※検索対象を値に変えてもダメ…

ハイパーリンクは普通には検索対象にならない様子。

マクロを使う

調べてみると、ハイパーリンクを一括変換するためには
どうやらマクロを使う必要がありそうです。

ということでVBAコードをお借りして
マクロを組んでみます。

Replace

Sub ハイパーリンクの置きかえ()
 Dim H As Hyperlink
 For Each H In Range("B1:B100").Hyperlinks
  H.Address = Replace(H.Address, 
"C:\Users\eguchi\Desktop\", 
"C:\Users\eguchi\Documents\")
 Next
End Sub

Range()の中とReplaceの” “内は変換する内容に書き換え

実行。

実行してもVBAの画面上は何も変わりませんが

EXCELのセルを確認すると、たしかにハイパーリンクが変わっています!!

まとめ

Rangeの範囲やReplaceの文字列を変えると応用が効きますので、ハイパーリンクの一括変換で困っている方は、ぜひ試してみて下さい★
\(^o^)/

download

プロフィール

EGUWEB

EGUWEB

【皆さまの人生に最良のファーストステップを】WEBサイトを作りたい!WEB分析を学びたいけど分からない。とりあえず色々と知りたい!皆様の悩みを解決できるように頑張ります。 [詳細]

カテゴリー