Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автоподсчёт количества букв в тексте ячейки., В ячейке пишется произвольный текст. В другой ячейке должен произойти автоподсчёт количества букв этого текста.
 
#1
10.07.2015 19:29:53
Кроме этого еще в 2-х других ячейках считаются не буквы, а символы без пробелов и с пробелами.
Пример во вложенном файле, открыв который станет более понятна суть задачи.
 
 
 
#2
10.07.2015 19:38:23
Встроенная функция ДЛСТР().
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#3
10.07.2015 20:04:04
TheBestOfTheBest, спасибо, на функция ДЛСТР() подходит только для 3-го столбца, где идёт подсчёт всех символов с пробелами.
 
 
 
#4
10.07.2015 20:08:54
Стандартная функция удаления пробелов.
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#5
10.07.2015 21:42:28
В файле считает только буквы русского алфавита. Иностранный алфавит - просто символ.
 
 
 
#6
10.07.2015 21:57:21
Макрос
Код
Sub Podschet()
Dim i As Long
Dim iLastRow As Long
Dim j As Integer
Dim Probel As Integer
Application.ScreenUpdating = False
   iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To iLastRow
      Cells(i, 2) = 0
      Probel = 0
    For j = 1 To Len(Cells(i, 1))
      If Asc(Mid(Cells(i, 1), j, 1)) >= 192 And Asc(Mid(Cells(i, 1), j, 1)) <= 223 _
      Or Asc(Mid(Cells(i, 1), j, 1)) >= 224 And Asc(Mid(Cells(i, 1), j, 1)) <= 255 Then
         Cells(i, 2) = Cells(i, 2) + 1
      ElseIf Asc(Mid(Cells(i, 1), j, 1)) = 32 Then
         Probel = Probel + 1
      End If
    Next
         Cells(i, 3) = Len(Cells(i, 1)) - Probel
         Cells(i, 4) = Len(Cells(i, 1))
  Next
Application.ScreenUpdating = True
End Sub
 
 
 
#7
11.07.2015 03:18:26
gling, спасибо, замечательно! Иностранные буквы и не нужны и даже лучше, если они будут считаться безликими символами. Будем патриотами! )))))
Насчёт подсчёта слогов и подсчёта слов спрашивать не стоит? Нереально наверное?
 
 
 
#8
11.07.2015 03:19:24
Kuzmich, спасибо за макрос!
 
 
 
#9
11.07.2015 07:05:40
Уже час смотрю на формулу Владимира (gling)
Код
=СУММ(--ЕЧИСЛО(ПОИСКПОЗ(ПСТР(A2;СТРОКА($A$1:$A$999);1);СИМВОЛ(СТРОКА($A$192:$A$223));1)))
и не могу понять, как она букву "ё" отлавливает?
 
 
 
#10
11.07.2015 07:14:40
Цитата
novomaster написал: Насчёт подсчёта слогов и подсчёта слов...
Попробовал слоги (гласные буквы) по аналогии формулы Владимира подсчитать, но почему-то формула
Код
=СУММ(--ЕЧИСЛО(ПОИСКПОЗ(ПСТР(A2;СТРОКА($A$1:$A$999);1);{"а":"е":"ё":"и":"о":"у":"ы":"э":"ю":"я"};)))
воспринимает "?" как гласную. 8-0
Количество слов, может, подсчитать количество пробелов +1.
Код
=ДЛСТР(СЖПРОБЕЛЫ($A2))-ДЛСТР(ПОДСТАВИТЬ($A2;" ";""))+1
Изменено: Алишер Шакиров - 11.07.2015 11:31:22
 
 
 
#11
11.07.2015 07:45:08
Цитата
Алишер Шакиров написал: почему-то формула ... воспринимает "?" как гласную.
Алишер, здесь "?" выступает в роли подстановочного знака.
модификация:
Код
=СУММ(--ЕЧИСЛО(ПОИСКПОЗ(ПСТР(ПОДСТАВИТЬ(A2;"?";"");СТРОКА($A$1:$A$999);1);{"а":"е":"ё":"и":"о":"у":"ы":"э":"ю":"я"};)))

кстати, такая же проблема будет с символом "*".
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#12
11.07.2015 09:25:08
Цитата
ikki написал: здесь "?" выступает в роли подстановочного знака.
Вот жеж, не догадался. Саша, спасибо.
 
 
 
#13
11.07.2015 11:02:21
Алишер Шакиров, то есть выхода нет? Так и будет "?" считаться за гласную?
 
 
 
#14
11.07.2015 11:46:09
а вы не все сообщения читаете, что ли?
#11 не видели?
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#15
11.07.2015 16:01:40
ikki, просто я не разбираюсь в сложных формулах и поэтому в суть вашей с Алишером беседы не вникаю. Алишер прислал пример, в котором есть решение, поэтому ему и ответил. А вашу формулу я попробовал скопировать и вставить в пример Алишера - вообще ничего не считает. Уверен, что формула ваша правильная и это из-за моего незнания так получается криво, но факт остается фактом: для меня задача осталась открытой.
 
 
 
#16
11.07.2015 16:11:29
=СУММПРОИЗВ(--ЕЧИСЛО(1/(ПОИСК(ПСТР(A2;СТРОКА($1:$999);1);"zёуеыаоэяию")-1)))
 
 
 
#17
11.07.2015 17:43:04
Цитата
novomaster написал: и поэтому в суть вашей с Алишером беседы не вникаю
А зря. Решается Ваша задача.
 
 
 
#18
11.07.2015 18:10:05
Цитата
novomaster написал: то есть выхода нет?
Есть.
Размещаете вопрос в разделе "работа", платите деньги, и вникать ни во что не нужно.
 
 
 
#19
12.07.2015 03:19:06
Цитата
novomaster написал: А вашу формулу я попробовал скопировать и вставить в пример Алишера - вообще ничего не считает.
Может потому, что это формулы массива. Т.е. после вставки нужно нажимать не просто Enter, а одновременно Ctrl/Shift/Enter.
 
 
 
Страницы: 1
Читают тему
Наверх