Access VBA를 사용하여 Excel 행에서 지정된 데이터를 어떻게 찾을 수 있습니까?

Question

Excel 행에서 지정된 데이터를 찾으려고합니다.행 범위에서 A1 : A1J, 하나의 셀만 데이터 "프로세스"가있는 것입니다.주어진 범위의 데이터를 발견하면 "발견 된"메시지를 팝업해야합니다. 여기서는 코드

입니다.

         Dim ExcelApp As New Excel.Application
         Dim ExcelBook As New Excel.Workbook
         Dim rng As Excel.Range
         Dim rngDefine As Excel.Range

         Set ExcelBook = ExcelApp.Workbooks.Open("C\temp\find.xlsm")
         ExcelApp.Visible = False       
        'Define your own Range
         Set rngDefine = ExcelBook.Worksheets("Datatab").Range("A1:AJ1")

         'ExcelBook.Worksheets("Datatab").Range ("A1:AJ1")

         Set c = .Find("Process", LookIn:=xlValues)
         For Each rng In rngDefine
         If c = "Process" Then
         MsgBox "Found"
         End If
           Next

         ExcelApp.Quit
         Set ExcelApp = Nothing

.

작동하지 않습니다.내가 추가 해야하는 푸르 르 코드?

Answer 1

첫 번째 접근법 (slighlty faster) :

Set rngDefine = ExcelBook.Worksheets("Datatab").Range("A1:AJ1")

If IsError(ExcelApp.Match("Process", rngDefine, 0)) Then
    MsgBox "Not found"
Else
    MsgBox "Found"
End If

.

두 번째 접근법 :

Dim c As Excel.Range

Set rngDefine = ExcelBook.Worksheets("Datatab").Range("A1:AJ1")

Set c = rngDefine.Find(What:="Process", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)

If c Is Nothing Then
    MsgBox "Not found"
Else
    MsgBox "Found"
End If

.