![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.4ベストアンサー
- 回答日時:
すみません。
ちょっと、訂正です。コードの先頭に Option Compare Text を1行 追加しただけですが、
こちらのコードをコピーして使ってください。 大文字/小文字 識別の関係です。
> リンク先のアドレスを一括で変更できる方法・・・・・
ハイパーリンク先は、編集-->置換 では、出来ないと思います。
「一括」となるとVBAで処理することになるかと思います。
次の操作することにより、一発でブック内のハイパーリンク先が、全て置換えに
なりますので、宜しかったら、詳しく手順を書きますので、テストしてみてください。
【 操作手順 】
・ いずれかのシート名タブを右クリックして「コードの表示」を指定し、
開いたコードウィンドウに下記コードをコピーして貼り付けます。
・ コードの設定事項で「検索文字列」と「置換え文字列」を指定します。
(現在は、アドレスに含む abc の部分を xyz に置換えるという設定です。)
・ 貼り付けたコード内(1行目とか)にカーソルがある状態で、F5キーを押し実行ます。
・ これで、ハイパーリンク先が置換えになりますので、今貼り付けたコードを全て削除
してから、右上の×で閉じ、シートに戻ります。
これで完了です。 ハイパーリンク先が、変更になっているか、確認してみてください。
Option Compare Text
Sub ChgLinkAdd()
'全シート ハイパーリンク先置換え
'-------- 設定事項 --------------------
Const Old_Add_Part = "abc" ' <------ 検索文字列
Const New_Add_Part = "xyz" ' <------ 置換え文字列
'-------------------------------------
Dim Sh As Worksheet
Dim Hyp As Hyperlink
Dim Rng As Range
Dim Cnt As Long
For Each Sh In Worksheets
For Each Hyp In Sh.Hyperlinks
If InStr(Hyp.Address, Old_Add_Part) > 0 Then
Hyp.Address = Replace(Hyp.Address, _
Old_Add_Part, New_Add_Part, , , vbTextCompare)
Cnt = Cnt + 1
End If
Next Hyp
Next Sh
MsgBox "ハイパーリンク先 " & Cnt & _
" 箇所を置換えしました。", , "置換え完了"
End Sub
No.3
- 回答日時:
> リンク先のアドレスを一括で変更できる方法・・・・・
ハイパーリンク先は、編集-->置換 では、出来ないと思います。
「一括」となるとVBAで処理することになるかと思います。
次の操作することにより、一発でブック内のハイパーリンク先が、全て置換えに
なりますので、宜しかったら、詳しく手順を書きますので、テストしてみてください。
【 操作手順 】
・ いずれかのシート名タブを右クリックして「コードの表示」を指定し、
開いたコードウィンドウに下記コードをコピーして貼り付けます。
・ コードの設定事項で「検索文字列」と「置換え文字列」を指定します。
(現在は、アドレスに含む abc の部分を xyz に置換えるという設定です。)
・ 貼り付けたコード内(1行目とか)にカーソルがある状態で、F5キーを押し実行ます。
・ これで、リンク先アドレスが、全て置換えになりますので、今貼り付けたコードを
全て削除してから、右上の×で閉じ、シートに戻ります。
これで完了です。 ハイパーリンク先が、変更になっているか、確認してみてください。
Sub ChgLinkAdd()
'全シート ハイパーリンク先置換え
'-------- 設定事項 --------------------
Const Old_Add_Part = "abc" ' <------ 検索文字列
Const New_Add_Part = "xyz" ' <------ 置換え文字列
'-------------------------------------
Dim Sh As Worksheet
Dim Hyp As Hyperlink
Dim Rng As Range
Dim Cnt As Long
For Each Sh In Worksheets
For Each Hyp In Sh.Hyperlinks
If InStr(Hyp.Address, Old_Add_Part) > 0 Then
Hyp.Address = Replace(Hyp.Address, _
Old_Add_Part, New_Add_Part, , , vbTextCompare)
Cnt = Cnt + 1
End If
Next Hyp
Next Sh
MsgBox "ハイパーリンク先 " & Cnt & _
" 箇所を置換えしました。", , "置換え完了"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelの複数人での参照について 2 2022/06/01 13:38
- Excel(エクセル) Excelのマクロについて 1 2023/04/17 17:22
- Excel(エクセル) Excelから複数のWordファイルを操作する方法について教えて頂きたい。 やりたいことは、複数のW 2 2022/07/26 20:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- C言語・C++・C# C#の2つの実行ファイルとアプリアイコンの変更について 1 2023/01/07 16:57
- Wi-Fi・無線LAN 無線ルーターのIPアドレスは、iPhoneのように簡単に変更できる??? 2 2022/04/02 19:00
- Visual Basic(VBA) VBAの参照先のファイル名をセルに書いて代入したい 2 2022/04/04 13:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/10 09:06
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excelのハイパーリンクについて、名前の変更をしてしまうと
Excel(エクセル)
-
Excel(エクセル)のハイパーリンクの挿入/検索先についてご質問
Excel(エクセル)
-
エクセルでリンク貼り付けしたリンク先のシート名を可変にしたい
Excel(エクセル)
-
-
4
ハイパーリンクで前回値をひきつぐ方法
Excel(エクセル)
-
5
ハイパーリンク設定画面の「検索先」という窓の使い方
その他(Microsoft Office)
-
6
エクセルでURL挿入後、名前を変える方法を教えて!
その他(OS)
-
7
エクセルのハイパーリンクをコピーしてファイル名だけ変更したい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JANコード、ITFコードの作成
-
VBA ダブルクリックするたびに...
-
JAN コードとITFコードの違い...
-
先日、電気コードに熱いお湯か...
-
Dadd11というコードについて
-
ギター初心者です ただ君に晴れ...
-
Excel VBA Tabコードの出力
-
ピアノで押さえる場合の分数コ...
-
【EXCEL-VBA】PDFファイルを開...
-
VBAのフォーム上にTextBoxたく...
-
おしえてください!
-
[やさしさとして想い出として ...
-
Paul McCartney All Of You
-
携快電話9で付属のUSBコードが...
-
キングクリムゾンの「スターレ...
-
Excel VBAでのヘッダー設定につ...
-
Jeff Beck「Red Boots」のコー...
-
ギターのTAB譜の記号 N.C....
-
EXCELのハイパーリンク先の変更...
-
Accessに対するGrep検索
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ギターのTAB譜の記号 N.C....
-
VBA ダブルクリックするたびに...
-
マイクロソフト 一時使用コード...
-
パソコンから出てる有線コード...
-
JAN コードとITFコードの違い...
-
Gmailを開いた状態でもうひとつ...
-
片側がUSBで片側がイヤホンジャ...
-
ドライアーのコードから煙が出...
-
JANコード、ITFコードの作成
-
マイナーの裏コードは存在する?
-
◎PPMのコードをお教えいただ...
-
DLookupがうまく出来ません
-
草刈の際に電源ケーブルを切断...
-
JISコードがわからない
-
『車の中でかくれてキスをしよ...
-
コードを白く塗りたい
-
【EXCEL-VBA】PDFファイルを開...
-
【マクロ】PasteSpecialメソッ...
-
CODE関数から他の文字コードの...
-
サイトによってコード譜が違う...
おすすめ情報