1. ホーム
  2. vba

[解決済み] エクセルVBAの検索文字列 : エラー2015

2022-02-27 07:56:25

質問

私は次のコードスニペットを持っている...

  Public Sub FindText(path As String, file As String)
    Dim Found As Range

    myText = "test("

    MacroBook = ActiveWorkbook.Name

    ' Open the File
    Workbooks.Open path & file, ReadOnly:=True, UpdateLinks:=False
    For Each ws In Workbooks(file).Worksheets
     With ws

       Set Found = .UsedRange.Find(What:=myText, LookIn:=xlFormulas, _
                      LookAt:=xlPart, MatchCase:=False)

       If Not Found Is Nothing Then
        ' do stuff
        ' ...

デバッガで見ると、Found contains Error 2015! このシートには、数式に必要なテキストが含まれています。

なぜこのようなエラーが発生するのか、何か心当たりはありますか?

ありがとうございます

解決方法は?

Qへのコメントからのフォローとして。 Error 2015 が発生するのは、シート内の数式が #VALUE! というエラーが発生します。を使用して処理することができます。 IsError :

If Not Found Is Nothing Then
    If Not IsError(Found) Then
       ' do sth
    End If
End If