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

@Оксана33 · Регистрация: 03.12.2014

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

Visual Basic

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

SoftIce · 26.10.2016, 19:26

Visual Basic

  If lett Like "[а-я]" Then
             pos = InStr(1, ActiveCell, lett)
             MsgBox "Letter is " & lett & "  Posision = " & pos
             Exit For
        End If

~~Shersh~~ · 26.10.2016, 19:28

Visual Basic

1	If lett Like "[А-Яа-яЁё]" Then MsgBox "Letter is " & lett & " Posision = " & n: Exit For

@Оксана33 · 26.10.2016, 20:11 **[ТС]**

большое спасибочки)

Добавлено через 1 минуту

Сообщение от Shersh

"[А-Яа-яЁё]"

а что это дает? нельзя ли [А-я]

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

Решение

Решение

@Оксана33 1 / 1 / 0 Регистрация: 03.12.2014 Сообщений: 307
	26.10.2016, 20:11 [ТС]	4
	большое спасибочки) Добавлено через 1 минуту Сообщение от Shersh "[А-Яа-яЁё]" а что это дает? нельзя ли [А-я] 0

Опции темы