VBA查找功能不起作用

Question

I am trying to use vba code to search for a value in another sheet and return the row number so the adjacent cell can be filled in with a string. The problem is that the "findrow" is returning blank. The ".find(findrng) shows as 14/01/17 when I try to Run and hover over that part.

If I change the Findrng to a word such as "Home" and enter this on the file the code returns the correct row number so the problem must be with the date. Can anyone help with using .Find for dates?

Private Sub Enter_Click()
Dim FindWor As Range
Dim Findrng As String
Dim FindRowNumber As Long

Findrng = Me.Date1
With Worksheets("Data").Range("$A:$A")
Set FindWor = .Find(what:=Findrng)
FindRowNumber = FindWor.Row

.Cells(FindRowNumber, 2).Value = Me.Event1
End With

 End Sub

Thanks

Steven

Answer 1

The Find method has a number of optional arguments, that don't have predefined defaults, but rather, they default to the values that were last used, either through code, or through the Excel user interface. You should explicitly state all of the arguments in order to get consistent and expected behavior .

The Range.Find method is defined as:

Function Find(What, Optional After, Optional LookIn, Optional LookAt, Optional SearchOrder, Optional SearchDirection As XlSearchDirection = xlNext, Optional MatchCase, Optional MatchByte, Optional SearchFormat) As Range

You need to provide values for all of those arguments, even though they're marked as Optional

The Find method can also return a Nothing reference if a match cannot be found, so you need to test for Nothing before inspecting the Row property. For example:

Set FindRow = .Find(Find)
If Not FindRow Is Nothing Then
    FindRowNumber = FindRow.Row
End If

Answer 2

你必须Dim FindRowNumber如龙

Answer 3

This :

Set FindWor = .Find(what:=Findrng)

Findrng is a string ,and the data there is date , so it will definitely return nothing.

If you are not sure what will your code search weather string or date , first find the value as string , if not found convert it to date and do a search again

    Set FindWor = .Find(what:=Findrng)

    if  FindWor  is nothing  then
           Set FindWor = .Find(what:=cdate(Findrng))
    end if

Answer 4

我有 2 张工作表，它们都带有用于查找值的连接字符串，并且 .Find 仅在我指定 LookIn:=xlValues 选项后才对这些工作表起作用。