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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelのハイパーリンクについて、名前の変更をしてしまうと
Excel(エクセル)
-
Excel(エクセル)のハイパーリンクの挿入/検索先についてご質問
Excel(エクセル)
-
エクセルでリンク貼り付けしたリンク先のシート名を可変にしたい
Excel(エクセル)
-
-
4
エクセルでURL挿入後、名前を変える方法を教えて!
その他(OS)
-
5
ハイパーリンクで前回値をひきつぐ方法
Excel(エクセル)
-
6
ハイパーリンク設定画面の「検索先」という窓の使い方
その他(Microsoft Office)
-
7
エクセルのハイパーリンクをコピーしてファイル名だけ変更したい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ギターのTAB譜の記号 N.C....
-
ドライヤーとかのコードは巻き...
-
onって何ですか?
-
電気製品のコードが溶けました
-
dim7コードはシックスなのにな...
-
サイトによってコード譜が違う...
-
マイナーの裏コードは存在する?
-
電気コードを束ねて使用
-
マイクロソフト 一時使用コード...
-
ギターのコートチェンジ
-
オーシャンゼリゼのギターコー...
-
最終鬼畜一部声、もしくは最終...
-
ジョギング時のイヤホン
-
VBA ダブルクリックするたびに...
-
情熱をなくさないで ギターコード
-
Paul McCartney All Of You
-
ピアノのコードについて…
-
ノートンインターネットセキュ...
-
映画ナショナル・トレジャーの...
-
実行時エラー3251対応処理方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
V7/Iというコードはありますか...
-
ギターのTAB譜の記号 N.C....
-
VBA ダブルクリックするたびに...
-
JANコード、ITFコードの作成
-
JAN コードとITFコードの違い...
-
マイナーの裏コードは存在する?
-
【EXCEL-VBA】PDFファイルを開...
-
◎PPMのコードをお教えいただ...
-
ドライアーのコードから煙が出...
-
マイクロソフト 一時使用コード...
-
Dadd11というコードについて
-
onって何ですか?
-
実行時エラー3251対応処理方法
-
ギターで2弦2フレットと3弦2フ...
-
電気製品のコードが溶けました
-
【マクロ】PasteSpecialメソッ...
-
【HULFT】 utllist とutladmin
-
Excel VBA Tabコードの出力
-
『車の中でかくれてキスをしよ...
-
D7alt
おすすめ情報