Форум » Тексель » Перенос строки в спецификации Тексель » Ответить

Перенос строки в спецификации Тексель

Guest: Есть ли возможность автоматически переносить длинный текст в спецификации Тексель на следующую строку, не внутри ячейки, а именно на следующую строку. Например при копировании с другой таблицы..

Ответов - 3

brigval: Guest пишет: Есть ли возможность автоматически переносить длинный текст в спецификации Тексель на следующую строку, не внутри ячейки, а именно на следующую строку. Например при копировании с другой таблицы.. Такая задача не стояла. Вручную всегда можно разбить по строкам, а программно у меня вставляются записи уже разнесенные по строкам. Надо подумать. Из какой программы Вы заполняете бланк спецификации? Пишите на brgvl@yandex.ru, если что.

Guest: Написал на скорую руку макрос Sub Макрос1() Dim LastRow As Long Dim LastRow2 As Long LastRow = Range("E" & Rows.Count).End(xlUp).Row Range("E" & LastRow).Select Application.CutCopyMode = False Selection.Justify ' Selection.Justify LastRow2 = Range("G" & Rows.Count).End(xlUp).Row Range("G" & LastRow).Select Application.CutCopyMode = False Selection.Justify Dim LastRowE As Long Dim LastRowG As Long Dim Destination As Range 'Найти последнюю заполненную ячейку в столбце E LastRowE = Cells(Rows.Count, "E").End(xlUp).Row 'Найти последнюю заполненную ячейку в столбце G LastRowG = Cells(Rows.Count, "G").End(xlUp).Row 'Сравнить номера строк последних заполненных ячеек If LastRowG > LastRowE Then 'Переместиться на ячейку в столбце E, которая ниже Set Destination = Cells(LastRowG + 1, "E") Else 'Остаться в последней заполненной ячейке столбца E Set Destination = Cells(LastRowE, "E") End If Destination.Select ActiveCell.Offset(1, 0).Select End Sub Например в одной из строк в Наименование было: ШИМ- регулятор RT9624FGQWWDFN8P (арт.02-417-624792) После макроса: ШИМ- регулятор RT9624FGQWWDFN8P (арт.02-417-624792) Т.е. текст вписан в ширину столбца. Если переносить слова внутри ячейки, то колонтитулы типа "Инв.номер" разъезжаются

brigval: Guest пишет: После макроса: ШИМ- регулятор RT9624FGQWWDFN8P (арт.02-417-624792) Все три строки в одной ячейке?




полная версия страницы