[[20230526133006]]　『リンク』（初心者）　ページの最後に飛ぶ

『リンク』（初心者）

ハイパーリンクの場所が変更になり1000以上あります。

表示文字列(T)は ▼ で
アドレス(E)
C:\Users\さくら
を検索して
D:\AAAA\さくら
置換したいのです。

検索と置換を使ってもうまくいきません。
宜しくお願いいたします。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 >検索と置換を使ってもうまくいきません。

これだと、F2押してEnterキーを押す必要があると思います。
検索と置換だと、ハイパーリンク編集の表示文字だけだと思います。
1個1個、ハイパーリンク編集で、アドレスを変えるのが賢明かと。

（大事） 2023/05/26(金) 13:49:57

 変更したいセルを選んだ状態で下記実行でどうでしょうか。
 アンドゥはできないので、ファイルをバックアップしてから実行してください。

 Sub ReplaceLinkAddress()
    Dim r As Range
    For Each r In Selection
        If r.Hyperlinks.Count > 0 Then
            r.Hyperlinks(1).Address = Replace(r.Hyperlinks(1).Address, "C:\Users\さくら", "D:\AAAA\さくら")
        End If
    Next
 End Sub
（QS） 2023/05/26(金) 13:57:02

 >これだと、F2押してEnterキーを押す必要があると思います。

 やっぱりダメでした。
 結局、ハイパーリンク編集で、アドレスを変えるのが賢明かと。
（大事） 2023/05/26(金) 13:58:32

大事様
QS様

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

QS様
一括でアドレスを変えることができました。

仕事がはかどります。

感謝＆ありがとうございました。
（初心者） 2023/05/26(金) 14:07:15

コメント返信：

[ 一覧(最新更新順) ]

[[20230526133006]] 『リンク』（初心者） ページの最後に飛ぶ

[[20230526133006]]　『リンク』（初心者）　ページの最後に飛ぶ