У меня есть рабочая тетрадь с 82 листами.
Мне нужно сделать Vlookup на всех листах и посчитать, когда я получу нужное значение.
Я сделал код для подсчета количества листов и начал «для» от 1 до максимального количества листов, но он не работает, когда я ссылаюсь на этот счет в Application.vlookup.
Вот мой код:
Function NUMBEROFTIMES(lookup_value)
NUMBEROFTIMES = 0
Dim WS_Count As Integer
Dim I As Integer
' Set WS_Count equal to the number of worksheets in the active
' workbook.
WS_Count = ActiveWorkbook.Worksheets.Count
' Begin the loop.
For I = 1 To WS_Count
If Application.VLookup(lookup_value, Worksheets(I).Range("A5:AB401"), 28, False) = "True" Then
NUMBEROFTIMES = NUMBEROFTIMES + 1
End If
Next I
End Function
Во всех листах мне нужно искать значение, которое я поместил в «lookup_value», а возвращаемое слово «True».
Спасибо.