Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
выделение цифры из текста
 
#1
05.06.2010 13:43:51
Доброе время суток, помогите пжл,    
есть текст, н-р ПИТЬЕВОЙ "ДАНОН"  290 гр. Персик-Маракуйя -    
мне нужно вытащить из названия, только 290. Буду очень благодарна за помощь
 
 
 
#2
05.06.2010 14:00:11
Вот не самый универсальный, но вариант. В ячейку пишем =ТОЛЬКОЦИФРЫ(А1)  
Function ТОЛЬКОЦИФРЫ(ячейка As Range) As Long  
Dim i As Integer, Результат As String  
Dim Символ As String  
For i = 1 To Len(ячейка)  
   Символ = Mid(ячейка, i, 1)  
   If IsNumeric(Символ) Then  
       Результат = Результат & Символ    
   End If  
Next i  
ТОЛЬКОЦИФРЫ = Val(Результат)  
End Function
 
 
 
#3
05.06.2010 14:03:55
Или формулой массива:  
=ПСТР(A1;ПОИСКПОЗ(;---ЕОШ(-ПСТР(A1;СТРОКА($1:$999);1)););ПОИСКПОЗ(2;1/НЕ(ЕОШ(-ПСТР(A1;СТРОКА($1:$999);1))))-ПОИСКПОЗ(;---ЕОШ(-ПСТР(A1;СТРОКА($1:$999);1));)+1)
 
 
 
#4
05.06.2010 16:12:42
Вот такой вариант формулой. Более длинный но без матричного ввода и очень быстрый в пересчете:  
 
'=--ПСТР(ЛЕВСИМВ(A1;МАКС(ЕСЛИ(ЕЧИСЛО(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1));НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1))));МИН(ЕСЛИ(ЕЧИСЛО(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1));НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1)));32000)
KL
 
 
 
#5
06.06.2010 03:03:47
Ещё вот такое придумалось:  
=ПРОСМОТР(99^99;--ЛЕВСИМВ(ПСТР(A11;МИН(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A11&"0123456789"));15);{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15}))
 
 
 
#6
06.06.2010 03:09:39
Вот так, пожалуй, даже лучше - если в тексте нет числа, то выдаст ноль:  
=ПРОСМОТР(99^99;--ЛЕВСИМВ(ПСТР(A1&"0";МИН(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1&"0123456789"));15);{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15}))  
 
Предыдущая формула была для A11, эта - для A1.  
Обе - обычные формулы, а не формулы массива.
 
 
 
#7
06.06.2010 03:19:45
{quote}{login=ZVI}{date=06.06.2010 03:09}{thema=}{post}Вот так, пожалуй, даже лучше - если в тексте нет числа, то выдаст ноль:  
=ПРОСМОТР(99^99;--ЛЕВСИМВ(ПСТР(A1&"0";МИН(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1&"0123456789"));15);{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15})){/post}{/quote}  
Подправил для случая, когда число - в конце строки:  
=ПРОСМОТР(99^99;--ЛЕВСИМВ(ПСТР(A1&"_0";МИН(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1&"_0123456789"));15);{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15}))
 
 
 
#8
06.06.2010 03:27:24
То же самое для тех, кому важнее краткость:  
=ПРОСМОТР(2^64;--ЛЕВСИМВ(ПСТР(A1&"_0";МИН(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1&"_0123456789"));15);СТРОКА($1:$15)))
 
 
 
#9
06.06.2010 06:17:43
{quote}{login=nilem}{date=05.06.2010 02:00}{thema=}{post}Вот не самый универсальный, но вариант. В ячейку пишем =ТОЛЬКОЦИФРЫ(А1)  
Function ТОЛЬКОЦИФРЫ(ячейка As Range) As Long  
Dim i As Integer, Результат As String  
Dim Символ As String  
For i = 1 To Len(ячейка)  
   Символ = Mid(ячейка, i, 1)  
   If IsNumeric(Символ) Then  
       Результат = Результат & Символ    
   End If  
Next i  
ТОЛЬКОЦИФРЫ = Val(Результат)  
End Function{/post}{/quote}
 
 
 
#10
06.06.2010 06:20:15
{quote}{login=ZVI}{date=06.06.2010 03:19}{thema=Re: }{post}{quote}{login=ZVI}{date=06.06.2010 03:09}{thema=}{post}Вот так, пожалуй, даже лучше - если в тексте нет числа, то выдаст ноль:  
=ПРОСМОТР(99^99;--ЛЕВСИМВ(ПСТР(A1&"0";МИН(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1&"0123456789"));15);{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15})){/post}{/quote}  
Подправил для случая, когда число - в конце строки:  
=ПРОСМОТР(99^99;--ЛЕВСИМВ(ПСТР(A1&"_0";МИН(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1&"_0123456789"));15);{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15})){/post}{/quote}
 
 
 
#11
06.06.2010 06:25:15
ТОЛЬКОЦИФРЫ() - это пользовательская функция (макрос), который можно увидеть, если в post_129271.xls нажать Alt-F11
 
 
 
#12
06.06.2010 06:28:38
Формула на английском:  
=LOOKUP(2^64,--LEFT(MID(A1&"_0",MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"_0123456789")),15),{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15}))
 
 
 
#13
06.06.2010 07:03:30
Приложил на всякий случай пример. Формула отобразится по-русски в русской версии Excel, по-английски - в английской и т.п.
 
 
 
