Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.05.2008, 08:40   #11
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
Лампочка Re: Но если между цифр стоит текст...

Цитата:
Сообщение от ZORRO2005 Посмотреть сообщение
то
А вот и нет Например:

1. Выделить B1.

2. Определить (локализовав имена функций и константы FALSE, конечно) в указанной последовательности имена:
СтИнд =ROW(INDIRECT("1:"&LEN(!A1)))
СтСим =MID(!A1,СтИнд,1)
ЕНеЦифра =ISERR(1*СтСим)
ЕЦифра =NOT(ЕНеЦифра)
ПозПервЦ =MATCH(FALSE,ЕНеЦифра,0)
ПозПослЦ =MAX(СтИнд*ЕЦифра)
3. В одной строке с ячейкой (напр., C2) разбираемого текста в ячейку нужного столбца (напр., F) ввести
c2: тел. 321-5678 доб.(тон) 9-87/65, по раб. дням
f2: {=MID(C2;ПозПервЦ;ПозПослЦ-ПозПервЦ+1)}

4. Насладиться результатом.

* * *

А можно и не связываться с именами (между нами говоря, тёмное это дело), а попробовать загнать всё в одну формулу. Тогда восклицательный знак (как в значениях имён СтСим и СтИнд) не нужен. Но мне уже лень

Последний раз редактировалось дмидми; 08.05.2008 в 08:44.
дмидми вне форума
Старый 09.05.2008, 01:35   #12
ZORRO2005
Форумчанин
 
Аватар для ZORRO2005
 
Регистрация: 26.11.2006
Сообщений: 584
По умолчанию

дмидми
Вот ваша формула без имён:
Код:
=ПСТР(A1;ПОИСКПОЗ(ЛОЖЬ;ЕОШИБКА(1*ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1));0);МАКС(СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)))*НЕ(ЕОШИБКА(1*ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))))-ПОИСКПОЗ(ЛОЖЬ;ЕОШИБКА(1*ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1));0)+1)
Но я имел в виду, как оставить только цифры без текста.
В вашем примере это было бы:321567898765
Пока такого решения без VBA не нашёл.
Давайте найдем вместе.

Последний раз редактировалось ZORRO2005; 09.05.2008 в 02:37.
ZORRO2005 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти адрес ячейки... Bu$ter Microsoft Office Excel 7 11.06.2008 14:52
Логотип сылкой на первую страницу... Vovchik HTML и CSS 9 08.04.2008 22:42
двузначные числа которые при умножении на 3 будут заканчиваться на цифру 4 Ases_51 Паскаль, Turbo Pascal, PascalABC.NET 4 13.01.2008 11:37
Колонтитул, или надпись - поместить только на первую страницу Vasuha Microsoft Office Excel 2 28.11.2007 16:23
DBLookupComboBox на первую строчку Inbox БД в Delphi 7 29.10.2007 13:26