Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Счет определенных символов в ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Счет определенных символов в ячейке
0mega Дата: Среда, 24.11.2010, 10:47 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 34 ±
Замечаний: 0% ±

Доброго времени суток.
2003
вопрос 1-й
водоотвод
кол-во букв "о" ?

вопрос 2-ой
A1=(47+В3-2)/D5-12
кол-во цифр ?
кол-во математических знаков? (включая и "=" )

P.S.
если эти 2 вопроса имеют отличие в решении, тогда просьба к модераторам перенести 2-ой вопрос в отдельную тему



Сообщение отредактировал 0mega - Среда, 24.11.2010, 10:50
 
Ответить
СообщениеДоброго времени суток.
2003
вопрос 1-й
водоотвод
кол-во букв "о" ?

вопрос 2-ой
A1=(47+В3-2)/D5-12
кол-во цифр ?
кол-во математических знаков? (включая и "=" )

P.S.
если эти 2 вопроса имеют отличие в решении, тогда просьба к модераторам перенести 2-ой вопрос в отдельную тему


Автор - 0mega
Дата добавления - 24.11.2010 в 10:47
_Boroda_ Дата: Среда, 24.11.2010, 11:17 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16715
Репутация: 6504 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Пара вариантов по первому вопросу во вложении

=ДЛСТР(B1)-ДЛСТР(ПОДСТАВИТЬ(B1;B2;""))
{=СУММ(--(ПСТР(B1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(B1)));1)=B2))}

По второму - Вы хотите выковырять кол-во цифр из формулы, которая выдает в ячейке значение (то есть формат ячейки не текстовый)?

К сообщению приложен файл: 4923071.xls (16.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПара вариантов по первому вопросу во вложении

=ДЛСТР(B1)-ДЛСТР(ПОДСТАВИТЬ(B1;B2;""))
{=СУММ(--(ПСТР(B1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(B1)));1)=B2))}

По второму - Вы хотите выковырять кол-во цифр из формулы, которая выдает в ячейке значение (то есть формат ячейки не текстовый)?


Автор - _Boroda_
Дата добавления - 24.11.2010 в 11:17
0mega Дата: Среда, 24.11.2010, 12:04 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 34 ±
Замечаний: 0% ±

to_Boroda_,
Александр, здравствуйте

Quote (_Boroda_)
=ДЛСТР(B1)-ДЛСТР(ПОДСТАВИТЬ(B1;B2;""))

Это идеальное решение первого вопроса
Уточняю второй вопрос

Quote (0mega)
вопрос 2-ой
A1=(47+В3-2)/D5-12
кол-во цифр ?
кол-во математических знаков? (включая и "=" )

кол-во цифр: A1=(47+В3-2)/D5-12 =3
кол-во математических знаков? (включая и "=" )
A1=(47+В3-2)/D5-12 =4
 
Ответить
Сообщениеto_Boroda_,
Александр, здравствуйте

Quote (_Boroda_)
=ДЛСТР(B1)-ДЛСТР(ПОДСТАВИТЬ(B1;B2;""))

Это идеальное решение первого вопроса
Уточняю второй вопрос

Quote (0mega)
вопрос 2-ой
A1=(47+В3-2)/D5-12
кол-во цифр ?
кол-во математических знаков? (включая и "=" )

кол-во цифр: A1=(47+В3-2)/D5-12 =3
кол-во математических знаков? (включая и "=" )
A1=(47+В3-2)/D5-12 =4

Автор - 0mega
Дата добавления - 24.11.2010 в 12:04
Serge_007 Дата: Среда, 24.11.2010, 12:06 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (0mega)
Уточняю второй вопрос
0mega, вчитайтесь в вопрос _Boroda_ :
Quote (_Boroda_)
Вы хотите выковырять кол-во цифр из формулы, которая выдает в ячейке значение (то есть формат ячейки не текстовый)?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (0mega)
Уточняю второй вопрос
0mega, вчитайтесь в вопрос _Boroda_ :
Quote (_Boroda_)
Вы хотите выковырять кол-во цифр из формулы, которая выдает в ячейке значение (то есть формат ячейки не текстовый)?

Автор - Serge_007
Дата добавления - 24.11.2010 в 12:06
kim Дата: Среда, 24.11.2010, 12:47 | Сообщение № 5
Группа: Друзья
Ранг: Обитатель
Сообщений: 371
Репутация: 160 ±
Замечаний: 0% ±

Excel 2010
0mega,
Если запись в ячейке A1 является формулой, а не текстом прийдется использовать макрофункции.
И в любом случае решение будет тяжелым.
Да, еще, понятия: количество чисел и количество цифр несколько отличаются.


Сцяна - гэта тая ж прыступка. Проста трэба дарасьці да яе.
 
