Note: The other languages of the website are Google-translated. Back to English

Excelで一度に複数のハイパーリンクパスを変更するにはどうすればよいですか?

目的によっては、ワークシート内のデータに複数のハイパーリンクを作成し、すべてのハイパーリンクを同じファイルパスまたはアドレスにリンクすることができますが、このハイパーリンクパスを一度に別のアドレスに置き換える必要があります。 ハイパーリンクのパスを個別に変更すると、多くの時間が無駄になる可能性がありますが、この問題を解決する簡単な方法はありますか?

VBAコードを使用してワークシートで複数のハイパーリンクパスを一度に変更する

ワークシート/ワークブック/複数のシート/選択で複数のハイパーリンクパスを一度に変更する驚くべき機能


VBAコードを使用してワークシートで複数のハイパーリンクパスを一度に変更する

次のスクリーンショットと同じハイパーリンクを持つデータのリストがあり、VBAコードを使用すると、ワークシート内の古いファイルパスまたはアドレスを新しいものにすばやく置き換えることができます。

1. 押したまま Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

2. 【送信】ボタンをクリックします。販売者は原則としてXNUMX日以内に回答を返信します。XNUMX日を過ぎても回答がない場合は、Artisanaryまでお問い合わせください。 インセット > モジュール、次のマクロをに貼り付けます モジュールウィンドウ.

VBAコード:一度に複数のハイパーリンクパスを変更する

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3。 次に、 F5 このコードを実行するためのキーと、古いハイパーリンクアドレスをに入力するためのプロンプトボックス 古いテキスト ボックス。 スクリーンショットを参照してください:

4に設定します。 OK をクリックします。 OK、および別のプロンプトボックスが表示され、使用する新しいハイパーリンクアドレスを入力するように通知されます。

5。 そして、 OK、すべて同じ古いハイパーリンクアドレスが一度に新しいアドレスに置き換えられました。 スクリーンショットを参照してください:


ワークシート/ワークブック/複数のシート/選択で複数のハイパーリンクパスを一度に変更する驚くべき機能

選択範囲、複数のシート、現在のワーククック、または複数のワークブックからのハイパーリンクパスを置き換える場合は、どうすればよいですか? と 検索および置換 の特徴 Kutools for Excel、このタスクにすばやく対処できます。

注意:これを適用する 検索および置換 ユーティリティ、まず、ダウンロードする必要があります Kutools for Excel、次に機能をすばやく簡単に適用します。

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツール > ナビゲーション、スクリーンショットを参照してください:

2。 オープンで ナビゲーション ペインをクリック 検索と置換 タブの 検索および置換 ペインをクリック 交換します タブをクリックし、次の操作を実行します。

  • 検索する古いハイパーリンクテキストをに入力します 見つける テキストボックスに移動し、置換する新しいハイパーリンクテキストを と交換 テキストボックス;
  • ハイパーリンクパスを検索して置き換えるスコープを指定し、 中で ドロップダウンリスト;
  • 次に、[探す場所]ドロップダウンから[ハイパーリンク]を選択します。
  • 最後に、 すべて検索 ボタンをクリックすると、特定のハイパーリンクテキストを含むすべての対応するセルが下部のリストボックスに一覧表示されます。

3。 次に、をクリックします。 すべて置換 ボタンをクリックすると、古いハイパーリンクパスが一度に新しいパスに変更されます。スクリーンショットを参照してください。

クリックしてExcel用のKutoolsを無料トライアルでダウンロードしてください!


より相対的な記事:

  • ハイパーリンクから実際のアドレスを抽出する
  • ハイパーリンクを含むセルの範囲があり、次に示すスクリーンショットのように、ハイパーリンクの実際の宛先を確認し、ハイパーリンクからそれらを抽出する必要があるとします。 この問題をすばやく解決する簡単な方法はありますか?
  • Excelで画像のURLを実際の画像に変換する
  • 列Aに画像のURLアドレスのリストがあり、ここで、対応する画像をURLからダウンロードして、左のスクリーンショットに示すように隣接する列Bに表示します。 Excelで、画像のURLから実際の画像をすばやく簡単に抽出するにはどうすればよいでしょうか。
  • ExcelでURLテキストをクリック可能なハイパーリンクに変換する
  • ワークシートに複数のURLがあり、それらがリンクされていない場合、次のスクリーンショットに示すように、リンクされていないすべてのURLをクリック可能なハイパーリンクに変換する必要があります。 もちろん、XNUMXつずつダブルクリックしてクリック可能にすることもできますが、URLが多い場合は時間がかかります。 リンクされていない複数のURLをExcelで自動的にクリック可能なハイパーリンクに変換するにはどうすればよいですか?
  • ExcelハイパーリンクからPDFドキュメントの特定のページを開く
  • セルをPDFファイルにリンクすると、通常、クリックしてハイパーリンクを開くと、PDFファイルの最初のページに移動します。 ハイパーリンクをクリックしてPDFファイルの特定のページに直接ジャンプする必要がある場合は、この記事を参考にしてください。

