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

Вход

Регистрация

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

 

= Мир MS Excel/Копировать текст до разделителя / (символа) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать текст до разделителя / (символа) (Макросы/Sub)
Копировать текст до разделителя / (символа)
timo64uk Дата: Понедельник, 21.10.2024, 05:20 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 94
Репутация: 1 ±
Замечаний: 0% ±

Office16
Добрый день.
Есть столбец, содержащий ячейки с текстом. Нужен макрос:
1. Проверяющий в столбце С с 4ой по последнюю заполненную ячейку наличие в ячейке не более одного символа "/".
1а. Если в ячейке более одного символа "/", то выделить ее фоном. Например C10.
1б. Если в ячейке ровно один символ "/", то скопировать текст в ячейку справа, но поменяв местами как бы через символ "/". Например в C4 было "1 / 2", а в результате работы макроса в D4 стало "2 / 1".

Пробелы по человеческому фактору могут быть двойные и тройные возле символа "/" (предварительно приведу их к виду "текстПробел/ПробелТекст" через замену). А могут пробелы и отсутствовать "текст/текст".

Прошу вашего содействия в решении данной задачи.
К сообщению приложен файл: 7375.xlsx (10.0 Kb)
 
Ответить
СообщениеДобрый день.
Есть столбец, содержащий ячейки с текстом. Нужен макрос:
1. Проверяющий в столбце С с 4ой по последнюю заполненную ячейку наличие в ячейке не более одного символа "/".
1а. Если в ячейке более одного символа "/", то выделить ее фоном. Например C10.
1б. Если в ячейке ровно один символ "/", то скопировать текст в ячейку справа, но поменяв местами как бы через символ "/". Например в C4 было "1 / 2", а в результате работы макроса в D4 стало "2 / 1".

Пробелы по человеческому фактору могут быть двойные и тройные возле символа "/" (предварительно приведу их к виду "текстПробел/ПробелТекст" через замену). А могут пробелы и отсутствовать "текст/текст".

Прошу вашего содействия в решении данной задачи.
Автор - timo64uk
Дата добавления - 21.10.2024 в 05:20
Pelena Дата: Понедельник, 21.10.2024, 07:51 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4554 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Код
=ЕСЛИ(ДЛСТР(C4)-ДЛСТР(ПОДСТАВИТЬ(C4;"/";))=1;СЖПРОБЕЛЫ(ПСТР(C4;ПОИСК("/";C4)+1;999))&" / "&СЖПРОБЕЛЫ(ЛЕВСИМВ(C4;ПОИСК("/";C4)-1));"")

+ Условное форматирование
К сообщению приложен файл: 8979217.xlsx (11.1 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Код
=ЕСЛИ(ДЛСТР(C4)-ДЛСТР(ПОДСТАВИТЬ(C4;"/";))=1;СЖПРОБЕЛЫ(ПСТР(C4;ПОИСК("/";C4)+1;999))&" / "&СЖПРОБЕЛЫ(ЛЕВСИМВ(C4;ПОИСК("/";C4)-1));"")

+ Условное форматирование
Автор - Pelena
Дата добавления - 21.10.2024 в 07:51
_Boroda_ Дата: Понедельник, 21.10.2024, 17:44 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16714
Репутация: 6503 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Еще вариант
Код
=ЕСЛИ(СЧЁТЕСЛИ(C4;"*/*/*");"";СЖПРОБЕЛЫ(ПСТР(C4&"/"&C4;ПОИСК("/";C4&"/")+1;ДЛСТР(C4))))

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще вариант
Код
=ЕСЛИ(СЧЁТЕСЛИ(C4;"*/*/*");"";СЖПРОБЕЛЫ(ПСТР(C4&"/"&C4;ПОИСК("/";C4&"/")+1;ДЛСТР(C4))))
Автор - _Boroda_
Дата добавления - 21.10.2024 в 17:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать текст до разделителя / (символа) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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