Ответить
Сообщение0mega,
Если запись в ячейке A1 является формулой, а не текстом прийдется использовать макрофункции.
И в любом случае решение будет тяжелым.
Да, еще, понятия: количество чисел и количество цифр несколько отличаются.

Автор - kim
Дата добавления - 24.11.2010 в 12:47
0mega Дата: Среда, 24.11.2010, 12:56 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 34 ±
Замечаний: 0% ±

Quote (_Boroda_)
По второму - Вы хотите выковырять кол-во цифр из формулы, которая выдает в ячейке значение (то есть формат ячейки не текстовый)?

Да, конечно.
=(47+В3-2)/D5-12 =4 - это не набор случайных символов.
Это совокупность математических действий с конкретными числами и ячейками. И если топнуть на Enter то в ячейка А1 будет результат вычисления (напр 53,6451)
P.S.
Оказывается , я так же не могу выковырять цифры и из текста ... wacko
поэтому еще 1 доп вопрос
ячейка D1 содержит тект: За 2 дня оштрафовали 18 водителей на 142,56 руб
подсчитать кол-во чисел (2 18 142,56 ) =3


Сообщение отредактировал 0mega - Среда, 24.11.2010, 12:58
 
Ответить
Сообщение
Quote (_Boroda_)
По второму - Вы хотите выковырять кол-во цифр из формулы, которая выдает в ячейке значение (то есть формат ячейки не текстовый)?

Да, конечно.
=(47+В3-2)/D5-12 =4 - это не набор случайных символов.
Это совокупность математических действий с конкретными числами и ячейками. И если топнуть на Enter то в ячейка А1 будет результат вычисления (напр 53,6451)
P.S.
Оказывается , я так же не могу выковырять цифры и из текста ... wacko
поэтому еще 1 доп вопрос
ячейка D1 содержит тект: За 2 дня оштрафовали 18 водителей на 142,56 руб
подсчитать кол-во чисел (2 18 142,56 ) =3

Автор - 0mega
Дата добавления - 24.11.2010 в 12:56
0mega Дата: Среда, 24.11.2010, 13:16 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 34 ±
Замечаний: 0% ±

kim, здравствуйте
Quote (kim)
Если запись в ячейке A1 является формулой, а не текстом прийдется использовать макрофункции.

Я прекрасно понимаю, что этот вопрос не вписывается в =ЕСЛИ(...)
Учитывая, то обстоятельство , что это вопрос не из серии "МНЕ ОБЯЗАТЕЛЬНО НАДО. Я СКОПИРУЮ И ВСТАВЛЮ ... " а относится к "ХОЧУ ЗНАТЬ" и еще сюда приплюсовать что я в VBA-командах , все равно, не смогу разобраться - поэтому ответ не является обязательным

Quote (kim)
Да, еще, понятия: количество чисел и количество цифр несколько отличаются.
Правильное замечание. Меня интересует кол-во чисел
 
Ответить
Сообщениеkim, здравствуйте
Quote (kim)
Если запись в ячейке A1 является формулой, а не текстом прийдется использовать макрофункции.

Я прекрасно понимаю, что этот вопрос не вписывается в =ЕСЛИ(...)
Учитывая, то обстоятельство , что это вопрос не из серии "МНЕ ОБЯЗАТЕЛЬНО НАДО. Я СКОПИРУЮ И ВСТАВЛЮ ... " а относится к "ХОЧУ ЗНАТЬ" и еще сюда приплюсовать что я в VBA-командах , все равно, не смогу разобраться - поэтому ответ не является обязательным

Quote (kim)
Да, еще, понятия: количество чисел и количество цифр несколько отличаются.
Правильное замечание. Меня интересует кол-во чисел

Автор - 0mega
Дата добавления - 24.11.2010 в 13:16
Serge_007 Дата: Среда, 24.11.2010, 13:19 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (0mega)
я в VBA-командах , все равно, не смогу разобраться

Макрофункции - это не ВБА, как Вы его понимаете smile


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (0mega)
я в VBA-командах , все равно, не смогу разобраться

Макрофункции - это не ВБА, как Вы его понимаете smile

Автор - Serge_007
Дата добавления - 24.11.2010 в 13:19
Hugo Дата: Среда, 24.11.2010, 13:52 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
VBA
Запятую грубо уничтожаем.
Code
Sub tt()
Dim s As String, i As Long, x As Long
Dim trig As Boolean
s = "За 2 дня оштрафовали 18 водителей на 142,56 руб "
s = Replace(s, ",", "")
For i = 1 To Len(s)
If IsNumeric(Mid(s, i, 1)) Then
If trig = False Then x = x + 1
trig = True
Else
trig = False
End If
Next
MsgBox x
End Sub


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеVBA
Запятую грубо уничтожаем.
Code
Sub tt()
Dim s As String, i As Long, x As Long
Dim trig As Boolean
s = "За 2 дня оштрафовали 18 водителей на 142,56 руб "
s = Replace(s, ",", "")
For i = 1 To Len(s)
If IsNumeric(Mid(s, i, 1)) Then
If trig = False Then x = x + 1
trig = True
Else
trig = False
End If
Next
MsgBox x
End Sub

