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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос текста в другую ячейку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос текста в другую ячейку (Макросы/Sub)
Перенос текста в другую ячейку
McAr Дата: Понедельник, 27.03.2023, 15:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2000
Добрый день. Ситуация такая: есть ячейка вместимостью порядка 49 символов. Но вводимый текст, допустим с формы длиннее. Как перенести остаток текста при чем с соблюдением орфографии, хотя бы по пробелам, спаибо
 
Ответить
СообщениеДобрый день. Ситуация такая: есть ячейка вместимостью порядка 49 символов. Но вводимый текст, допустим с формы длиннее. Как перенести остаток текста при чем с соблюдением орфографии, хотя бы по пробелам, спаибо
Автор - McAr
Дата добавления - 27.03.2023 в 15:52
kotlovan Дата: Понедельник, 27.03.2023, 16:22 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
McAr, формула не подойдет?

Сцепить(Левсимв(ячейка;49); « alt+enter»;правсимв(ячейка; длстр(ячейка с полным текстом)-49))

Это общая формула.
Можно сначала отрезать слева 40 символов, потом найти первый пробел у правой части текста, высчитать поискпоз его позицию, прибавить 40. А затем заново левсимв отрезать нужное количество символов с учетом пробелов


Сообщение отредактировал kotlovan - Понедельник, 27.03.2023, 16:27
 
Ответить
СообщениеMcAr, формула не подойдет?

Сцепить(Левсимв(ячейка;49); « alt+enter»;правсимв(ячейка; длстр(ячейка с полным текстом)-49))

Это общая формула.
Можно сначала отрезать слева 40 символов, потом найти первый пробел у правой части текста, высчитать поискпоз его позицию, прибавить 40. А затем заново левсимв отрезать нужное количество символов с учетом пробелов
Автор - kotlovan
Дата добавления - 27.03.2023 в 16:22
Serge_007 Дата: Понедельник, 27.03.2023, 16:55 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
McAr,
Код
=ПОДСТАВИТЬ(A1;" ";СИМВОЛ(10);ДЛСТР(ЛЕВБ(A1;49))-ДЛСТР(ПОДСТАВИТЬ(ЛЕВБ(A1;49);" ";)))
На VBA сами переведете?
К сообщению приложен файл: 20230327_mcar.xls (26.5 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеMcAr,
Код
=ПОДСТАВИТЬ(A1;" ";СИМВОЛ(10);ДЛСТР(ЛЕВБ(A1;49))-ДЛСТР(ПОДСТАВИТЬ(ЛЕВБ(A1;49);" ";)))
На VBA сами переведете?
Автор - Serge_007
Дата добавления - 27.03.2023 в 16:55
McAr Дата: Понедельник, 27.03.2023, 17:18 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2000
Я тут сделал в vba, но работает только на 2 строки
[vba]
Код
A41=mid(s, instrrev(left(s, 49), " ")): f40=left(s, instrrev(left(s, 49), " ") -1)
[/vba]
Где s - это некий текст


Сообщение отредактировал Serge_007 - Понедельник, 27.03.2023, 17:26
 
Ответить
СообщениеЯ тут сделал в vba, но работает только на 2 строки
[vba]
Код
A41=mid(s, instrrev(left(s, 49), " ")): f40=left(s, instrrev(left(s, 49), " ") -1)
[/vba]
Где s - это некий текст
Автор - McAr
Дата добавления - 27.03.2023 в 17:18
Serge_007 Дата: Понедельник, 27.03.2023, 17:26 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата McAr, 27.03.2023 в 17:18, в сообщении № 4 ()
работает только на 2 строки
Ну да
По аналогии можете сделать на любое количество строк

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата McAr, 27.03.2023 в 17:18, в сообщении № 4 ()
работает только на 2 строки
Ну да
По аналогии можете сделать на любое количество строк
Автор - Serge_007
Дата добавления - 27.03.2023 в 17:26
McAr Дата: Понедельник, 27.03.2023, 17:43 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2000
У меня мозг отек это придумать, пол дня сижу читаю инет, в итоге методом тыка и какой то мамы получилось
 
Ответить
СообщениеУ меня мозг отек это придумать, пол дня сижу читаю инет, в итоге методом тыка и какой то мамы получилось
Автор - McAr
Дата добавления - 27.03.2023 в 17:43
McAr Дата: Понедельник, 27.03.2023, 17:59 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2000
Цитата Serge_007, 27.03.2023 в 17:26, в сообщении № 5 ()
По аналогии можете сделать на любое количество строк

А вот тут я сел в лужу, не могу понять

У меня вторая строка прописывается полностью, как мне ее ограничить на 75 символов?


Сообщение отредактировал McAr - Понедельник, 27.03.2023, 18:13
 
Ответить
Сообщение
Цитата Serge_007, 27.03.2023 в 17:26, в сообщении № 5 ()
По аналогии можете сделать на любое количество строк

А вот тут я сел в лужу, не могу понять

У меня вторая строка прописывается полностью, как мне ее ограничить на 75 символов?
Автор - McAr
Дата добавления - 27.03.2023 в 17:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос текста в другую ячейку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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