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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись части строки до первой запятой в целевую ячейку (Макросы/Sub)
Запись части строки до первой запятой в целевую ячейку
ant6729 Дата: Четверг, 27.04.2017, 22:12 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 0 ±
Замечаний: 60% ±

Excel 2010
Добрый вечер!
Подскажите, пожалуйста, если в A1 имеется значение "уч. Вася, Петя, Маша"
Как сделать так, чтобы в, например, в A2 записывалось только "уч. Вася" ?
Решение на основании (текст по столбцам) не интересно
Возможно ли с помощью InStr как - то это решить? Ну, или как - то иначе на уровне VBA...
Всем спасибо за возможную помощь.
 
Ответить
СообщениеДобрый вечер!
Подскажите, пожалуйста, если в A1 имеется значение "уч. Вася, Петя, Маша"
Как сделать так, чтобы в, например, в A2 записывалось только "уч. Вася" ?
Решение на основании (текст по столбцам) не интересно
Возможно ли с помощью InStr как - то это решить? Ну, или как - то иначе на уровне VBA...
Всем спасибо за возможную помощь.

Автор - ant6729
Дата добавления - 27.04.2017 в 22:12
Kuzmich Дата: Четверг, 27.04.2017, 22:35 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 260
Репутация: 47 ±
Замечаний: 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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 10996
Репутация: 2455 ±
Замечаний: 0% ±

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Например
[vba]
Код
[b1] = Split([a1], ",")(0)
[/vba]

Автор - Pelena
Дата добавления - 27.04.2017 в 22:36
ant6729 Дата: Четверг, 27.04.2017, 23:22 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 0 ±
Замечаний: 60% ±

Excel 2010
Спасибо,
Kuzmich

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

Спасибо,
Pelena

Автор - ant6729
Дата добавления - 27.04.2017 в 23:22
RAN Дата: Четверг, 27.04.2017, 23:27 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4419
Репутация: 872 ±
Замечаний: 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 37 ±
Замечаний: 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(34Kb)
 
Ответить
Сообщение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 из 11
Поиск:

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