Показать полную графическую версию : Кусор в начало строки
Office 2010
Есть некий текст в ячейке excel, часть текста скрыта из за короткой длины ячейки. Выделяю всё предложение (ctrl+a). Удаляю предложение, вставляю новое и курсор встаёт в конец предложения. Нужно чтобы курсор вставал в начало предложения.
Как этого добиться?
Ячеек много и я сознательно стянул длину т.к мне нужно видеть все ячейки не перемещая ползунок перемещения по ячейкам. Поэтому предложение по растяжке ячеек не подходит.
курсор встаёт в конец предложения. Нужно чтобы курсор вставал в начало предложения.
ispolin, очевидное действие - кнопка Home (или ctrl+home для многострочного текста) насколько я понимаю не подходит, конечная цель менять позицию курсора какая?
часть текста скрыта из за короткой длины ячейки. »нужно видеть все ячейки не перемещая ползунок перемещения по ячейкам. Поэтому предложение по растяжке ячеек не подходит. »
ispolin, как вариант можно нажать на вкладке "Главная"=> группа "Выравнивание"=> кнопку "Перенести текст" (будет применено к выделенным ячейкам), тогда каждая ячейка будет отображать текст в необходимое количество рядов (высота ячейки будет подгоняться автоматически).
Кроме того, сочетание ctrl+shift+u увеличивает высоту строки формул (также можно менять высоту прямо мышкой), и менять содержимое можно прямо в ней, предварительно выделив нужную ячейку.
конечная цель менять позицию курсора какая? »
в новое вставленное предложение необходимо вначале поставить порядковый номер, приходится вручную передвигать курсор в начало строки, а предложение бывают довольно длинными (260 символов)
ispolin, обязательно нумерация должна быть в той же ячейке? Может ввести дополнительный столбец перед столбцом с предложениями, убрать отображение границы между ячейками, чтобы визуально казалось, что нумерация находится в том же столбце, что и предложение? И вбивать удобно, и протянуть нумерацию можно.
Либо можно использовать VBA, что-то наподобие кода ниже. Нумерация используется - цифра +скобка+точка+ пробел, например "42). Предложение". Если код находит в ячейке на одну выше выделеной аналогичную нумерацию, то в текущую ячейку он вставляет перед текстом номер на единицу больше, если не находит - начинает нумерацию заново. После этого выделяет ячейку на одну ниже.
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
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.