Имя пользователя:
Пароль:
 

Название темы: Кусор в начало строки
Показать сообщение отдельно

Динохромный


Contributor


Сообщения: 712
Благодарности: 322

Профиль | Отправить PM | Цитировать


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
Это сообщение посчитали полезным следующие участники:

Отправлено: 20:03, 17-01-2016 | #4

Название темы: Кусор в начало строки