Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как из ячейки вытянуть только цифры в Офисе 2003?
 
#1
18.12.2015 10:49:32
Подскажите как можно вытянуть только цифровые значения. Пример во вложении.
«Всё гениальное просто» перефразировка афоризма Леонардо да Винчи
 
 
 
#2
18.12.2015 10:59:22
UDF в стандартный модуль
Код
Function OnlyDigit(cell As String) As Integer
   OnlyDigit = Left(Split(Trim(cell), "(")(1), Len(Split(Trim(cell), "(")(1)) - 1)
End Function
 
 
 
#3
18.12.2015 11:03:30
для данного примера
Код
=--ПСТР(A5;ПОИСК("(";A5)+1;ПОИСК(")";A5)-ПОИСК("(";A5)-1)
 
 
 
#4
18.12.2015 11:03:55
Вариант в файле
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
18.12.2015 11:04:22
Как оставить в ячейке только цифры или только текст?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#6
18.12.2015 11:12:52
Спасибо за ответы. Очень оперативно. Вопрос такой если в ячейке появляется такое значение
Алянс (ООО) (012547)
Цифры не вытягиваются
«Всё гениальное просто» перефразировка афоризма Леонардо да Винчи
 
 
 
#7
18.12.2015 11:22:43
Цитата
Demonik написал: Цифры не вытягиваются
естественно. не зря в правилах написано прикреплять файл максимально приближенный к оригиналу. мыже не знаем какие варианты у вас еще могут быть.
Изменено: V - 18.12.2015 12:26:24
 
 
 
#8
18.12.2015 12:16:02
Цитата
V написал:
естественно. не зря в правилах написано прикреплять файл максимально приближенный к оригиналу
Demonik
Цитата
только начал разбираться с вашим сайтом.
До Правил ещё не добрался )
 
 
 
#9
18.12.2015 12:44:47
Цитата
vikttur написал:
Demonik, на форуме с незнакомыми принято общаться на "Вы".
Ох и модераторы. Все то Вы критикуете 8) . А как же правила от модератора vikttur. Сами то не соблюдаете :).
И все равно за ответы спасибо.  
«Всё гениальное просто» перефразировка афоризма Леонардо да Винчи
 
 
 
#10
18.12.2015 12:50:00
А где я позволил себе фамильярность?
 
 
 
#11
18.12.2015 13:43:41
Цитата
Demonik написал:
А как же правила от модератора vikttur. Сами то не соблюдаете
А я вот и не должен соблюдать правила от модератора vikttur. Есть общие правила форума - их надо соблюдать. А в них так же написано кто модераторы. И модератор имеет право сделать Вам замечание. Например, призвать общаться вежливо. Что Вас не устраивает?
Скрытый текст
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#12
18.12.2015 18:45:56
добрый вечер,Demonik,попробуйте функцию zzz,выводящую цифры и yyy выводит текст,в файл-примере
 
Код
Function yyy$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "(.+)\("
     yyy = .Execute(t)(0).Submatches(0)
    End With
 End Function
Код
Function zzz%(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d+"
     zzz = .Execute(t)(0)
 End With
End Function
 
 
 
#13
19.12.2015 10:35:00
Интересный вариант. Спасибо. :)  
«Всё гениальное просто» перефразировка афоризма Леонардо да Винчи
 
 
 
Страницы: 1
Наверх