Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
delphi7
3 / 3 / 0
Регистрация: 14.10.2011
Сообщений: 7
#1

Ввести две строки и определить, сколько раз и на каких позициях встречается 2 строка внутри первой - VBA

12.04.2012, 06:22. Просмотров 586. Ответов 1
Метки нет (Все метки)

Ввести две строки и определить, сколько раз и на каких позициях встречается 2 строка внутри первой
всё это надо сделать в MS Excel
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2012, 06:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ввести две строки и определить, сколько раз и на каких позициях встречается 2 строка внутри первой (VBA):

Дана строка S и слово W. Определить, сколько раз в строке встречается это слово - VBA
У меня задание: Дана строка S и слово W. Определить сколько раз в строке встречается это слово. Я написала код но программа считате...

Как ввести строку и посчитать, сколько раз в ней встречается заданный символ - VBA
Ввести строку, посчитать, сколько раз в ней встречается заданный символ.

Ввести произвольную строку, посчитать сколько раз в ней встречается каждый символ - VBA
Задачу я решил, но возникла загвоздка, которую я уже не в силах устранить... И загвоздка в следующем: код правильно подсчитывает сколько...

Как ввести строку и посчитать, сколько раз в ней встречается каждая цифра - VBA
Ввести строку, посчитать, сколько раз в ней встречается каждая цифра, в ответе цифры расположить по возрастанию.

Определить, сколько раз в строке встречается заданное слово - VBA
Здравствуйте .помогите пожалуйста решить задачку!!!! Определить, сколько раз в строке встречается заданное слово. Необходимо создать...

Определить, сколько раз в числе встречается максимальная цифра - VBA
Дано натуральное четырехзначное число. Определить, сколько раз в нем встречается максимальная цифра! подскажите пожалуйста как записать...

1
Казанский
13824 / 5587 / 1414
Регистрация: 24.09.2011
Сообщений: 8,764
12.04.2012, 11:21 #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub bb()
Dim s1$, s2$, s3$, i&, j&, m&
s1 = InputBox("Введите 1-ю строку", , "Этот Колпак сшит не по-колпаковски, его нетрудно переколпаковать.")
s2 = InputBox("Введите 2-ю строку", , "колпак")
m = IIf(InputBox("Учитывать регистр? 1 - учитывать, 0 - не учитывать", , "0") = "1", vbBinaryCompare, vbTextCompare)
i = 1 - Len(s2)
Do
    i = InStr(i + Len(s2), s1, s2, m)
    If i = 0 Then Exit Do
    j = j + 1
    s3 = s3 & ", " & i
Loop
If j Then
    MsgBox "Строка" & vbLf & s2 & vbLf & "встречается в строке" & vbLf & _
        s1 & vbLf & j & " раз(а), на позициях: " & Mid$(s3, 3)
Else
    MsgBox "Строка" & vbLf & s2 & vbLf & "НЕ встречается в строке" & vbLf & s1
End If
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2012, 11:21
Привет! Вот еще темы с ответами:

Определить, сколько раз в числе встречается максимальная цифра - VBA
Дано натуральное четырехзначное число. Определить, сколько раз в нем встречается максимальная цифра...... Нужно именно функцию на VB что...

Определить, сколько раз встречается в нём самое длинное слово - VBA
Нужно , срочно решить задачи по VBA: 1)Ввести текст.Определить, сколько раз встречается в нём самое длинное слово. 2)Вводить...

Составить программу, в которой определить сколько раз каждая буква, стоящая на четном месте слова Х встречается в слове У - VBA
Составить программу, в которой определить сколько раз каждая буква, стоящая на четном месте слова Х встречается в слове У.

вычислить сколько раз Х встречается в столбце. - VBA
В ячейках столбца А1:А20 находятся целые числа. Ввести с клавиатуры число Х и вычислить сколько раз Х встречается в столбце. Результат...


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

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

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