Public Function AFindStr(SearchString As String, WS As Worksheet, CurCell As Range) As Range
 
  Set AFindStr = WS.Cells.Find(What:=SearchString, After:=CurCell, LookIn:=xlValues, LookAt _
               :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
               False)
If IsEmpty(AFindStr) Or AFindStr Is Nothing Then
   MsgBox ("Program cannot find the string <" & SearchString & ">.")
End If

If IsEmpty(AFindStr) Or AFindStr Is Nothing Then

If AFindStr Is Nothing Then

Public Function AFindStr(SearchString As String, WS As Worksheet, CurCell As Range) As Range
 
    Set AFindStr = WS.Cells.Find(What:=SearchString, After:=CurCell, LookIn:=xlValues, LookAt _
               :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
               False)
    If AFindStr Is Nothing Then
       MsgBox ("Program cannot find the string <" & SearchString & ">.")
    End If
End Function

Sub test()
    MsgBox AFindStr("", ActiveSheet, ActiveCell).Address
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

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

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы