2010 - Кусор в начало строки

[ispolin]

Office 2010

Есть некий текст в ячейке excel, часть текста скрыта из за короткой длины ячейки. Выделяю всё предложение (ctrl+a). Удаляю предложение, вставляю новое и курсор встаёт в конец предложения. Нужно чтобы курсор вставал в начало предложения.

Как этого добиться?

Ячеек много и я сознательно стянул длину т.к мне нужно видеть все ячейки не перемещая ползунок перемещения по ячейкам. Поэтому предложение по растяжке ячеек не подходит.

[a_axe]

Цитата ispolin:



курсор встаёт в конец предложения. Нужно чтобы курсор вставал в начало предложения.



ispolin, очевидное действие - кнопка Home (или ctrl+home для многострочного текста) насколько я понимаю не подходит, конечная цель менять позицию курсора какая?


Цитата ispolin:



часть текста скрыта из за короткой длины ячейки.

2010 - Кусор в начало строки

Цитата ispolin:



нужно видеть все ячейки не перемещая ползунок перемещения по ячейкам. Поэтому предложение по растяжке ячеек не подходит.

2010 - Кусор в начало строки

ispolin, как вариант можно нажать на вкладке "Главная"=> группа "Выравнивание"=> кнопку "Перенести текст" (будет применено к выделенным ячейкам), тогда каждая ячейка будет отображать текст в необходимое количество рядов (высота ячейки будет подгоняться автоматически).

Кроме того, сочетание ctrl+shift+u увеличивает высоту строки формул (также можно менять высоту прямо мышкой), и менять содержимое можно прямо в ней, предварительно выделив нужную ячейку.

[ispolin]

Цитата a_axe:



конечная цель менять позицию курсора какая?

2010 - Кусор в начало строки

в новое вставленное предложение необходимо вначале поставить порядковый номер, приходится вручную передвигать курсор в начало строки, а предложение бывают довольно длинными (260 символов)

[a_axe]

ispolin, обязательно нумерация должна быть в той же ячейке? Может ввести дополнительный столбец перед столбцом с предложениями, убрать отображение границы между ячейками, чтобы визуально казалось, что нумерация находится в том же столбце, что и предложение? И вбивать удобно, и протянуть нумерацию можно.



Либо можно использовать VBA, что-то наподобие кода ниже. Нумерация используется - цифра +скобка+точка+ пробел, например "42). Предложение". Если код находит в ячейке на одну выше выделеной аналогичную нумерацию, то в текущую ячейку он вставляет перед текстом номер на единицу больше, если не находит - начинает нумерацию заново. После этого выделяет ячейку на одну ниже.



код

[spoiler]Код:

[/spoiler]

Код: Выделить всё

Public Sub cell_Num_list()
    Dim strTxt As String, dblNum As Double, poz As Integer
    If ActiveCell.Row  1 Then
        strTxt = Application.ActiveCell.Offset(-1, 0).Value
        poz = InStr(strTxt, "). ")
        If poz = 0 Then dblNum = 0 Else dblNum = Val(Left(strTxt, poz - 1))
        ActiveCell.Value = (dblNum + 1) & "). " & ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    End If
End Sub