
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Gmailを開いた状態でもうひとつ...
-
Dir関数のDo Whileステートメン...
-
Dadd11というコードについて
-
【HULFT】 utllist とutladmin
-
ピアノのコードについて…
-
だいたいのスーパーでは天ぷら...
-
【マクロ】PasteSpecialメソッ...
-
マイナーの裏コードは存在する?
-
草刈の際に電源ケーブルを切断...
-
Excel VBA Tabコードの出力
-
ギターコードを教えてください。
-
ギターのTAB譜の記号 N.C....
-
ベンダーコードについて教えて...
-
VBA ダブルクリックするたびに...
-
【マクロ】functionプロシージ...
-
ベース 初心者 バンド キー
-
天国への階段
-
ギターのコードについて。
-
オーシャンゼリゼのギターコー...
-
エクセル マクロのエラーを解...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Dir関数のDo Whileステートメン...
-
Gmailを開いた状態でもうひとつ...
-
【マクロ】PasteSpecialメソッ...
-
ギターのTAB譜の記号 N.C....
-
VBA ダブルクリックするたびに...
-
外車 色コード BMW 色コード オ...
-
CODE関数から他の文字コードの...
-
だいたいのスーパーでは天ぷら...
-
草刈の際に電源ケーブルを切断...
-
【HULFT】 utllist とutladmin
-
マイナーの裏コードは存在する?
-
ドライアーのコードから煙が出...
-
Dadd11というコードについて
-
◎PPMのコードをお教えいただ...
-
この写真の状態(銅線剥き出し)...
-
流用の定義について
-
JISコードがわからない
-
キングクリムゾンの「スターレ...
-
ギターで2弦2フレットと3弦2フ...
-
ベンダーコードについて教えて...
おすすめ情報