Каковы другие возможности, которые мы можем получить из результата range.find?

Question

В Excel VBA, когда вы делаете range.find, вы можете получить result.address. Есть ли другие варианты, чем .address, которые мы можем получить из результата? Я не могу найти слово для поиска в Google. Было бы неплохо, если бы мы могли получить другую информацию, такую ​​как result.col или что-то в этом роде. Дополнительные параметры не отображаются в окне кода для результата.

Answer 1

Вы можете использовать полученный результат, чтобы получить остальное. Например, если вы используете код ниже, и если вы найдете совпадение, вы можете получить остальную информацию. См. Снимок экрана.

Код

Sub Sample() 
    Dim oSht As Worksheet 
    Dim strSearch As String 
    Dim aCell As Range 

    On Error GoTo Err 

    '~~> Set this to the relevant sheet 
    Set oSht = Sheets("Sheet1") 

    '~~> Search String 
    strSearch = "Sid" 

    '~~> Do the Find 
    Set aCell = oSht.Cells.Find(What:=strSearch, LookIn:=xlFormulas, _ 
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False) 

    '~~> If Found 
    If Not aCell Is Nothing Then 
     Debug.Print aCell.Row  '<~~ Give the Row 
     Debug.Print aCell.Column '<~~ Gives the Column 
     '~~> AND SO ON 
    End If 
    Exit Sub 
Err: 
    MsgBox Err.Description 
End Sub 

Скриншот

Совет

Вы можете найти THIS interestin g читать.