Блог

У меня есть VB-скрипт со строкой, которая выглядит следующим образом:

 Set startCell = referenceCell.EntireColumn.Find(tmp).offset(0,columnOffset)
 

Но я хочу указать find (для точного поиска данного слова в каждом столбце) что-то вроде:

 Set startCell = referenceCell.EntireColumn.Find(tmp, lookat:=xlWhole).offset(0,columnOffset)
 

все в соответствии с
http://msdn.microsoft.com/en-us/library/office/ff839746 (v=office.15).aspx

Но это дает мне синтаксическую ошибку. (Я ненавижу VB)

Я тоже пробовал

 Set tmp = "Precondition" amp; preconditionNumber
Set startCell = ReferenceCell.EntireColumn.Find(what:=tmp,lookat:=xlWhole).offset(0,columnOffset)
 

и даже

 Set startCell = ReferenceCell.EntireColumn.Find(what:=tmp).offset(0,columnOffset)
 

ни один из них не работает.
Как я должен вызвать Find функцию, чтобы получить a Whole Word -Search?
Объявление переменной выглядит следующим образом:

 Dim startCell

for preconditionNumber = 0 to 15 
      Set startCell = Nothing 
      tmp = "Precondition" amp; preconditionNumber 
      Set startCell = referenceCell.EntireColumn.Find(tmp).offset(0,columnOffset)
      ...
 

Вот точное сообщение о синтаксической ошибке.

Используйте что-то вроде:

 Sub luxation()
    Dim ReferenceCell As Range, rCol As Range, tmp As String
    Dim GotIt As Range, MoveOver As Range, columnOffset As Long

    Set ReferenceCell = Range("B9")
    Set rCol = ReferenceCell.EntireColumn.Cells
    tmp = "happiness"
    columnOffset = 2

    Set GotIt = rCol.Find(what:=tmp, after:=rCol(1), lookat:=xlWhole)
    Set MoveOver = GotIt.Offset(0, columnOffset)
    MoveOver.Select
End Sub
 

Исправить ненависть к VBA еще проще, просто повторите:

VBA — мой друг.

30 раз каждое утро