Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
1 / 1 / 0
Регистрация: 03.12.2014
Сообщений: 307
1

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

26.10.2016, 19:19. Просмотров 2241. Ответов 3
Метки нет (Все метки)

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2016, 19:19
Ответы с готовыми решениями:

Как выйти из двойного цикла?
for for (действие) (а как отсюда выйти из двух циклов?) (а как отсюда...

Как выйти из замкнутого цикла двух макросов?
Всем привет!! Сделал два макроса которые замыкают друг друга, после закрытия книги, она опять...

Как выйти из цикла while при определенном условии
Как выйти из цикла while при определенном условии (используя if) do while 'что-то if...

do while - как выйти из цикла?
Подскажите пожалуйста, а то я уже всю голову "сломал", почему при вводе "А" цикл не прерывается???...

3
es geht mir gut
11218 / 4695 / 1178
Регистрация: 27.07.2011
Сообщений: 11,423
26.10.2016, 19:26 2
Лучший ответ Сообщение было отмечено Оксана33 как решение

Решение

Visual Basic
1
2
3
4
5
  If lett Like "[а-я]" Then
             pos = InStr(1, ActiveCell, lett)
             MsgBox "Letter is " & lett & "  Posision = " & pos
             Exit For
        End If
1
Заблокирован
26.10.2016, 19:28 3
Лучший ответ Сообщение было отмечено Оксана33 как решение

Решение

Visual Basic
1
If lett Like "[А-Яа-яЁё]" Then MsgBox "Letter is " & lett & "  Posision = " & n: Exit For
1
1 / 1 / 0
Регистрация: 03.12.2014
Сообщений: 307
26.10.2016, 20:11  [ТС] 4
большое спасибочки)

Добавлено через 1 минуту
Цитата Сообщение от Shersh Посмотреть сообщение
"[А-Яа-яЁё]"
а что это дает? нельзя ли [А-я]
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2016, 20:11

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как выйти из цикла while();
#include <iostream> #include <fstream> #include <cctype> #include <string> #include <vector>...

Как выйти из цикла?
Здрасьте!Я новичок, и у меня достаточно глупый вопрос. Как тут реализовать выход из цикла? ...

Как выйти из замкнутого цикла
Здравствуйте, напоролся на замкнутый цикл, только не понимаю почему он замкнутый. Запускал...

Как принудительно выйти из цикла?
Забыл как принудительно выйти из цикла... Хелп...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.