Добро пожаловать!
на форум VerZak.Ru

28.04.24 Обновлена программа Браком до версии 1.04

28.04.24 Обновлена программа Тексель до версии 1.65



АвторСообщение
Guest



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


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

Спасибо: 0 
Профиль Ответить
Ответов - 3 [только новые]


brigval

Брагин Игорь



Пост N: 2890
Зарегистрирован: 07.07.07
ссылка на сообщение  Отправлено: 05.05.23 14:47. Заголовок: Guest пишет: Есть л..


Guest пишет:

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


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

brigval Спасибо: 0 
Профиль Ответить
Guest



Пост N: 2
Зарегистрирован: 04.05.23
ссылка на сообщение  Отправлено: 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)

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

Спасибо: 0 
Профиль Ответить
brigval

Брагин Игорь



Пост N: 2891
Зарегистрирован: 07.07.07
ссылка на сообщение  Отправлено: 05.05.23 21:31. Заголовок: Guest пишет: После ..


Guest пишет:

 цитата:
После макроса:

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

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

brigval Спасибо: 0 
Профиль Ответить
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 2
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет



Форум начат 07.07.07