Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
Але-Дашкова
381 / 4 / 3
Регистрация: 20.03.2013
Сообщений: 43
1

Анализ строк в VBA

11.06.2013, 22:51. Просмотров 1718. Ответов 20
Метки нет (Все метки)

Привет, ребята! Пожалуйста, помогите мне разобраться с анализом строк! Нужно написать программу для поиска чисел 72 и 42 в строке, и что-то у меня не получается... Всю голову сломала и решила обратиться к вам за помощью.
Вот программа, которую я написала:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Поиск_чисел72и42в_строке()
    Dim КоличествоЧисел72и42 As Integer
    Dim Строка As String
    Dim I As Integer, J As Integer
    Dim Символ As String
    Dim ДругойСимвол As String
    Строка = InputBox("Пожалуйста, введите строку, в которой будут искаться числа 72 и 42")
    КоличествоЧисел72и42 = 0
    For I = 1 To Len(Строка)
        Символ = Mid(Строка, I, 1)
        If Символ = 7 Then
            For J = 1 To Len(Строка)
                ДругойСимвол = Mid(Строка, J, 1)
                If ДругойСимвол = 2 Then
                    КоличествоЧисел72и42 = КоличествоЧисел72и42 + 1
                End If
            Next J
        End If
        If Символ = 4 Then
            For J = 1 To Len(Строка)
                ДругойСимвол = Mid(Строка, J, 1)
                If ДругойСимвол = 2 Then
                    КоличествоЧисел72и42 = КоличествоЧисел72и42 + 1
                End If
            Next J
        End If
    Next I
    MsgBox "Количество чисел 72 и 42 в строке равно " & КоличествоЧисел72и42
End Sub
Когда я ввожу строку, не содержащую чисел 72 и 42, например "5555", то программа правдиво отвечает, что количество чисел 72 и 42 в строке равно нулю, однако, когда я ввожу строку "7242", то программа находит четыре числа, хотя на самом деле их только два.
Буду благодарна, если поможете разобраться.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2013, 22:51
Ответы с готовыми решениями:

Вывод строк в VBA
Есть на Лист1 колонки "A" и "B" с наименованием. Есть на Лист2 колонки "A" и...

Вывод строк в VBA
Есть код макроса который позволяет ввести в окошко часть слова, и далее если в...

Перенос найденных строк в VBA
Подскажите как перенести строчку с одного листа на другой, которую я нахожу...

Удаление строк в Excel на VBA.
Прошу помощи у специалистов. Есть массив (2 столбца) на одном листе. Со...

Заполение строк числами vba
Помогите пожалуйста написать задачу в Vba, буду очень благодарен. 1)Начиная с...

20
Igor_Tr
4369 / 653 / 36
Регистрация: 17.01.2010
Сообщений: 2,134
13.06.2013, 11:52 21
O! Точно... Нужно предупредить Але-Дашкова. Мой код с dictionary - шутка. Код "работоспособный", но, в данном случае, не рациональный как такой!
0
13.06.2013, 11:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2013, 11:52

VBA excel перебор строк
Добрый день! Имеется список из 3х столбцов в excel: Иванов 16 ...

Vba нумерация строк по условию
Здравствуйте всем. Ни как не могу найти должный пример к своей проблеме, что бы...

Группирование строк в EXCEL (макрос) / VBA
Ребят, добрый день!! Помогите, пожалуйста,написать макрос, чтобы в таблице...


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

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

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