Если (поисковый запрос) найден, делайте (действие). Если нет, закончите, если

Question

Если вы, ребята, можете мне помочь, это было бы здорово, потому что это действительно помогло бы мне.

Вот что я пытаюсь сделать:

1. Поиск ячейки с определенным сроком
2. Если найдено, скопировать всю строку, что клетка находится в и вставить его в ряд над ним ,
3. Если не нашли, ничего не делать и продолжать с кодом

Вот мой код:

Sub Test() 
' 
' Test Macro 
' 
' Keyboard Shortcut: Ctrl+b 
' 

    Range("A5").Select 
    Cells.Find(What:="PL 1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False).Activate 
    If Not IsEmpty(ActiveCell.Value) Then 
     ActiveCell.Rows("1:1").EntireRow.Select 
     Selection.Copy 
     Range("A5").Select 
     ActiveSheet.Paste 
    End If 
    Range("A5").Select 
    Cells.Find(What:="PL 2", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False).Activate 
    If Not IsEmpty(ActiveCell.Value) Then 
     ActiveCell.Rows("1:1").EntireRow.Select 
     Selection.Copy 
     Range("A6").Select 
     ActiveSheet.Paste 
    End If 
    Range("A5").Select 
    Cells.Find(What:="PL 3", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False).Activate 
    If Not IsEmpty(ActiveCell.Value) Then 
     ActiveCell.Rows("1:1").EntireRow.Select 
     Selection.Copy 
     Range("A7").Select 
     ActiveSheet.Paste 
    End If 
End Sub 

Мой код работает только тогда, когда обнаруживается значение. Если он не нашел, что это работает в ошибку ниже:

Answer 1

Cells.Find является функцией который возвращает ссылку на объект Range; когда он ничего не найдет, ссылка будет Nothing. И вы не можете назвать .Activate на Nothing:

Этот метод не возвращает ничего, если совпадение не найдено. Метод Find не влияет на выбор или активную ячейку. (MSDN)

Cells.Find(What:="PL 2", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
    False, SearchFormat:=False).Activate 

Вы должны переписать код и избежать .select и .Activate и избегать работы с ActiveCell и неявно с ActiveSheet (что вы делаете, не квалифицируя Cells вызов правильная справочная таблица).

Ваше форматирование делает его трудно читать код, по нескольким причинам:

• Аргументы уточняются на разных линиях
• продолжений линии в настоящее время palced в произвольных местах
• Вложенные вызовы членов Арен» т выстроились

Сравните:

Cells.Find(What:="PL 2", After:=ActiveCell, LookIn:=xlFormulas, _ 
      LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
      MatchCase:=False, SearchFormat:=False) _ 
    .Activate 

Это просто читаемость.Проблема в том, что вы в основном предположите, что .Find возвращает действительную ссылку на объект. Не думайте, явно проверить:

Set result = Cells.Find(...) 
If Not result Is Nothing Then result.Activate 

Но на самом деле, вы должны выяснить способ избежать .select и .Activate.

Answer 2

Вы можете попробовать что-то вроде этого вместо (непроверенные):

Sub HideAndSeek() 

    Dim foundCell As Range 

    For i = 1 To 3 
     Set foundCell = Cells.Find(What:="PL " & i, LookIn:=xlFormulas, LookAt:=xlPart) 
     If Not foundCell Is Nothing Then 
      Intersect(foundCell.EntireRow, ActiveSheet.UsedRange).Offset(-1, 0).Value = _ 
       Intersect(foundCell.EntireRow, ActiveSheet.UsedRange).Value 
     End If 
     Set foundCell = Nothing 
    Next 

End Sub 

Принцип существо, что вы пишете код вам нужно раз, а затем создать цикл для повторения кода для вас.

Другая часть этого ответа проверяет, что ячейка была найдена - для этого мы проверяем, что диапазон был фактически установлен (что означает, что он не Nothing) с использованием

If Not foundRange Is Nothing