Excel：壊れたリンクを修正する方法

ワークブックでは、関連情報を参照するために他のワークブックへのリンクを作成する場合があります。ただし、ソースブックの名前が変更されたり、別の場所に移動されたりすると、これらの余分なリンクは壊れます。ここで、このチュートリアルでは、Excelで壊れたリンクを修正するためのXNUMXつの異なる方法を紹介します。

リンクの編集を適用して壊れたリンクを修正する

VBAコードを使用して壊れたリンクを修正する

リンクの編集を適用して壊れたリンクを修正する

Excelでは、[リンクの編集]ダイアログに移動して、リンクをXNUMXつずつ修正できます。

1.壊れたリンクを含むブックを有効にして、をクリックします且つ > リンクの編集 （中 クエリと接続 グループ）。
色1に基づいてテキストを塗りつぶすドキュメント

2。の中に リンクの編集 ダイアログ、クリック ステータスを確認する どのリンクが壊れているかを見つけるために。
色1に基づいてテキストを塗りつぶすドキュメント

3.次に、壊れたリンクをクリックしてから、 ソースの変更 ボタン、で ソースの変更 ウィンドウで、正しいソースワークブックを選択し、をクリックします OK.
色1に基づいてテキストを塗りつぶすドキュメント

これで、ステータスがから変更されたことがわかります エラー 〜へ OK、次に手順3を繰り返して、他の壊れたリンクを修正します。
色1に基づいてテキストを塗りつぶすドキュメント

VBAコードを使用して壊れたリンクを修正する

ここでは、役立つVBAコードを紹介します。

1.壊れたリンクを修正するワークブックを有効にして、を押します他の + F11 キー。

2.次にポップで アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール 新しい空のモジュールを作成します。
色1に基づいてテキストを塗りつぶすドキュメント

3.以下のコードをコピーして新しいモジュールに貼り付けます。

VBA：壊れたリンクを修正

Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
    MsgBox "Select updated source"
    Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
    xStrLk = xLks(xFNum)
    xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
    xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
    If xStatus <> 0 And xStatus <> 3 Then
        MsgBox xStrLk & " the link is broken, please select new source"
        xF = Application.GetOpenFilename()
        If xF <> "" Then
            For Each xLk In ActiveSheet.UsedRange.Hyperlinks
                xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
                    If InStr(xStrLk, GetAddress) <> 0 Then
                        ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
                    End If
            Next
            ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
        End If
        End If
    Next
End Sub

4。押す F5 キーまたはラン (Comma Separated Values) ボタンをクリックして、各々のジョブ実行の詳細（開始/停止時間、変数値など）のCSVファイルをダウンロードします。ドキュメントの実行コードをアクティブ化します。これで、壊れたリンクがあるかどうかを検索します。その場合は、どのリンクが壊れているかを示すダイアログが表示されます。新しいソースを選択してください。クリック OK 続行します。
色1に基づいてテキストを塗りつぶすドキュメント

5。の中に Open ウィンドウで、更新されたソースを選択し、クリックします OK.
色1に基づいてテキストを塗りつぶすドキュメント

ブックにまだ壊れたリンクがある場合は、すべての壊れたリンクが修正されるまで、上記のダイアログが再び表示されます。

注：ブックに壊れたリンクがない場合、VBAは実行後に停止します。

先端：すべての余分なリンクを表示し、壊れたリンクを壊したい場合は、 Kutools for Excelさん 壊れたリンクを見つけて壊す 機能は良いヘルパーになります。
色1に基づいてテキストを塗りつぶすドキュメント

この機能の詳細については、をクリックしてくださいこちら.

30 日間の無料トライアルをご希望の場合は、以下からダウンロードしてください。こちら.

その他の業務（記事）

シートの背景色を修正/ロックする方法
シートを他の人と共有して編集する場合、ある範囲のセルの背景色をロックして、それらが変更されないようにしたい場合があります。

Excelのファイルサイズを減らす方法は？
Excelファイルが大きすぎると、開いたり保存したりするのに数分かかる場合があります。この問題を解決するために、このチュートリアルでは、不要または使用されていないコンテンツまたは形式を削除して、Excelファイルのサイズを縮小する方法を説明します。

Excel：ブックマークを作成または挿入する方法
ワークシートやワークブックに大量のデータがあるときに、特定のデータ範囲にすばやくジャンプするためのブックマークを作成または挿入することを想像したことがありますか？

Excelで奇数または偶数（代替）の行/列にシェーディングを適用するにはどうすればよいですか？
ワークシートを設計する際、多くの人は、ワークシートをより視覚的にするために、奇数または偶数（代替）の行または列に陰影を付ける傾向があります。この記事では、Excelで奇数または偶数の行/列に陰影を付けるXNUMXつの方法を紹介します。

より多くの記事

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

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

スーパーフォーミュラバー（複数行のテキストと数式を簡単に編集できます）; 読書レイアウト（多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
セル/行/列をマージするおよびデータの保持。分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。範囲を比較する...
[複製]または[一意]を選択します行; 空白行を選択（すべてのセルは空です）; スーパーファインドとファジーファインド多くのワークブックで; ランダム選択...
正確なコピー数式参照を変更せずに複数のセル。参照の自動作成複数のシートに; 箇条書きを挿入、チェックボックスなど...
お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化するパスワード付き。メーリングリストを作成するそしてメールを送る...
テキストを抽出、テキストの追加、位置による削除、スペースを削除する; ページング小計の作成と印刷。セルの内容とコメントを変換する...
スーパーフィルター（フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え月/週/日、頻度など。特殊フィルター太字、斜体...
ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
ピボットテーブルのグループ化週番号、曜日など... ロック解除された、ロックされたセルを表示するさまざまな色で; 式/名前を持つセルを強調表示する...