Выводить в ячейку все символы стоящие после Слэша
Jelvis
Дата: Четверг, 07.03.2019, 15:16 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Добрый день! Подскажите пожалуйста, как из ячейки А вывести символы в ячейку B которые стоят после фразы StudentsCards\ Ячейка А: [vba]Код
C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm
[/vba] нужно в ячейку B перемещать только: [vba]Код
Гадаев Демид5Август2008.xlsm
[/vba]
Добрый день! Подскажите пожалуйста, как из ячейки А вывести символы в ячейку B которые стоят после фразы StudentsCards\ Ячейка А: [vba]Код
C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm
[/vba] нужно в ячейку B перемещать только: [vba]Код
Гадаев Демид5Август2008.xlsm
[/vba] Jelvis
Ответить
Сообщение Добрый день! Подскажите пожалуйста, как из ячейки А вывести символы в ячейку B которые стоят после фразы StudentsCards\ Ячейка А: [vba]Код
C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm
[/vba] нужно в ячейку B перемещать только: [vba]Код
Гадаев Демид5Август2008.xlsm
[/vba] Автор - Jelvis Дата добавления - 07.03.2019 в 15:16
Che79
Дата: Четверг, 07.03.2019, 15:21 |
Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1649
Репутация:
306
±
Замечаний:
0% ±
2013 Win, 365 Mac
Ctrl+H - Найти: *StudentsCards\ Заменить на: оставляете пустым Заменить всё. так?
Ctrl+H - Найти: *StudentsCards\ Заменить на: оставляете пустым Заменить всё. так? Che79
Делай нормально и будет нормально!
Ответить
Сообщение Ctrl+H - Найти: *StudentsCards\ Заменить на: оставляете пустым Заменить всё. так? Автор - Che79 Дата добавления - 07.03.2019 в 15:21
bmv98rus
Дата: Четверг, 07.03.2019, 15:27 |
Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4098
Репутация:
766
±
Замечаний:
0% ±
Excel 2013/2016
как вариант, массивнаяКод
=MID(B9;MAX(IFERROR(FIND(CHAR(9);SUBSTITUTE(B9;"\";CHAR(9);ROW(A1:A99)));1))+1;256)
как вариант, массивнаяКод
=MID(B9;MAX(IFERROR(FIND(CHAR(9);SUBSTITUTE(B9;"\";CHAR(9);ROW(A1:A99)));1))+1;256)
bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Сообщение отредактировал bmv98rus - Четверг, 07.03.2019, 15:27
Ответить
Сообщение как вариант, массивнаяКод
=MID(B9;MAX(IFERROR(FIND(CHAR(9);SUBSTITUTE(B9;"\";CHAR(9);ROW(A1:A99)));1))+1;256)
Автор - bmv98rus Дата добавления - 07.03.2019 в 15:27
sboy
Дата: Четверг, 07.03.2019, 15:28 |
Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Код
=СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A1;"\";ПОВТОР(" ";99));99))
Код
=СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A1;"\";ПОВТОР(" ";99));99))
sboy
Яндекс: 410016850021169
Ответить
Сообщение Код
=СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A1;"\";ПОВТОР(" ";99));99))
Автор - sboy Дата добавления - 07.03.2019 в 15:28
bmv98rus
Дата: Четверг, 07.03.2019, 15:31 |
Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4098
Репутация:
766
±
Замечаний:
0% ±
Excel 2013/2016
sboy , и то верно, меня пробел в самом имени сбил :-) разве что на всякий случай 99 на побольше сделать, из расчета на максимальную длину 260.
sboy , и то верно, меня пробел в самом имени сбил :-) разве что на всякий случай 99 на побольше сделать, из расчета на максимальную длину 260.bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение sboy , и то верно, меня пробел в самом имени сбил :-) разве что на всякий случай 99 на побольше сделать, из расчета на максимальную длину 260.Автор - bmv98rus Дата добавления - 07.03.2019 в 15:31
Jelvis
Дата: Четверг, 07.03.2019, 15:37 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Дело в том что этот путь будет постоянно разным, на каждом пк, соответственно, единственное что в пути будет постоянным это папка по умолчанию \StudentsCards\*ФИОденьмесяцгод.xlsm, поэтому и необходимо их этого пути вынести в другую ячейку только *ФИОденьмесяцгод.xlsm, чтобы в последующем с этим файлом работать и к нему обращаться
Дело в том что этот путь будет постоянно разным, на каждом пк, соответственно, единственное что в пути будет постоянным это папка по умолчанию \StudentsCards\*ФИОденьмесяцгод.xlsm, поэтому и необходимо их этого пути вынести в другую ячейку только *ФИОденьмесяцгод.xlsm, чтобы в последующем с этим файлом работать и к нему обращаться Jelvis
Ответить
Сообщение Дело в том что этот путь будет постоянно разным, на каждом пк, соответственно, единственное что в пути будет постоянным это папка по умолчанию \StudentsCards\*ФИОденьмесяцгод.xlsm, поэтому и необходимо их этого пути вынести в другую ячейку только *ФИОденьмесяцгод.xlsm, чтобы в последующем с этим файлом работать и к нему обращаться Автор - Jelvis Дата добавления - 07.03.2019 в 15:37
Jelvis
Дата: Четверг, 07.03.2019, 15:41 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
sboy, все чётко) Спасибо. Осталось сжать пробелы, но это сделает сам vba)
sboy, все чётко) Спасибо. Осталось сжать пробелы, но это сделает сам vba) Jelvis
Ответить
Сообщение sboy, все чётко) Спасибо. Осталось сжать пробелы, но это сделает сам vba) Автор - Jelvis Дата добавления - 07.03.2019 в 15:41
StoTisteg
Дата: Четверг, 07.03.2019, 15:58 |
Сообщение № 8
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
Дык что ж Вы сразу про ВБА не сказали? [vba]Код
Function FNam(ByRef Rng As Range) Dim Arr() As String Arr = Split(Rng.Value, "\", -1, vbTextCompare) FNam = Arr(UBound(Arr)) End Function
[/vba]
Дык что ж Вы сразу про ВБА не сказали? [vba]Код
Function FNam(ByRef Rng As Range) Dim Arr() As String Arr = Split(Rng.Value, "\", -1, vbTextCompare) FNam = Arr(UBound(Arr)) End Function
[/vba]StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение Дык что ж Вы сразу про ВБА не сказали? [vba]Код
Function FNam(ByRef Rng As Range) Dim Arr() As String Arr = Split(Rng.Value, "\", -1, vbTextCompare) FNam = Arr(UBound(Arr)) End Function
[/vba]Автор - StoTisteg Дата добавления - 07.03.2019 в 15:58
bmv98rus
Дата: Четверг, 07.03.2019, 16:00 |
Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4098
Репутация:
766
±
Замечаний:
0% ±
Excel 2013/2016
сразу надо писать что это VBA там все проще [vba]Код
mid("C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm",instrrev("C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm","\")+1,256)
[/vba]
сразу надо писать что это VBA там все проще [vba]Код
mid("C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm",instrrev("C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm","\")+1,256)
[/vba]bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение сразу надо писать что это VBA там все проще [vba]Код
mid("C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm",instrrev("C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm","\")+1,256)
[/vba]Автор - bmv98rus Дата добавления - 07.03.2019 в 16:00
StoTisteg
Дата: Четверг, 07.03.2019, 16:13 |
Сообщение № 10
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
А если файл точно существует, то просто [vba]Код
Dir("C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm")
[/vba]
А если файл точно существует, то просто [vba]Код
Dir("C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm")
[/vba] StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Сообщение отредактировал StoTisteg - Четверг, 07.03.2019, 16:14
Ответить
Сообщение А если файл точно существует, то просто [vba]Код
Dir("C:\Users\HOME\Desktop\Диагностика Genico Kids (c) 1\StudentsCards\Гадаев Демид5Август2008.xlsm")
[/vba] Автор - StoTisteg Дата добавления - 07.03.2019 в 16:13