教えて!gooグレードポイントがdポイントに!

.
 あるexcelファイルを開くと、開く前に添付写真の様なメッセージが出ます。
 問題のシートがどれなのかわかる方法をご教示願います。

 宜しくお願い致します。

 以上

「問題のシートはどれ?」の質問画像
教えて!goo グレード

A 回答 (3件)

Sub findLinkedCell()


Dim C As Object
alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
ActiveWorkbook.LinkInfo Name = alinks(1), LinkInfo = xlUpdateState
For i = 1 To Worksheets.Count
Set C = Worksheets(i).Cells.Find(Left(alinks(1), 8), , xlFormulas, xlPart, xlByRows, xlNext, False, True)
If Not (C Is Nothing) Then
Worksheets(i).Activate
C.Select
Exit Sub
End If
Next i
End If
End Sub
を実行してみる。
    • good
    • 1
この回答へのお礼

stomachman さん、ありがとうございました。

 実行してみたら、外部ソースのリンクに行き当たりました。
 それを削除したら、問題のメッセージは出なくなり、質問した問題は解決しました。

 然しその後は「循環参照があるぞ」とのメッセージが出るようになってしまいました。

 ありがとうございました。

 以上

お礼日時:2022/04/21 10:01

「データ」タブを選択して、「リンクの編集」をクリック


リンクの有る場所など表示されます
リンク元 不明とあればそれが原因です
    • good
    • 1
この回答へのお礼

内蔵助さん、ありがとうございます。

 その通りやってみましたが、「リンク元」にファイル名が1つあり、それはまともなファイルでした。
 私が知りたいのは、一つのexcelファイルに複数のシーとがある場合に、問題のリンクのあるシートがどれなのかを知る方法なんですが、何とかなりませんか?

 ありがとうございました。

 以上

お礼日時:2022/04/16 00:23

Ctrl+Fで検索画面を出し検索する文字列に「[」(大カッコ)を入れ、検索場所をブックに変えて「次を検索」を押す

    • good
    • 1
この回答へのお礼

chonamiさん、ありがとうございます。

 やってみたところ、ダイアログボックスが出て、「検索対象が見つかりません。[オプション]をクリックして、検索方法を変えてみてください。」と出ます。[OK]ボタンがあるのでそれを押すと、又違う検索窓が出ます。

 ありがとうございました。

 以上

お礼日時:2022/04/15 21:37

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング