Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
КАК ПОДСЧИТАТЬ КОЛИЧЕСТВО ЗНАКОВ ПОСЛЕ ЗАПЯТОЙ
 
#1
18.02.2011 16:33:47
ВСЕМ ПРИВЕТ!!!!!!!!!КАК ПОДСЧИТАТЬ КОЛИЧЕСТВО ЗНАКОВ ПОСЛЕ ЗАПЯТОЙ.  
НАПРИМЕР ЧИСЛО 4,2375-ЧТОБЫ В ОТДЕЛЬНОЙ КЛЕТКЕ БЫЛ РЕЗУЛЬТАТ-4.
 
 
 
#2
18.02.2011 16:39:10
как то так:  
=ДЛСТР(""&(A1-ЦЕЛОЕ(A1)))-2
 
 
 
#3
18.02.2011 16:39:22
=ДЛСТР(ПОДСТАВИТЬ(ОСТАТ(A1;1);"0,";""))
 
 
 
#4
18.02.2011 16:44:58
В этой отдельной клетке: =ДЛСТР(A1)-ПОИСК(",";A1;1)
Я соображаю, но не всегда. :-)
 
 
 
#5
18.02.2011 16:47:24
A1 - это клетка где написано 4,2375.
Я соображаю, но не всегда. :-)
 
 
 
#6
18.02.2011 17:33:25
Макроса не хватает :)  
[b1] = Len(Split([a1], Mid(1 / 2, 2, 1))(UBound(Split([a1], Mid(1 / 2, 2, 1)))))
 
 
 
#7
18.02.2011 17:53:06
=ДЛСТР(A1)-ПОИСК(",";A1)  
Нужно ли проверять на отсутвие запятой (целое число)?
 
 
 
#8
18.02.2011 19:54:31
GrAnt, это форум по Excel. То что вы называете клеткой в excel принято называть ячейкой.
 
 
 
#9
18.02.2011 20:31:25
На конкурс замороченности :)) Массив  
 
=ПОИСКПОЗ(МИН(ДЛСТР(A1*10^СТРОКА(1:15)));ДЛСТР(A1*10^СТРОКА(1:15));)
 
 
 
#10
19.02.2011 11:21:33
4,001203  
Верно только у Vikttur и Казанского.
 
 
 
#11
19.02.2011 11:25:48
Да нет. У Hugo тоже верно.
Я сам - дурнее всякого примера! ...
 
 
 
#12
19.02.2011 11:29:24
Виноват.Смотрел только формулы.
 
 
 
#13
19.02.2011 11:39:18
Ну я бы к способу Игоря добавил проверку на целое. Заодно и незначащие нули после запятой проигнорирует:  
Public Function Ost(s#) As Integer  
   Ost = IIf(Int(s) = s, 0, Len(Split(s, Mid(1 / 2, 2, 1))(UBound(Split(s, Mid(1 / 2, 2, 1))))))  
End Function
Я сам - дурнее всякого примера! ...
 
 
 
#14
19.02.2011 12:13:05
до кучи....  
Function znak(vl$)  
Dim a  
a = Split(vl & ",", ",")  
znak = IIf(UBound(a) > 1, Len(a(1)), 0)  
End Function
Спасибо
 
 
 
#15
19.02.2011 13:00:45
Дим, а если системный разделитель точка? У Игоря он вычисляется  Mid(1 / 2, 2, 1).
Я сам - дурнее всякого примера! ...
 
 
 
#16
19.02.2011 13:25:23
для разнообразия:  
 
Function nz&(x#)  
Dim r#  
On Error GoTo er  
Do  
   If r / (x - Int(x)) > 1000 Then Exit Function  
   r = x - Int(x)  
   x = x * 10  
   nz = nz + 1  
Loop  
er:  
End Function
Живи и дай жить..
 
 
 
#17
19.02.2011 14:25:27
{quote}{login=KukLP}{date=19.02.2011 01:00}{thema=}{post}Дим, а если системный разделитель точка? У Игоря он вычисляется  Mid(1 / 2, 2, 1).{/post}{/quote}Можно не вычислять, но текст длиннее:  
application.International(xlDecimalSeparator)  
или  
application.International(3)  
 
=44414= каре
 
 
 
#18
19.02.2011 14:34:43
{quote}{login=Маугли}{date=19.02.2011 11:21}{thema=}{post}4,001203  
Верно только у Vikttur и Казанского.{/post}{/quote}  
Проверьте целое число. До конца не верно ни у кого :)  
Но нет формулы на все случаи.
 
 
 
#19
19.02.2011 14:37:21
В посте от 19.02.2011, 11:39 при целом вернет 0.
Я сам - дурнее всякого примера! ...
 
 
 
#20
19.02.2011 17:18:40
{quote}{login=Маугли}{date=19.02.2011 11:21}{thema=}{post}4,001203  
Верно только у Vikttur и Казанского.{/post}{/quote}  
 
Пока не понял из-за чего так происходит, но свою формулу подправил:  
=ДЛСТР(""&(ОКРУГЛ(A1-ЦЕЛОЕ(A1);ДЛСТР(A1)-2)))-2  
Вроде правильно считает:)
 
 
 
#21
19.02.2011 17:56:59
Function znak(vl#)  
znak = Len(Split(Replace(vl, ".", ",") & ",", ",")(1))  
End Function  
По заказу Сергея :)оптимизировал для разных локалей...
Спасибо
 
 
 
#22
22.02.2011 01:45:52
Не видел тему :)  
Без текстовых  
=ПОИСКПОЗ(1;1/(ОСТАТ(A1*10^СТРОКА(1:15);10)=0);)-1  
Массив
 
 
 
#23
22.02.2011 03:17:28
:) Массив  
=ПОИСКПОЗ(;ОСТАТ(A1*10^СТРОКА(1:15);10);)-1
 
 
 
#24
22.02.2011 16:31:08
ВСЕМ СПИСБО!!!!!ВСЕХ С ПРАЗДНИКОМ МУЖИКИ!!!!!
 
 
 
Страницы: 1
Читают тему
Наверх