Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
PornKingAlex
128 / 0 / 1
Регистрация: 02.04.2013
Сообщений: 16
1

Подсчитать, сколько раз в данной строке встречается буква Ch, вводимая с клавиатуры

02.04.2013, 22:43. Просмотров 1850. Ответов 5
Метки нет (Все метки)

Нужно решить задачу в VBA, помогите пожалуйста. Все перепробовал, никак не получается(((
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.04.2013, 22:43
Ответы с готовыми решениями:

Подсчитать, сколько раз определенный символ встречается в строке
написать программу: Подсчитать, сколько раз определенный символ (например «а») встречается в...

Подсчитать сколько раз встречается слово
В текстовом файле подсчитать, сколько раз встречается слово, введенное с клавиатуры. (пожалуйста...

Подсчитать сколько раз встречается в массиве символ К
1. Дан массив символов s1,..sn. Подсчитать сколько раз встречается в массиве символ К. 2. Дана...

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

Подсчитать, сколько раз в числе встречается заданная цифра
Число произвольно вводится пользователем

5
Апострофф
Заблокирован
02.04.2013, 22:49 2
PornKingAlex, соберитесь с мыслями и ещё раз объясните задачу!
Буквы Ch не обнаружено ни в одном языке.
0
PornKingAlex
128 / 0 / 1
Регистрация: 02.04.2013
Сообщений: 16
03.04.2013, 01:06  [ТС] 3
Апострофф, Ну, Ch это как бы словосочетание, т.е. например: вводим в строку characteristic character, вот, в данном случае это словосочетание встретится 2 раза.
0
Sasha_Smirnov
5495 / 1322 / 145
Регистрация: 08.02.2009
Сообщений: 4,042
Записей в блоге: 29
03.04.2013, 02:58 4
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
Sub cheCheCHe()
Const ч = "ch" 'искомое буквосочентание или подстрока
Dim Raskladka As Long, кч As Long, i As Long, streem As String
 
    Raskladka = Application.Keyboard    'запомнили раскладку нашей клавы
    
    Application.Keyboard 1033           'присвоили ей английский язык ()
    streem = InputBox("Используйте клавиатуру:", "Количество че") 'ввод
        
        If InStr(streem, ч) = 0 Then
            кч = 0
        Else
            For i = 1 To Len(streem) - 1
                If Mid(streem, i, 1) Like "[Cc]" Then
                    If Mid(streem, i + 1, 1) Like "[Hh]" Then
                    кч = кч + 1
                    End If
                End If
            Next
        End If
        
    MsgBox "Количество " & ч & ": " & кч & vbCr & vbCr & "Ввели: " & streem
    
    Application.Keyboard Raskladka      'вернули раскладку обратно
End Sub
2
Изображения
Тип файла: png Che.png (8.0 Кб, 3 просмотров)
PornKingAlex
128 / 0 / 1
Регистрация: 02.04.2013
Сообщений: 16
03.04.2013, 20:30  [ТС] 5
Лучший ответ Сообщение было отмечено как решение

Решение

Спасибо большое! Все работает.
0
Hugo121
6530 / 2527 / 454
Регистрация: 19.10.2012
Сообщений: 7,588
03.04.2013, 20:33 6
Лучший ответ Сообщение было отмечено как решение

Решение

Visual Basic
1
MsgBox UBound(Split(LCase("characteristic character"), "ch"))
1
03.04.2013, 20:33
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2013, 20:33

Подсчитать, сколько раз искомое слово встречается во всей книге Excel
'подсчитать, сколько раз искомое слово встречается во всей книге Excel Dim oFind As Excel.Range...

Подсчитать, сколько различных символов встречается в строке
Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран.

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


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

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

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