#14
06.06.2010 17:11:07
Сколько вариантов!  
Владимир, красиво, черт подери! Ну почему такие конструкции мне в голову не приходят? :( Нужно работать над собой!    
На пару символов короче:  
=ПРОСМОТР(9^16;--ПСТР(ПСТР(A1&0;МИН(НАЙТИ({1;2;3;4;5;6;7;8;9;0};A1&1234567890));15);1;СТРОКА($1:$15)))
 
 
 
#15
06.06.2010 17:18:37
Хотя..., зря убрал подчеркивание :)
 
 
 
#16
06.06.2010 17:45:22
{quote}{login=kim}{date=06.06.2010 05:11}{thema=}{post}Сколько вариантов!  
Владимир, красиво, черт подери! Ну почему такие конструкции мне в голову не приходят? :( Нужно работать над собой!    
На пару символов короче:  
=ПРОСМОТР(9^16;--ПСТР(ПСТР(A1&0;МИН(НАЙТИ({1;2;3;4;5;6;7;8;9;0};A1&1234567890));15);1;СТРОКА($1:$15))){/post}{/quote}  
Ну да, Игорь, такой вариант выдаст лишний ноль, если число - в конце строки  
т.е для ПИТЬЕВОЙ "ДАНОН" Персик-Маракуйя 290  
выдаст 2900  
У меня это тоже не сразу было отработано - см. выше :-)
 
 
 
#17
06.06.2010 17:59:59
Если "ДАНОН" на порядок больше - беда. А вот если такое с водкой - это за ошибку не считается.
 
 
 
#18
06.06.2010 18:20:19
{quote}{login=Юрий М}{date=06.06.2010 05:59}{thema=}{post}Если "ДАНОН" на порядок больше - беда. А вот если такое с водкой - это за ошибку не считается.{/post}{/quote}  
Типун Вам...
Я сам - дурнее всякого примера! ...
 
 
 
#19
06.06.2010 19:53:17
Ребята! А вопрос в догонку можно?  
Изменяется значение в ячейке и в формуле представленной ввиде текста меняется значение!  1,25 иземеняется на 30 (30 х 78,9 х 0,45 х 5)+20%  
И как текст типа (1,25 х 78,9 х 0,45 х 5)+20% заставить считать!
 
 
 
#20
06.06.2010 20:01:33
Знаю, но позориться не хочу. Тут такие ЗУБРЫ формулисты: ZVI, kim, KL, да еще и Юрий М,  что мне только хвост поджать...
Я сам - дурнее всякого примера! ...
 
 
 
#21
06.06.2010 20:05:54
Сергей, с каких это пор я формУлист? Да и далеко не зубр! Колитесь. Я токма если макросом...
 
 
 
#22
06.06.2010 20:09:33
А если немного попозорится?  
Очень нужно!
 
 
 
#23
06.06.2010 20:14:48
DON, макрофункция ВЫЧИСЛИТЬ() легко с этим справляется, если конечно правильно понял...
 
 
 
#24
06.06.2010 20:21:58
Скорее всего вы поняли правильно, чего немогу сказать о себе...  
макрофункция ВЫЧИСЛИТЬ() где живет???
 
 
 
#25
06.06.2010 20:24:31
{quote}{login=Юрий М}{date=06.06.2010 08:05}{thema=}{post}Сергей, с каких это пор я формУлист? Да и далеко не зубр! Колитесь. Я токма если макросом...{/post}{/quote}  
Я читаю форум. И видел как Вы с макросами... И в моем заявлении нет ничего, что противоречило бы утверждению: Юрий М - макрушник:-)  
То DON: Вам уже ответил спец.  
То kim: "(1,25 х 78,9 х 0,45 х 5)+20%" видимо не зря не стал позориться, мне показалось, что автор хочет это выражение в виде формулы.
Я сам - дурнее всякого примера! ...
 
 
 
#26
06.06.2010 20:26:55
Вот же тормоз! Читайте:  
И видел как Вы с формулами...
Я сам - дурнее всякого примера! ...
 
 
 
#27
06.06.2010 20:30:06
Вы правы на все 100% автор хочет это выражение в виде формулы.  
А то с макросами никак.
 
 
 
#28
06.06.2010 20:33:13
{quote}{login=The_Prist}{date=06.06.2010 08:17}{thema=}{post}- то недомакросы справятся.  
{/post}{/quote}  
А я об этом ни сном ни духом. Ибо в формулах..лых..ЛОХ!
Я сам - дурнее всякого примера! ...
 
 
 
#29
06.06.2010 20:36:25
{quote}{login=DON}{date=06.06.2010 08:30}{thema=Re: KuklP}{post}Вы правы на все 100% автор хочет это выражение в виде формулы.  
А то с макросами никак.{/post}{/quote}  
The_Prist дал полностью исчерпывающий ответ. И то, что я хотел написать - и то что умничка kim предложил. Так что я поступил правильно.
Я сам - дурнее всякого примера! ...
 
 
 
#30
06.06.2010 20:41:14
{quote}{login=KuklP}{date=06.06.2010 08:26}{thema=}{post}видел как Вы с формулами...{/post}{/quote}  
Поискал по Форуму. Действительно - оказывал помощь с формулами. Выглядело это так: = A1
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх