перенос текста в ячейку справа. как ?

Автор Александр Алексеев, 21.06.2013, 10:43

« назад - далее »

Александр Алексеев

Всем привет.
Подскажите плиз, как можно организовать перенос текста в др. ячейку?
Автоперенос строк это не то.

Для примера прикрепил файлик.
В нем форма для заполнения.
Необходимо, чтобы при печати символов, каждый символ вставал в свою клетку по разметке слева направо!
Выручайте :)

cheshiki1

прям в клетках никак. а вот создать некую форму для заполнения определенного листа , где просто вводятся нужные данные и после их ввода макрос разносит по ячейкам то пожалуй можно.

Шпец Докапыч

Предлагаю такой вариант: заносим текст в первую ячейку (что удобно для копипаста), дважды кликаем по ней → получаем результат. Для этого в модуле книги следует разместить:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    txt = Target.Cells(1, 1)
    If Len(txt) = 0 Or Target.Borders(8).LineStyle <> xlDot Then Exit Sub
    Cancel = True
    TC = Target.Column
    Application.ScreenUpdating = 0
    On Error GoTo DCend
    For i = TC To TC + Len(txt) - 1
        Sh.Cells(Target.Row, (i - 1) * 3 + 1) = Mid(txt, i, 1)
    Next
DCend: Application.ScreenUpdating = 1
End Sub


В принципе, можно заморочиться и сделать иллюзию поклеточного заполнения. Для этого надо задействовать что-то наподобие SuperComboBox.

PS: Во вложении вариант с даблкликом.
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Pelena

Была похожая тема на дружественном форуме. Посмотрите примеры, может подойдет
http://www.excelworld.ru/forum/2-2172-23951-16-1345073252

Fedbul

Немного долго но можно и так!
Страшно, когда на ответы нет вопросов...