|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
|
Опции темы | Поиск в этой теме |
11.03.2008, 00:42
|
#1 |
|
Регистрация: 10.03.2008
Сообщений: 7
|
Функции НАЙТИ и ПОИСК
Данные функции выглядет таким оброзом.
=НАЙТИ(искомый_текст;просматриваемы й_текст;нач_позиция) =ПОИСК(искомый_текст;просматриваемы й_текст;нач_позиция) смысл этих функций знаете все наверное. обясните пожалуста, можно ли чтоб "нач_позиция" поменять какнибудь? чтоб текст просматривался справо на лево. если знаете как нада написать данную функцию напищите пожалуста... заранее спасибо. |
|
|
11.03.2008, 16:17
|
#2 |
|
Форумчанин
Регистрация: 26.11.2006
Сообщений: 584
|
ReverseText
Посмотрите вложение:
|
|
|
|
11.03.2008, 18:28
|
#3 |
|
Регистрация: 10.03.2008
Сообщений: 7
|
когда открываю данный документ все расчитано правильно.
но если менять чтонибудь в нем формула уже не может понять функцию ReverseText. у меня стоит 2003й офис (русский) можно как нибудь по другому перевернуть текст? |
|
|
|
11.03.2008, 18:57
|
#4 |
|
Форумчанин
Регистрация: 26.11.2006
Сообщений: 584
|
Надо код этой функции переносить тоже:
ALT+F11 и Module1 перетащить в ваш файл. По другому пробовал через ПСТР, но не получилось |
|
|
|
11.03.2008, 21:02
|
#5 |
|
Регистрация: 10.03.2008
Сообщений: 7
|
СПАСИБО ОГРОМНОЕ...
ВСЕ ПОЛУЧИЛОСЬ... |
|
|
|
12.03.2008, 11:06
|
#6 |
|
Форумчанин
Регистрация: 26.11.2006
Сообщений: 584
|
Способ №2
c_zurab
Есть способ без VBA: |
|
|
|
17.03.2008, 11:20
|
#7 |
|
Регистрация: 17.03.2008
Сообщений: 5
|
Господа, будьте добры....
Расскажите для тупых, как заставить работать фразу "ReverseText" в функциях: =НАЙТИ(искомый_текст;просматриваемы й_текст;нач_поз иция) =ПОИСК(искомый_текст;просматриваемы й_текст;нач_поз иция) не могу осилить, а надо очень... Если конкретно, очень часто надо выдергивать номера после последнего пробела в значениях ячейки чтото типа: Бусинки овальные мягкие, зеленые (флуо) d 4мм 25шт 49-01804 И надо находить последний пробел.... ОГРОМНОЕ СПАСИБО, ВСЕМ ОТКЛИКНУВШИМСЯ..... Последний раз редактировалось kra183; 17.03.2008 в 11:31. |
|
|
|
20.03.2008, 21:22
|
#8 | |
|
Форумчанин
Регистрация: 26.11.2006
Сообщений: 584
|
1 вариант:
Последний пробел: {МАКС(ЕСЛИ(ЕОШ(НАЙТИ(" ";A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1))) ));"";НАЙТИ(" ";A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1))) )))} Выдернуть номер: {=ПРАВСИМВ(A1;ДЛСТР(A1)-МАКС(ЕСЛИ(ЕОШ(НАЙТИ(" ";A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1))) ));"";НАЙТИ(" ";A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1))) ))))} 2 вариант: Последний пробел: {=ДЛСТР(A1)+1-ПОИСКПОЗ(" ";ПСТР(A1;ДЛСТР(A1)+1-СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1);0 )} Выдернуть номер: {=ПРАВСИМВ(A1;ДЛСТР(A1)-(ДЛСТР(A1)+1-ПОИСКПОЗ(" ";ПСТР(A1;ДЛСТР(A1)+1-СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1);0 )))} Пример выше: Цитата:
Последний раз редактировалось ZORRO2005; 20.03.2008 в 22:04. |
|
|
|
|
25.03.2008, 14:14
|
#9 |
|
Регистрация: 17.03.2008
Сообщений: 5
|
Уважаемый ZORRO2005.
Спасибо огромное.. И еще , может не в тему, да простят господа модераторы, не подскажите, как сделать, чтобы модули были доступны всем файлам EXCEL.. Ну чайники мы полные... Заранее, огромное спасибо.. С уважением. |
|
|
|
22.04.2008, 13:36
|
#10 |
|
Пользователь
Регистрация: 21.01.2008
Сообщений: 98
|
kra183
Как чайник чайнику подскажу: нажимаем ALT+F11 и в окне "Project-VBAProject" перетягиваем мышью модуль с нужным макросом в книгу "Personal.xls" |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Поиск точного значения с помощью функции БИЗВЛЕЧЬ | THE_ENGINEER | Microsoft Office Excel | 8 | 23.07.2008 11:37 |
| Где найти поиск решения? | Красавчег))) | Microsoft Office Excel | 3 | 10.05.2008 15:02 |
| Функции | furian | Общие вопросы C/C++ | 3 | 18.12.2007 12:48 |
| Как осуществить поиск сначала по всей БД, а затем из найденных таблиц найти по полю Date нужные записи? | kayman | БД в Delphi | 1 | 21.09.2007 15:56 |
