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

Вход

Регистрация

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

 

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

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

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

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

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

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

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

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

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

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

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

2019
Цитата ant6729, 06.04.2018 в 09:16, в сообщении № 1 ()
Остановился на миде

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

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата ant6729, 06.04.2018 в 09:16, в сообщении № 1 ()
Остановился на миде

на миде так на миде, только циклов никаких не нужно:
[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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

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

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