Как выйти из цикла - VBA

Формулировка задачи:

Помогите пож дописать макрос! Нужно найти номер позиции первой буквы кириллицы в строке как например mom мама

Sub Find_Pos()
 
    For n = 1 To Len(ActiveCell)
    
        lett = Mid(ActiveCell, n, 1) 'MsgBox Mid(ActiveCell, N, 1)
        
        If lett Like "[а-я]" Then Exit For
        
        pos = InStr(st, ActiveCell, lett)
        
        MsgBox "Letter is " & lett & "  Posision = " & pos
        
        'End If
         
   Next n
 
End Sub

Решение задачи: «Как выйти из цикла»

textual
                            Листинг программы 
                        
                            If lett Like "[А-Яа-яЁё]" Then MsgBox "Letter is " & lett & "  Posision = " & n: Exit For

Оцени полезность:

8 голосов , оценка 4.25 из 5

Похожие ответы