Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление текста в ячейке до определенного символа. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление текста в ячейке до определенного символа. (Формулы/Formulas)
Удаление текста в ячейке до определенного символа.
bosse-sl Дата: Суббота, 14.02.2015, 19:20 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

Необходимо в определенной ячейке (A13) удалить текст до символа "№" и следующего за ним пробела
Текст в ячейке: Заявка № 111; Заявки № 112-113
Через формулу получилось -
Код
=ПСТР(A13;ПОИСК("№";A13)+2;150)


Но нужно сделать через макрос


Сообщение отредактировал Serge_007 - Суббота, 14.02.2015, 19:27
 
Ответить
СообщениеНеобходимо в определенной ячейке (A13) удалить текст до символа "№" и следующего за ним пробела
Текст в ячейке: Заявка № 111; Заявки № 112-113
Через формулу получилось -
Код
=ПСТР(A13;ПОИСК("№";A13)+2;150)


Но нужно сделать через макрос
Автор - bosse-sl
Дата добавления - 14.02.2015 в 19:20
buchlotnik Дата: Суббота, 14.02.2015, 19:23 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
bosse-sl, можно и через макрос B) , только файлик приложите, в котором играться, а то модераторы будут недовольны (впрочем, я тоже)
 
Ответить
Сообщениеbosse-sl, можно и через макрос B) , только файлик приложите, в котором играться, а то модераторы будут недовольны (впрочем, я тоже)
Автор - buchlotnik
Дата добавления - 14.02.2015 в 19:23
bosse-sl Дата: Суббота, 14.02.2015, 19:29 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

Там нужно только из одной ячейки, а текст как и писал ЗАЯВКА № 111 или ЗАЯВКИ № 112-113
К сообщению приложен файл: 0799780.xls (15.5 Kb) · 2247375.xls (15.5 Kb)
 
Ответить
СообщениеТам нужно только из одной ячейки, а текст как и писал ЗАЯВКА № 111 или ЗАЯВКИ № 112-113
Автор - bosse-sl
Дата добавления - 14.02.2015 в 19:29
Serge_007 Дата: Суббота, 14.02.2015, 19:34 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата bosse-sl, 14.02.2015 в 19:20, в сообщении № 1
Необходимо в определенной ячейке (A13)
Цитата bosse-sl, 14.02.2015 в 19:20, в сообщении № 1
нужно сделать через макрос
Вам нужен макрос для обработки ОДНОЙ ЯЧЕЙКИ?!
Тут и формулы-то много, вручную гораздо быстрее сделать чем ее писать...

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата bosse-sl, 14.02.2015 в 19:20, в сообщении № 1
Необходимо в определенной ячейке (A13)
Цитата bosse-sl, 14.02.2015 в 19:20, в сообщении № 1
нужно сделать через макрос
Вам нужен макрос для обработки ОДНОЙ ЯЧЕЙКИ?!
Тут и формулы-то много, вручную гораздо быстрее сделать чем ее писать...
Автор - Serge_007
Дата добавления - 14.02.2015 в 19:34
bosse-sl Дата: Суббота, 14.02.2015, 19:37 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

Простите Сергей.
Для одного раза сделал бы, но это будет частью другого макроса и будет повторяться по несколько раз (десятков раз) в день.
Заранее спасибо
 
Ответить
СообщениеПростите Сергей.
Для одного раза сделал бы, но это будет частью другого макроса и будет повторяться по несколько раз (десятков раз) в день.
Заранее спасибо
Автор - bosse-sl
Дата добавления - 14.02.2015 в 19:37
buchlotnik Дата: Суббота, 14.02.2015, 19:51 | Сообщение № 6
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Собственно, ПОИСК = InStr, ПСТР я бы заменил на ПРАВСИМВ, т.е. Right. Для передачи из A13 в B13 код такой:[vba]
Код
Sub trimmer()
     Dim i%
     i = InStr(1, [a13].Value, "№", vbTextCompare) + 2
     [b13].Value = Right([a13].Value, Len([a13].Value) - i + 1)
End Sub
[/vba]
К сообщению приложен файл: 2633296.xls (35.5 Kb)
 
Ответить
СообщениеСобственно, ПОИСК = InStr, ПСТР я бы заменил на ПРАВСИМВ, т.е. Right. Для передачи из A13 в B13 код такой:[vba]
Код
Sub trimmer()
     Dim i%
     i = InStr(1, [a13].Value, "№", vbTextCompare) + 2
     [b13].Value = Right([a13].Value, Len([a13].Value) - i + 1)
End Sub
[/vba]
Автор - buchlotnik
Дата добавления - 14.02.2015 в 19:51
Serge_007 Дата: Суббота, 14.02.2015, 20:06 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата bosse-sl, 14.02.2015 в 19:37, в сообщении № 5
это будет частью другого макроса
[vba]
Код
[a13] = Mid([a13], Application.WorksheetFunction.Find("№ ", [a13]) + 2, Len([a13]))
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата bosse-sl, 14.02.2015 в 19:37, в сообщении № 5
это будет частью другого макроса
[vba]
Код
[a13] = Mid([a13], Application.WorksheetFunction.Find("№ ", [a13]) + 2, Len([a13]))
[/vba]
Автор - Serge_007
Дата добавления - 14.02.2015 в 20:06
bosse-sl Дата: Суббота, 14.02.2015, 20:13 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

Спасибо
buchlotnik почему то Ваш работает
А вот Сергея ругается Type mismatch подозреваю что на WorksheetFunction пробовал в другом месте, у меня Excel 2003 может из-за этого, но всё-равно спасибо
 
Ответить
СообщениеСпасибо
buchlotnik почему то Ваш работает
А вот Сергея ругается Type mismatch подозреваю что на WorksheetFunction пробовал в другом месте, у меня Excel 2003 может из-за этого, но всё-равно спасибо
Автор - bosse-sl
Дата добавления - 14.02.2015 в 20:13
Serge_007 Дата: Суббота, 14.02.2015, 20:15 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата bosse-sl, 14.02.2015 в 20:13, в сообщении № 8
у меня Excel 2003 может из-за этого
Нет, из-за этого не будет ошибки

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата bosse-sl, 14.02.2015 в 20:13, в сообщении № 8
у меня Excel 2003 может из-за этого
Нет, из-за этого не будет ошибки
Автор - Serge_007
Дата добавления - 14.02.2015 в 20:15
bosse-sl Дата: Суббота, 14.02.2015, 20:20 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

Простите Сергей зря наговаривал разобрался, не ту переменную использовал вместо, было две одна - String , другая -Integer
Приношу извинения.

[offtop]Подскажите как закрыть тему?


Сообщение отредактировал bosse-sl - Суббота, 14.02.2015, 20:21
 
Ответить
СообщениеПростите Сергей зря наговаривал разобрался, не ту переменную использовал вместо, было две одна - String , другая -Integer
Приношу извинения.

[offtop]Подскажите как закрыть тему?
Автор - bosse-sl
Дата добавления - 14.02.2015 в 20:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление текста в ячейке до определенного символа. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!