Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подсчитать количество определенных букв в слове. / 17 сообщений из 17, страница 1 из 1
19.01.2008, 19:37
    #35073595
vad-anatolij
vad-anatolij
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
Добрый день.
Есть ли в ехеL функция (или кто то знает код в VBA), которая помогла бы подсчитать количество ОПРЕДЕЛЕННЫХ букв в конкретном слове.
Например в ячейке есть слово: "кондитерская", необходимо подсчитать количество букв "к" и вывести в соседнюю ячейку (в данном случае "2").
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2008, 20:11
    #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
| Ответить | Цитировать | Написать  
20.01.2008, 00:49
    #35073762
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
думаю, что несколько быстрее это проделает след. формула:

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

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

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

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


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

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

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

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2008, 21:02
    #35074463
vad-anatolij
vad-anatolij
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
Спасибо всем.
KL (XL)...Отдельное спасибо. Действительно изящно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
19.08.2014, 15:55
    #38723607
4absinth
4absinth
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
KL (XL), подскажите пожалуйста как посчитать количество "," справа после знака "=" в тексте ячейки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2014, 17:37
    #38723705
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
4absinth...посчитать количество "," справа после знака "=" в тексте ячейки.
=ДЛСТР(A1)-НАЙТИ("=";A1&"=")+1-ДЛСТР(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("=";A1&"=");2^15);",";""))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
21.08.2016, 21:50
    #39295210
Talalaev
Talalaev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
KL (XL), Всем привет, подскажите пжлст. Задача такая в разных ячейках находятся слова из трех букв, бывает в ячейке по два одинаковых слова или два разных "апр" "вап" или "вап" "вап".
Хотелось бы вывести сумму "апр" в одну ячейку и сумму всех "вап" в другую.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2016, 21:58
    #39295211
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
Talalaev, читать справку про сводные таблицы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2016, 22:53
    #39295225
Talalaev
Talalaev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
Akina,=СУММПРОИЗВ(ДЛСТР(a1:a100)-ДЛСТР(ПОДСТАВИТЬ(a1:a100;"апр";"")))/3
почему то "апр" = 3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2016, 23:03
    #39295227
Talalaev
Talalaev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
TalalaevAkina,=СУММПРОИЗВ(ДЛСТР(a1:a100)-ДЛСТР(ПОДСТАВИТЬ(a1:a100;"апр";"")))/3
почему то "апр" = 3
только про таблицы не повторяй)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2016, 09:22
    #39295309
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
Talalaevтолько про таблицы не повторяй)тогда не повторяй про "апр" = 3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2016, 18:46
    #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
| Ответить | Цитировать | Написать  
06.09.2016, 07:20
    #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, 19:03
    #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
| Ответить | Цитировать | Написать  
22.05.2017, 14:01
    #39457342
it's simple
it's simple
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать количество определенных букв в слове.
Talalaev,
Подсчет всех слов "апр" (поиск всех букв "р" в диапазоне А1:А100)
=СУММПРОИЗВ(ДЛСТР(А1:А100)-ДЛСТР(ПОДСТАВИТЬ(А1:А100;"р";"")))

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


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