Excel 2016 ハイパーリンク一括変更

質問

ハイパーリンクの参照先を一括で変更したいのですが、操作方法、コマンドが分かりません、ご教授下さい。

変更したいのは、参照先の外付けディスクです。
　具体的には　f:\ →　e:\ への一括変更です

宜しくお願いします。

※OKWAVEより補足：「NEC 121ware ：ソフトウェア」についての質問です

回答No.5

ware121

最初が３行、F列の場合はCells(3, 6).SelectですがCells(z, z).Selectは意味がありません。削除しても構いません。ブランクは不要です。「For Each h In ActiveSheet.Hyperlinks」をマウスでなぞり色を反転させデバック（D)　→　ブレークポイントの設定/解除(T)をすると「For Each h In ActiveSheet.Hyperlinks」は茶色になり左端に茶色の●が表示されます。実行を押すと「For Each h In ActiveSheet.Hyperlinks」で黄色」になり停止します。F８キーを押すと次の「h.Address = Replace(h.Address, "e:\", "f:\")」で停止します。その状態で「h.Address」にマウスポインタをのせると現在の「h.Address」の値が表示されます。F8押して［Nect］が黄色になった状態でh.Address」にマウスポインタをのせると変更後の値が表示されます。ブレークポイントの解除はストップ［■］を押せば黄色は消えますのでデバック（D)　→　すべてのブレークポイントの解除（C）で解除されます。何分ソースの状態なので説明が分かりにくいと思います。

回答No.4

ware121

すみません。例の「h.Address = Replace(h.Address, "f:\ ", "e:\ ")」をコピーすると、「"f:\ "」の「f:\」と「”」の間に半角の空白が入っている為上手く文字置き換えが出来ません。現在のh.Address = Replace(h.Address, "f:\ ", "e:\ ")」を削除して次をコピーして同じ場所に貼り付けするか、空白を削除して実行すれば正常に置き換わります。

h.Address = Replace(h.Address, "f:\", "e:\")

補足

たびたびすみません、やはり、うまく行きません
　質問ですが
　　＞Cells(1, 1).Selectリンクされている最初の行列（ここでは１行A列）
　ハイパーリンクの最初が３行、F列の場合はCells(3, 6).Selectの記述で宜しいですか
　（１，のうしろにブランクが必要ですか？

回答No.3

ware121

１．のコピーはオリジナルファイルを残す為で、必須ではありません。１３はPublic １行目のSub RiLink()から１行１行コンパイル＆実行するためです。１４を実行後なにもかわりません。、デスクトップ画面下のタスクバーのExcelアイコンにマウスを置くとシート画面とVisual　Basic画面が表示されますのでシート画面をクリックし、シート画面に切り換えてシート画面を前面に表示してリンクのセルを右クリック　→　ハイパーリンクの編集（H)　→　アドレス（E)が以下に変更されていることが確認できます。
1行目　f:\¥aa.pdf　　　→　e:\¥aa.pdf
2行目　f:\¥bb.pdf　→　e:\¥bb.pdf
.
.
？行目　f:\xx.pds　→　e:\¥bb.pds

実行終了したことを分かるようにするには「Next h」と「End Sub」間に次ような１行を追加すれば表示されます。Msgbox("一括変更完了")

１５でかわらないのはコピーのしかたの間違いと思います。２つのシートを並べてマクロのあるSheet1をマクロのないシートにドラッグ＆ドロップすればコピーされます。なお、マクロ付エクセルファイルを保存する場合の拡張子はXlsmです。

補足

ご丁寧にご教授有難うございます。初心者で理解が浅いので、時間をかけてチャレンジしてみます。また不明の場合は再度お問い合わせさせて頂きます。宜しくお願い致します

回答No.2

ware121

回答が的を得ていなかったらご容赦ください、
例：Sheet1のA列から絶対アドレスでリンクしてる場合
1行目　→　f:\¥aa.pdf
2行目　→　f:\¥bb.pdf
.
.
？行目　→　f:\xx.pds

１，対象のExcelファイルをコピーする。
２，コピーしたExcelファイルを開く
３、開発をクリック
４，Visual　Basic　クリック
５，挿入（I)クリック
６，標準モジュール（M)クリック
７，挿入（I)クリック
８，プロシージャ（P)クリック
９．名前に任意の文字を入力（例：RiLink)してOK
10、Public Sub RiLink()　～　空白　～　End Subが表示
１１，空白に以下をコピーして貼り付け
Dim h As Hyperlink
Sheets("Sheet1").Select
Cells(1, 1).Select
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, "f:\ ", "e:\ ")
Next h
１２，以下完成形
Public Sub RiLink()
Dim h As Hyperlink
Sheets("Sheet1").Select
Cells(1, 1).Select
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, "f:\ ", "e:\")
Next h
End Sub

１３，Public Sub RiLink()をクリックしカーソルを置く

１４，実行（▶）をクリックするかファンクションキー（F5）を押す。
＊　Sheets("Sheet1").Selectはリンクされているシート名（ここではSheet1）
　　Cells(1, 1).Selectリンクされている最初の行列（ここでは１行A列）
１５、コピー元を開き表示　→　整列　→　並べて表示でコピー元、コピーファイルを表示してコピーファイルのheet1をコピー元にコピーする

作成たコピーファイルを保存する場合は、拡張子をxlxmにして保存

補足

項番１４、１５を実行しても何も変わりません操作手順に誤りが有るのでしょうか？

１３番は単にカーソルを置いておけば宜しいのでしょうか？

１．のコピーは必然ですか？

お手数ですが宜しくお願いします

回答No.1

ware121

ハイパーリンク一括変更はVBAでしかできないようです。

https://eguweb.jp/excel/converted-link-destination-of-hyperlink-at-once

以下のようなフトもあります。
Excelで一度に複数のハイパーリンクの名前を一括変更　→　https://ja.extendoffice.com/documents/excel/5906-excel-rename-hyperlink.html

お礼

早々の回答ありがとうございます。
VBAを使用する事は承知しており、外付けHDDのリンク先アドレスを変更する具体的コマンド＆操作手順を知りたかったので質問しました