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

Вход

Регистрация

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

 

= Мир MS Excel/Откусить текст до определенного символа - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Откусить текст до определенного символа (Макросы/Sub)
Откусить текст до определенного символа
ant6729 Дата: Пятница, 06.04.2018, 09:16 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 434
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Всем привет!
Хочу понять, как циклом откусить кусок текста в

D:\Ведомости\Вася\Катя\Ира.xlsx

Чтобы получилось Ира

Пробовал разными тримами
Остановился на миде
Но прикол в том, что длина паза будет меняться и кусать надо будет разное количество символов
Откусить нужно до Ира
.xlsx я зареплесить смогу, в принципе.

Спасибо!
 
Ответить
СообщениеВсем привет!
Хочу понять, как циклом откусить кусок текста в

D:\Ведомости\Вася\Катя\Ира.xlsx

Чтобы получилось Ира

Пробовал разными тримами
Остановился на миде
Но прикол в том, что длина паза будет меняться и кусать надо будет разное количество символов
Откусить нужно до Ира
.xlsx я зареплесить смогу, в принципе.

Спасибо!

Автор - ant6729
Дата добавления - 06.04.2018 в 09:16
SLAVICK Дата: Пятница, 06.04.2018, 09:22 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2183
Репутация: 735 ±
Замечаний: 0% ±

2007,2010,2013,2016
Остановился на миде

на миде так на миде, только циклов никаких не нужно:
[vba]
Код
Sub d()
s = "D:\Ведомости\Вася\Катя\Ира.xlsx"
sNew = Mid(s, InStrRev(s, "\") + 1, InStrRev(s, ".") - InStrRev(s, "\") - 1)
End Sub
[/vba]


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Остановился на миде

на миде так на миде, только циклов никаких не нужно:
[vba]
Код
Sub d()
s = "D:\Ведомости\Вася\Катя\Ира.xlsx"
sNew = Mid(s, InStrRev(s, "\") + 1, InStrRev(s, ".") - InStrRev(s, "\") - 1)
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 06.04.2018 в 09:22
ant6729 Дата: Пятница, 06.04.2018, 09:25 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 434
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
) СПАСИБО
Надо подкачаться по строкам... мне
 
Ответить
Сообщение) СПАСИБО
Надо подкачаться по строкам... мне

Автор - ant6729
Дата добавления - 06.04.2018 в 09:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Откусить текст до определенного символа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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