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

Вход

Регистрация

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

 

= Мир MS Excel/Запись части строки до первой запятой в целевую ячейку - Мир MS Excel

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

Excel 2010
Добрый вечер!
Подскажите, пожалуйста, если в A1 имеется значение "уч. Вася, Петя, Маша"
Как сделать так, чтобы в, например, в A2 записывалось только "уч. Вася" ?
Решение на основании (текст по столбцам) не интересно
Возможно ли с помощью InStr как - то это решить? Ну, или как - то иначе на уровне VBA...
Всем спасибо за возможную помощь.
 
Ответить
СообщениеДобрый вечер!
Подскажите, пожалуйста, если в A1 имеется значение "уч. Вася, Петя, Маша"
Как сделать так, чтобы в, например, в A2 записывалось только "уч. Вася" ?
Решение на основании (текст по столбцам) не интересно
Возможно ли с помощью InStr как - то это решить? Ну, или как - то иначе на уровне VBA...
Всем спасибо за возможную помощь.
Автор - ant6729
Дата добавления - 27.04.2017 в 22:12
Kuzmich Дата: Четверг, 27.04.2017, 22:35 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 717
Репутация: 159 ±
Замечаний: 0% ±

Excel 2003
UDF
[vba]
Код
Function iFirst(cell As String) As String
  iFirst = Split(cell, ",")(0)
End Function
[/vba]
 
Ответить
СообщениеUDF
[vba]
Код
Function iFirst(cell As String) As String
  iFirst = Split(cell, ",")(0)
End Function
[/vba]
Автор - Kuzmich
Дата добавления - 27.04.2017 в 22:35
Pelena Дата: Четверг, 27.04.2017, 22:36 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Например
[vba]
Код
[b1] = Split([a1], ",")(0)
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Например
[vba]
Код
[b1] = Split([a1], ",")(0)
[/vba]
Автор - Pelena
Дата добавления - 27.04.2017 в 22:36
ant6729 Дата: Четверг, 27.04.2017, 23:22 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Спасибо,
Kuzmich

Спасибо,
Pelena
 
Ответить
СообщениеСпасибо,
Kuzmich

Спасибо,
Pelena
Автор - ant6729
Дата добавления - 27.04.2017 в 23:22
RAN Дата: Четверг, 27.04.2017, 23:27 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
До первой запятой
[vba]
Код
Sub q()
    s = "sss,aaa"
    a = Split(s, ",", 2)(0)
    aa = Left$(s, InStr(s, ",") - 1)
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДо первой запятой
[vba]
Код
Sub q()
    s = "sss,aaa"
    a = Split(s, ",", 2)(0)
    aa = Left$(s, InStr(s, ",") - 1)
End Sub
[/vba]
Автор - RAN
Дата добавления - 27.04.2017 в 23:27
sv2014 Дата: Пятница, 28.04.2017, 06:12 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 0% ±

Excel 2013
ant6729, ещё вариант функции в C1

[vba]
Код
Function vvv$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "^[^,]+"
    vvv = .Execute(t)(0)
End With
End Function
[/vba]
К сообщению приложен файл: example_28_04_2.xls (34.5 Kb)
 
Ответить
Сообщениеant6729, ещё вариант функции в C1

[vba]
Код
Function vvv$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "^[^,]+"
    vvv = .Execute(t)(0)
End With
End Function
[/vba]
Автор - sv2014
Дата добавления - 28.04.2017 в 06:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись части строки до первой запятой в целевую ячейку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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