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

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

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

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

[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]

Немного долго но можно и так!