0

検索機能に問題があります。

関係するシートは 2 枚です。基本的に、2011 年 1 月から 2012 年 12 月までの日付をメイン シートに入力したいと考えています。これらの日付の次の値を取得できるように、export という名前の生データ シートでこれらの日付を一致させようとしました。

ただし、 の値cellFoundが見つからないようです。アプリケーション定義またはオブジェクト定義のエラーが発生し続けます。これで私を助けてもらえますか？

私のコード:

Sub Rectangle2_Click()

Dim searchDate As Long, cellFound As Range, searchRange As Range
Dim i As Integer

Set searchRange = Worksheets("Export").Range("G77:G91")

For i = 2 To 25

searchDate = Worksheets("Main").Cells(2, i)

Set cellFound = searchRange.Find(What:=searchDate, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

Worksheets("Main").Cells(4, i) = cellFound

Next i

End Sub
4

1 に答える 1

0

結果が返されない可能性を処理する必要があります。

If cellFound Is Nothing Then
'handle error
    Debug.Print ("error")
Else
    Worksheets(2).Cells(4, i) = cellFound
End If

正確になぜ私が推測できない結果がないのか-いくつかのサンプルデータを教えてください。

于 2013-03-11T09:33:54.667 に答える