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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск ячеек с учётом регистра. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск ячеек с учётом регистра. (Формулы/Formulas)
Поиск ячеек с учётом регистра.
Jingo Дата: Четверг, 31.05.2018, 13:41 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
Уважаемые, добрый день!

На основе ячеек первого столбца надо вывести во второй столбец копии ячеек первого столбца, но только в случае, если в ячейке есть набор символов, состоящих из написанных слитно трёх последовательных символов: Большая буква, маленькая буква, маленькая буква.

Пример прикрепил. Заранее спасибо!
К сообщению приложен файл: 4436677.xls(18.0 Kb)


Сообщение отредактировал Jingo - Четверг, 31.05.2018, 13:52
 
Ответить
СообщениеУважаемые, добрый день!

На основе ячеек первого столбца надо вывести во второй столбец копии ячеек первого столбца, но только в случае, если в ячейке есть набор символов, состоящих из написанных слитно трёх последовательных символов: Большая буква, маленькая буква, маленькая буква.

Пример прикрепил. Заранее спасибо!

Автор - Jingo
Дата добавления - 31.05.2018 в 13:41
sboy Дата: Четверг, 31.05.2018, 14:12 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2105
Репутация: 604 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Вариант пользовательской функцией
[vba]
Код
Function Jingo(t) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "[А-Я]{1}[а-яё]{2}"
        If .test(t) Then Jingo = t
    End With
End Function
[/vba]
К сообщению приложен файл: 6533368.xls(33.0 Kb)
 
Ответить
СообщениеДобрый день.
Вариант пользовательской функцией
[vba]
Код
Function Jingo(t) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "[А-Я]{1}[а-яё]{2}"
        If .test(t) Then Jingo = t
    End With
End Function
[/vba]

Автор - sboy
Дата добавления - 31.05.2018 в 14:12
Jingo Дата: Четверг, 31.05.2018, 14:51 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
sboy, магия! сработало! спасибо.
 
Ответить
Сообщениеsboy, магия! сработало! спасибо.

Автор - Jingo
Дата добавления - 31.05.2018 в 14:51
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск ячеек с учётом регистра. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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