Автор - Hugo
Дата добавления - 24.11.2010 в 13:52
_Boroda_ Дата: Среда, 24.11.2010, 13:53 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16715
Репутация: 6504 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Формулами
Code
=СУММ(--(ЕЧИСЛО(-ПСТР(A1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));1))+ЕОШИБКА(-ПСТР(A1&" ";СТРОКА(ДВССЫЛ("A2:A"&ДЛСТР(A1)+1));1))=2))-СУММ(--(ЕЧИСЛО(-ПСТР(A1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));1))+(ПСТР(A1&" ";СТРОКА(ДВССЫЛ("A2:A"&ДЛСТР(A1)+1));1)=",")+ЕЧИСЛО(-ПСТР(A1&"  ";СТРОКА(ДВССЫЛ("A3:A"&ДЛСТР(A1)+2));1))=3))

Последний кусок - исключительно для борьбы с запятой. Если все числа целые, то попроще

Code
=СУММ(--(ЕЧИСЛО(-ПСТР(A1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));1))+ЕОШИБКА(-ПСТР(A1&" ";СТРОКА(ДВССЫЛ("A2:A"&ДЛСТР(A1)+1));1))=2))

формулы массива

К сообщению приложен файл: _____.xls (24.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеФормулами
Code
=СУММ(--(ЕЧИСЛО(-ПСТР(A1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));1))+ЕОШИБКА(-ПСТР(A1&" ";СТРОКА(ДВССЫЛ("A2:A"&ДЛСТР(A1)+1));1))=2))-СУММ(--(ЕЧИСЛО(-ПСТР(A1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));1))+(ПСТР(A1&" ";СТРОКА(ДВССЫЛ("A2:A"&ДЛСТР(A1)+1));1)=",")+ЕЧИСЛО(-ПСТР(A1&"  ";СТРОКА(ДВССЫЛ("A3:A"&ДЛСТР(A1)+2));1))=3))

Последний кусок - исключительно для борьбы с запятой. Если все числа целые, то попроще

Code
=СУММ(--(ЕЧИСЛО(-ПСТР(A1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));1))+ЕОШИБКА(-ПСТР(A1&" ";СТРОКА(ДВССЫЛ("A2:A"&ДЛСТР(A1)+1));1))=2))

формулы массива


Автор - _Boroda_
Дата добавления - 24.11.2010 в 13:53
MCH Дата: Среда, 24.11.2010, 15:16 | Сообщение № 11
Группа: Админы
Ранг: Старожил
Сообщений: 2004
Репутация: 752 ±
Замечаний: ±

=СУММПРОИЗВ(ЕЧИСЛО(--ПСТР(ПОДСТАВИТЬ(A1;",";"");СТОЛБЕЦ(A:IU);1))*ЕОШ(--ПСТР(ПОДСТАВИТЬ(A1;",";"");СТОЛБЕЦ(A:IU)+1;1)))
 
Ответить
Сообщение=СУММПРОИЗВ(ЕЧИСЛО(--ПСТР(ПОДСТАВИТЬ(A1;",";"");СТОЛБЕЦ(A:IU);1))*ЕОШ(--ПСТР(ПОДСТАВИТЬ(A1;",";"");СТОЛБЕЦ(A:IU)+1;1)))

Автор - MCH
Дата добавления - 24.11.2010 в 15:16
0mega Дата: Четверг, 25.11.2010, 20:21 | Сообщение № 12
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 34 ±
Замечаний: 0% ±

MCH, _Boroda_,
благодарю за уделенное время
 
Ответить
СообщениеMCH, _Boroda_,
благодарю за уделенное время

Автор - 0mega
Дата добавления - 25.11.2010 в 20:21
kim Дата: Пятница, 26.11.2010, 03:02 | Сообщение № 13
Группа: Друзья
Ранг: Обитатель
Сообщений: 371
Репутация: 160 ±
Замечаний: 0% ±

Excel 2010
0mega,
По второму вопросу...
К сообщению приложен файл: .__.xls (31.5 Kb)


Сцяна - гэта тая ж прыступка. Проста трэба дарасьці да яе.
 
Ответить
Сообщение0mega,
По второму вопросу...

Автор - kim
Дата добавления - 26.11.2010 в 03:02
0mega Дата: Суббота, 27.11.2010, 10:56 | Сообщение № 14
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 34 ±
Замечаний: 0% ±

kim,
Спасибо,
Интересное решение со знаками
 
Ответить
Сообщениеkim,
Спасибо,
Интересное решение со знаками

Автор - 0mega
Дата добавления - 27.11.2010 в 10:56
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!