最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (45)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
それを驚かせることは私の多くの努力を節約しました。
このコメントは、サイトのモデレーターによって最小化されました
それが大好きです、あなたは私にたくさんの仕事を節約します。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ExcelではなくPowerpointでリンクを変更する必要がある場合は、VBコードを教えていただけますか? ありがとう
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、これはうまく機能しているようですが、一部の文字(たとえば、「\」や「%」)。 私の場合、[../../../../../../ Application%20Data / Microsoft / 2012 / Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls]のようなハイパーリンクアドレスがあります。何百ものリンクからアドレスから[../../../../../../Application%20Data/Microsoft/]を開始する必要があります。 リンクの始まりは同じですが、終わりは異なります。 何か良いアドバイスはありますか?
このコメントは、サイトのモデレーターによって最小化されました
ありがとう!!!! :lol:それは大いに役立ちました。
このコメントは、サイトのモデレーターによって最小化されました
外部のWebアドレスではなく、ブック内の参照にリンクするハイパーリンクを更新するには、これをどのように変更しますか?
このコメントは、サイトのモデレーターによって最小化されました
同じことが必要な場合は、次の変更を試してください。Sub ReplaceHyperlinks()'Updateby20140220 Dim Wb As Workbook Dim Ws As Worksheet Dim xHyperlink As Hyperlink Dim xOld As String、xNew As String xTitleId = "CambiaLink"' Set Ws = Application.ActiveSheet Set Wb = Application.ActiveWorkbook xOld = Application.InputBox( "Old text:"、xTitleId、 ""、Type:= 2)xNew = Application.InputBox( "New text:"、xTitleId、 ""、Type:= 2)For Each Ws In Wb.Worksheets'Application.ScreenUpdating = False For Each xHyperlink In Ws.Hyperlinks Debug.Print( "voy"&xHyperlink.SubAddress)xHyperlink.SubAddress = Replace(xHyperlink.SubAddress、xOld、xNew)Next Next Application.ScreenUpdating = True終了サブ
このコメントは、サイトのモデレーターによって最小化されました
mauricio-あなたは素晴らしいです! ありがとう! また、別のレポートでは、指定したタブのリンクのみを更新する必要がありますが、それは可能ですか?
このコメントは、サイトのモデレーターによって最小化されました
ありがとうありがとう!!!!!!! あなたはここで2日間の仕事のために私を救った
このコメントは、サイトのモデレーターによって最小化されました
複数のハイパーリンク「表示するテキスト」を同時に変更する方法はありますか?
このコメントは、サイトのモデレーターによって最小化されました
素晴らしいプログラムをありがとう。 チャームのように動作します...「WLC」
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい! どうもありがとう!!!!
このコメントは、サイトのモデレーターによって最小化されました
やあみんな私が欠けているもの、私はExcel2013のXTitleIdに対して「コンパイルエラー-変数が定義されていません」を取得します:cry:
このコメントは、サイトのモデレーターによって最小化されました
気にせず、文字列に設定しました
このコメントは、サイトのモデレーターによって最小化されました
大変助かりましたありがとうございました
このコメントは、サイトのモデレーターによって最小化されました
これは私が今まで出会った中で最も役立つExcelの記事です。 ファイル内のハイパーリンクが破損したり、一部のハイパーリンクファイルの場所を移動したりするという多くの問題があり、更新は常に大きな問題でした。 私のExcelプログラマーには簡単な修正はありませんでした。 これは問題なく機能します。 とても感謝しています-ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
わお! これは私にSO.MUCH.TIMEを節約しました。 あなたは素晴らしいです。 共有してくれてありがとう!
このコメントは、サイトのモデレーターによって最小化されました
これは素晴らしいです。 あなたは私をとても救ってくれました。 今日。 共有してくれてありがとう!
このコメントは、サイトのモデレーターによって最小化されました
これを開発してくれてありがとう! 複数のタブ(少なくとも数百)に多数のハイパーリンクを作成したユーザーがいて、どういうわけか、ネットワークフォルダーではなくcドライブのAppData\Roamingフォルダーへのファイルパスがありました。 VBAスクリプトを使用してリンクコードのその部分を削除することができましたが、すべて機能します。 おそらく2週間分の更新を節約でき、実装にXNUMX分もかかりませんでした。
このコメントは、サイトのモデレーターによって最小化されました
すばらしい。 この問題で見た同様の修正とは異なり、Excel 2013では魅力のように機能し、微調整は必要ありません。 どうもありがとうございました。 大きな頭痛と時間を節約しました。
このコメントは、サイトのモデレーターによって最小化されました
他のフォルダ参照を含むハイパーリンクで実行しようとしましたが、機能しませんでした。 外部Webアドレスではなく、ハードドライブ内のフォルダーにリンクするハイパーリンクを更新するには、これをどのように変更しますか?
ここにはまだコメントが投稿されていません
もっと読む
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護