Отправлено: 04.05.23 19:36. Заголовок: Перенос строки в спецификации Тексель

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

 Отправлено: 05.05.23 14:47. Заголовок: Guest пишет: Есть л..

Guest пишет:

цитата:

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

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

 Отправлено: 05.05.23 20:44. Заголовок: Написал на скорую ру..

Написал на скорую руку макрос

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)

Т.е. текст вписан в ширину столбца.
Если переносить слова внутри ячейки, то колонтитулы типа "Инв.номер" разъезжаются

 Отправлено: 05.05.23 21:31. Заголовок: Guest пишет: После ..

Guest пишет:

цитата:

После макроса: ШИМ- регулятор RT9624FGQWWDFN8P (арт.02-417-624792)

Все три строки в одной ячейке?