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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос части текста в другую ячейку (Формулы/Formulas)
Перенос части текста в другую ячейку
ProRock Дата: Вторник, 05.03.2019, 07:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Подскажите пожалуйста решение! Есть бланк, в который вводятся данные из всплывающего списка. Но есть проблема - одна из ячеек бланка состоит из 2х коротких строк, и при необходимости текст надо как-то разделить и перенести в ячейки ниже. Бланк расширить или сделать перенос внутри ячейки нельзя. Реально ли сделать такой перенос текста?
К сообщению приложен файл: 4474392.xlsx(11.3 Kb)
 
Ответить
СообщениеПодскажите пожалуйста решение! Есть бланк, в который вводятся данные из всплывающего списка. Но есть проблема - одна из ячеек бланка состоит из 2х коротких строк, и при необходимости текст надо как-то разделить и перенести в ячейки ниже. Бланк расширить или сделать перенос внутри ячейки нельзя. Реально ли сделать такой перенос текста?

Автор - ProRock
Дата добавления - 05.03.2019 в 07:27
китин Дата: Вторник, 05.03.2019, 08:38 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5498
Репутация: 877 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
формат ячеек-выравнивание- переносить по словам . не?
К сообщению приложен файл: ProRock.xlsx(11.8 Kb)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеформат ячеек-выравнивание- переносить по словам . не?

Автор - китин
Дата добавления - 05.03.2019 в 08:38
ProRock Дата: Вторник, 05.03.2019, 08:42 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Отлично. Но забыл уточнить еще одну очень важную деталь. Между этими двумя строками есть еще одна строка. А так же расширять и удлинять строки нет возможности так-как это бланк и его форма и размеры ограниченно.


Сообщение отредактировал ProRock - Вторник, 05.03.2019, 08:45
 
Ответить
СообщениеОтлично. Но забыл уточнить еще одну очень важную деталь. Между этими двумя строками есть еще одна строка. А так же расширять и удлинять строки нет возможности так-как это бланк и его форма и размеры ограниченно.

Автор - ProRock
Дата добавления - 05.03.2019 в 08:42
китин Дата: Вторник, 05.03.2019, 08:48 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 5498
Репутация: 877 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
тогда уменьшать размер шрифта. а еще лучше приложить реальный файл. с вашим бланком


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениетогда уменьшать размер шрифта. а еще лучше приложить реальный файл. с вашим бланком

Автор - китин
Дата добавления - 05.03.2019 в 08:48
_Boroda_ Дата: Вторник, 05.03.2019, 09:32 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14954
Репутация: 5916 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вот таким макросом можно. В модуль листа его - ПКМ на ярлык листа - Исходный текст
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        dl0_ = 40
        x_ = Range("A1")
        Application.EnableEvents = 0
        Range("A2").MergeArea.ClearContents
        If Len(x_) > dl0_ Then
            ar = Split(x_)
            For i = 0 To UBound(ar)
                dl_ = dl_ + Len(ar(i))
                If dl_ < dl0_ Then
                    x1_ = x1_ & " " & ar(i)
                Else
                    x1_ = Trim(x1_)
                    x2_ = Replace(x_, x1_ & " ", "")
                    Range("A1") = x1_
                    Range("A2") = x2_
                    Exit For
                End If
            Next i
        End If
        Application.EnableEvents = 1
    End If
End Sub
[/vba]
Конечно для Вас же гораздо удобнее было бы на реальном файле, но к нему легко подставить - заменяете А1, А2 и 40 (макс длина)
К сообщению приложен файл: 4474392_1.xlsm(19.8 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВот таким макросом можно. В модуль листа его - ПКМ на ярлык листа - Исходный текст
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        dl0_ = 40
        x_ = Range("A1")
        Application.EnableEvents = 0
        Range("A2").MergeArea.ClearContents
        If Len(x_) > dl0_ Then
            ar = Split(x_)
            For i = 0 To UBound(ar)
                dl_ = dl_ + Len(ar(i))
                If dl_ < dl0_ Then
                    x1_ = x1_ & " " & ar(i)
                Else
                    x1_ = Trim(x1_)
                    x2_ = Replace(x_, x1_ & " ", "")
                    Range("A1") = x1_
                    Range("A2") = x2_
                    Exit For
                End If
            Next i
        End If
        Application.EnableEvents = 1
    End If
End Sub
[/vba]
Конечно для Вас же гораздо удобнее было бы на реальном файле, но к нему легко подставить - заменяете А1, А2 и 40 (макс длина)

Автор - _Boroda_
Дата добавления - 05.03.2019 в 09:32
ProRock Дата: Вторник, 05.03.2019, 11:14 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Спасибо огромное все получилось.
 
Ответить
Сообщение_Boroda_, Спасибо огромное все получилось.

Автор - ProRock
Дата добавления - 05.03.2019 в 11:14
ProRock Дата: Понедельник, 18.03.2019, 10:51 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Подскажите пожалуйста. Как сделать что бы остальные строки тоже переносились?
К сообщению приложен файл: 1111-.xlsm(27.7 Kb)
 
Ответить
Сообщение_Boroda_, Подскажите пожалуйста. Как сделать что бы остальные строки тоже переносились?

Автор - ProRock
Дата добавления - 18.03.2019 в 10:51
_Boroda_ Дата: Понедельник, 18.03.2019, 11:11 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14954
Репутация: 5916 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
У Вас там формулы. Вот ими и сделайте, макрос для этого вообще не нужен.
На форуме куча тем есть с подобными вопросами и формульными решениями


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеУ Вас там формулы. Вот ими и сделайте, макрос для этого вообще не нужен.
На форуме куча тем есть с подобными вопросами и формульными решениями

Автор - _Boroda_
Дата добавления - 18.03.2019 в 11:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос части текста в другую ячейку (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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