ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подсчитать количество определенных букв в слове.
17 сообщений из 17, страница 1 из 1
Подсчитать количество определенных букв в слове.
    #35073595
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
Добрый день.
Есть ли в ехеL функция (или кто то знает код в VBA), которая помогла бы подсчитать количество ОПРЕДЕЛЕННЫХ букв в конкретном слове.
Например в ячейке есть слово: "кондитерская", необходимо подсчитать количество букв "к" и вывести в соседнюю ячейку (в данном случае "2").
Спасибо.
...
Рейтинг: 0 / 0
19.01.2008, 19:37
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #35073614
Фотография DOSS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DOSS
Участник
в редакторе VB создать модуль
в модуле создать глобальную функцию

Public Function CountChar(str1 As String, str2 As String) As Integer
Dim i As Integer
Dim k As Integer

k = 0
For i = 1 To Len(str1)
If StrComp(Mid(str1, i, 1), str2, vbTextCompare) = 0 Then
k = k + 1
End If
Next

CountChar = k
End Function

в ячейку вставить вызов этой функции
например =CountChar(B2;"д")
...
Рейтинг: 0 / 0
19.01.2008, 20:11
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #35073762
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
думаю, что несколько быстрее это проделает след. формула:

=ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;"к";""))

особенно если считать надо во многих ячейках:

=СУММПРОИЗВ(ДЛСТР(A1:A100)-ДЛСТР(ПОДСТАВИТЬ(A1:A100;"к";"")))

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
20.01.2008, 00:49
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #35073855
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL)
=ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;"к";""))


Меня с первого раза эта идея приколола.
Это определённо быстрее
...
Рейтинг: 0 / 0
20.01.2008, 09:43
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #35074090
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
А так можно посчитать кол-во нескольких символов сразу:

=СУММПРОИЗВ(ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;{"к";"с";"р"};"")))

=СУММПРОИЗВ(ДЛСТР(A1:A10)-ДЛСТР(ПОДСТАВИТЬ(A1:A10;{"к";"с";"р"};"")))

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
20.01.2008, 15:14
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #35074463
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
Спасибо всем.
KL (XL)...Отдельное спасибо. Действительно изящно.
...
Рейтинг: 0 / 0
20.01.2008, 21:02
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Подсчитать количество определенных букв в слове.
    #38723607
4absinth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4absinth
Гость
KL (XL), подскажите пожалуйста как посчитать количество "," справа после знака "=" в тексте ячейки.
...
Рейтинг: 0 / 0
19.08.2014, 15:55
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #38723705
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZVI
Участник
4absinth...посчитать количество "," справа после знака "=" в тексте ячейки.
=ДЛСТР(A1)-НАЙТИ("=";A1&"=")+1-ДЛСТР(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("=";A1&"=");2^15);",";""))
...
Рейтинг: 0 / 0
19.08.2014, 17:37
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Подсчитать количество определенных букв в слове.
    #39295210
Talalaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Talalaev
Гость
KL (XL), Всем привет, подскажите пжлст. Задача такая в разных ячейках находятся слова из трех букв, бывает в ячейке по два одинаковых слова или два разных "апр" "вап" или "вап" "вап".
Хотелось бы вывести сумму "апр" в одну ячейку и сумму всех "вап" в другую.
...
Рейтинг: 0 / 0
21.08.2016, 21:50
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #39295211
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Talalaev, читать справку про сводные таблицы.
...
Рейтинг: 0 / 0
21.08.2016, 21:58
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #39295225
Talalaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Talalaev
Гость
Akina,=СУММПРОИЗВ(ДЛСТР(a1:a100)-ДЛСТР(ПОДСТАВИТЬ(a1:a100;"апр";"")))/3
почему то "апр" = 3
...
Рейтинг: 0 / 0
21.08.2016, 22:53
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #39295227
Talalaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Talalaev
Гость
TalalaevAkina,=СУММПРОИЗВ(ДЛСТР(a1:a100)-ДЛСТР(ПОДСТАВИТЬ(a1:a100;"апр";"")))/3
почему то "апр" = 3
только про таблицы не повторяй)
...
Рейтинг: 0 / 0
21.08.2016, 23:03
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #39295309
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Talalaevтолько про таблицы не повторяй)тогда не повторяй про "апр" = 3
...
Рейтинг: 0 / 0
22.08.2016, 09:22
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #39303407
faza24
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faza24
Гость
значения в ячейках:
17.08/1
24.08/1; 31.08/22
17.08/4; 24.08/15; 31.08/2
17.08/4; 21.08/1; 25.08/1; 31.08/1
01.08/33; 02.08/5; 03.08/7; 04.08/235; 10.08/2
...
Найти сумму ЧИСЕЛ после слеша в ячейке (максимум слагаемых 31 дней в месяце))).
Рожаю, может кто-нибудь уже поможет быстрей разродиться?))) Спасибо.
...
Рейтинг: 0 / 0
04.09.2016, 18:46
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #39304154
faza24
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faza24
Гость
Cделал функцию на два знака после слеша.
Function koluslug%(chislo$)
Dim e$, i%
For i = 1 To Len(chislo)
e = Mid(chislo, i, 1)
If e = "/" Then
If (0 <= Val(Mid(chislo, i + 2, 1)) <= 9) Then
koluslug = koluslug + Val(Mid(chislo, i + 1, 2))
Else
koluslug = koluslug + Val(Mid(chislo, i + 1, 1))
End If
End If
Next i
End Function
...
Рейтинг: 0 / 0
06.09.2016, 07:20
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #39304676
faza24
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faza24
Гость
странный VAL, можно вообще без проверок

Function koluslug%(chislo$)
Dim i%
For i = 1 To Len(chislo)
If Mid(chislo, i, 1) = "/" Then koluslug = koluslug + Val(Mid(chislo, i + 1, 3))
Next i
End Function
...
Рейтинг: 0 / 0
06.09.2016, 19:03
| Ответить | Цитировать | Написать  
Подсчитать количество определенных букв в слове.
    #39457342
it's simple
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
it's simple
Гость
Talalaev,
Подсчет всех слов "апр" (поиск всех букв "р" в диапазоне А1:А100)
=СУММПРОИЗВ(ДЛСТР(А1:А100)-ДЛСТР(ПОДСТАВИТЬ(А1:А100;"р";"")))

Подсчет всех слов "вап" (поиск всех букв "в" в том же диапазоне)
=СУММПРОИЗВ(ДЛСТР(А1:А100)-ДЛСТР(ПОДСТАВИТЬ(А1:А100;"в";"")))
...
Рейтинг: 0 / 0
22.05.2017, 14:01
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подсчитать количество определенных букв в слове.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38723705&tid=2172689]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 26ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 289ms
total:  419ms
созд. / загр.: 419ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]