Страницы: 1
RSS
Извлечь из текста цифры (формула или макрос?)
 
Добрый день всем.  
Простенькая задача, вроде, но я никак не оформлю решение.  
Есть строка "фыц2ап2п36р4олдп7е" из нее нужно получить только цифры то есть: 223647. Пример не выкладываю т.к. помоему условие налицо.
Редко но метко ...
 
{quote}{login=GIG_ant}{date=26.10.2010 09:39}{thema=Извлечь из текста цифры (формула или макрос?)}{post}Добрый день всем.  
Простенькая задача, вроде, но я никак не оформлю решение.  
Есть строка "фыц2ап2п36р4олдп7е" из нее нужно получить только цифры то есть: 223647. Пример не выкладываю т.к. помоему условие налицо.{/post}{/quote}  
 
нечто среднее :)  
Function Num(Текст As String) As Long  
   For n = 1 To Len(Текст)  
       If Mid(Текст, n, 1) Like "#" Then Num = Num & Mid(Текст, n, 1)  
   Next n  
End Function
 
Или так.  
 
29 Кб
 
UDF вероятно не поможет... Было уже, буквально вчера:  
http://www.planetaexcel.ru/forum.php?thread_id=20480  
:)
 
{quote}{login=GIG_ant}{date=26.10.2010 09:39}{thema=Извлечь из текста цифры (формула или макрос?)}{post}Пример не выкладываю т.к. помоему условие налицо.{/post}{/quote}Но пример всё-же лучше выкладывать, что б нам его не рисовать :)
 
{quote}{login=Hugo}{date=26.10.2010 09:50}{thema=}{post}UDF вероятно не поможет... Было уже, буквально вчера:  
http://www.planetaexcel.ru/forum.php?thread_id=20480  
:){/post}{/quote}  
 
тогда я вобще не понял что нужно - вопрос тот же, автор тоже, решений в той теме много...
 
{quote}{login=Serge 007}{date=26.10.2010 09:50}{thema=Re: Извлечь из текста цифры (формула или макрос?)}{post}{quote}{login=GIG_ant}{date=26.10.2010 09:39}{thema=Извлечь из текста цифры (формула или макрос?)}{post}Пример не выкладываю т.к. помоему условие налицо.{/post}{/quote}Но пример всё-же лучше выкладывать, что б нам его не рисовать :){/post}{/quote}  
 
По поводу примера, согласен. Насчет того что я вчера задал вопрос как вам кажется похожий на этот так вы ошибаетесь. Во вчерашней теме буквы в строке были слева а цифры справа, а сегодня появилась потребность повытаскивать цифры из строки где все в перемешку (помоему это меняет суть вопроса).  
С макросом понятно. А формулу еще такую не придумали ? Я в своем решении дошел до массива цифр выделеных из строки, а сцепить их воедино никак неполучается. Выкладываю пример.
Редко но метко ...
 
{quote}{login=webley}{date=26.10.2010 09:53}{thema=Re: }{post}{quote}{login=Hugo}{date=26.10.2010 09:50}{thema=}{post}UDF вероятно не поможет... Было уже, буквально вчера:  
http://www.planetaexcel.ru/forum.php?thread_id=20480  
:){/post}{/quote}  
 
тогда я вобще не понял что нужно - вопрос тот же, автор тоже, решений в той теме много...{/post}{/quote}  
Там надо было Отделить формулой текст от чисел,  
здесь наоборот :)
 
Я в той теме выложил UDF на оба случая.
 
{quote}{login=GIG_ant}{date=26.10.2010 09:39}{thema=Извлечь из текста цифры (формула или макрос?)}{post}Добрый день всем.  
Простенькая задача, вроде, но я никак не оформлю решение.  
Есть строка "фыц2ап2п36р4олдп7е" из нее нужно получить только цифры то есть: 223647. Пример не выкладываю т.к. помоему условие налицо.{/post}{/quote}Эта задача легко решается в Worde.
 
Там надо было Отделить формулой текст от чисел,  
здесь наоборот :){/post}{/quote}  
 
Да нет же, там была строка содержащая некоторое количество буков (подряд!) и цифер (тоже подряд!) а тут они перемешались! Хотя над шуткой сам посмеялся ;-)
Редко но метко ...
 
{quote}{login=GIG_ant}{date=26.10.2010 10:11}{thema=Re: Re: Re: }{post}  
Да нет же, там была строка содержащая некоторое количество буков (подряд!) и цифер (тоже подряд!) а тут они перемешались! Хотя над шуткой сам посмеялся ;-){/post}{/quote}Ну дык решение-то подошло?
 
{quote}{login=}{date=26.10.2010 10:11}{thema=Re: Извлечь из текста цифры (формула или макрос?)}{post}{quote}{login=GIG_ant}{date=26.10.2010 09:39}{thema=Извлечь из текста цифры (формула или макрос?)}{post}Добрый день всем.  
Простенькая задача, вроде, но я никак не оформлю решение.  
Есть строка "фыц2ап2п36р4олдп7е" из нее нужно получить только цифры то есть: 223647. Пример не выкладываю т.к. помоему условие налицо.{/post}{/quote}Эта задача легко решается в Worde.{/post}{/quote}  
 
Насчет ворда прикольно ! Я честно говоря уже и подзабыл что в Оффисе кроме екселя есче есть удобные программы.
Редко но метко ...
 
{quote}{login=Serge 007}{date=26.10.2010 10:13}{thema=Re: Re: Re: Re: }{post}{quote}{login=GIG_ant}{date=26.10.2010 10:11}{thema=Re: Re: Re: }{post}  
Да нет же, там была строка содержащая некоторое количество буков (подряд!) и цифер (тоже подряд!) а тут они перемешались! Хотя над шуткой сам посмеялся ;-){/post}{/quote}Ну дык решение-то подошло?{/post}{/quote}  
 
да, спасибо, буду наверно макросом крыжить. Не серчайте если вопросы показались одинаковыми, по сути они всетаки разные.
Редко но метко ...
 
Для UDF они по сути одинаковые - одна формула перебирает всё и вытыгивает, что ей сказали. Вторая делает то же самое :)
 
{quote}{login=Hugo}{date=26.10.2010 10:48}{thema=}{post}Для UDF они по сути одинаковые - одна формула перебирает всё и вытыгивает, что ей сказали. Вторая делает то же самое :){/post}{/quote}  
 
Спасибо за помощь. Тема раскрыта
Редко но метко ...
Страницы: 1
Читают тему
Наверх