Автоматический переход на следующую ячейку в excel

В системе pyrus создается форма для заполнения. В форме имеется поле описание для ввода текста. Далее поле описание в pyrusзаполняется и по этой форме выгружается документ из pyrus в формат exels. И это поле описание, отображается не полностью тк слишком много текста. Необходимо что бы при выгрузке документа из pyrus в поле описание был виден весть текст. Что-бы текст в поле описание, автоматический переходил в следующую ячейку, которая расположена ниже, после заполнения текущей ячейки по все длине. Текст из поля описание должен быть полностью уместить в 3х строчках ячейки (А1,А2,А3) по всей длине ячейки.

• 
  Вопрос задан

  более двух лет назад
  

• 195 просмотров

Пока не закончен ввод значения, нельзя определить, когда переходить на другую ячейку.

Ввели значение, нажали Enter, стрелку вверх, вправо, Tab… Вот оно, событие. И это событие можно отследить.

Код вставить в модуль листа (войти в редактор VBA — Alt+F11)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub ' выход, если выделено более одной ячейки
    ' выход, если изменяемая ячейка не принадлежит заданному диапазону
    If Not Application.Intersect(Range("B3:F10"), Target) Is Nothing Then
        ' между  With/End With все, что с точкой слева
        ' (продолжение ссылки), относится к Target
        With Target
            If .Column = 6 Then ' если последний столбец с баллами
                .Offset(1, -4).Select ' сместить выделение на нижнюю строку
            Else ' если не последний столбец
                .Offset(, 1).Select ' выделить ячейку правее
            End If

            ' сумма по строке
            Cells(.Row, 7).Value = Val(Cells(.Row, 2).Value) + _
                    Val(Cells(.Row, 3).Value) + Val(Cells(.Row, 4).Value) + _
                    Val(Cells(.Row, 5).Value) + Val(Cells(.Row, 6).Value)
'            Cells(.Row, 7).Value = Application.Sum(Range(Cells(.Row, 2), Cells(.Row, 6)))
        End With
    End If
End Sub

Проверяется изменение в диапазоне B3:F10.

При изменении значения ячейки последнего столбца диапазона (в данном случае — F) в заданном диапазоне выделяется первая ячейка следующей строки, при изменении в любой другой выделяется ячейка правее.

Суммировать можно и по отдельности, и функцией листа СУММ(строка закомментирована)

Второй вариант — заполнение диапазона после введения данных.

Диапазон для заполнения B3:F10. Перед заполнением ввести значения в диапазон H3:H10 (например: «01101» в одну ячейку).

Код разместить в общем модуле (в редакторе VBA), для вызова макроса можно нарисовать кнопку на листе.

Sub SetAboutValues()
' определение переменных
Dim ArrValue ' массив
Dim i As Long, j As Long ' счетчики
    ' заносим в массив введенные данные
    ArrValue = Worksheets("Лист1").Range("H3:H10").Value
    ' расширяем массив на количество баллов плюс столбец для суммы
    ' с сохранением данных (Preserve)
    ReDim Preserve ArrValue(1 To UBound(ArrValue), 1 To 6)

    ' в цикле перебираем введенные данные ("строки")
    For i = 1 To UBound(ArrValue)
        ' в цикле разносим значения по ячейкам массива
        For j = 5 To 1 Step -1
            ArrValue(i, j) = Mid$(ArrValue(i, 1), j, 1)
            ArrValue(i, 6) = ArrValue(i, 6) + Val(ArrValue(i, j)) ' сумма
        Next j
    Next i

    ' выгружаем записанный массив на лист, задав размер диапазона на листе
    Worksheets("Лист1").Range("B3").Resize(UBound(ArrValue), 6).Value = ArrValue
End Sub

По умолчанию Excel при нажатии клавиши Enter после ввода данных в ячейку автоматически перемещает указатель ячейки в следующую нижнюю ячейку. Для изменения этого параметра используйте настройку, которая находится в области Параметры правки раздела Дополнительно диалогового окна Параметры Excel (чтобы его открыть, выберите команду Файл ► Параметры) (рис. 30.1).

Поведением указателя ячейки управляет флажок Переход к другой ячейке после нажатия клавиши Enter, выбор движения. Установите его и укажите направление, в котором будет двигаться указатель ячейки (Вниз, Влево, Вверх или Вправо).

Вам решать, устанавливать или снимать этот флажок. Я предпочитаю, чтобы флажок был снят, и для перемещения по ячейкам использую клавиши управления курсором, а не клавишу Enter. И понятно, что в этом случае указатель ячейки переместится в том направлении, которое указывает соответствующая клавиша. Например, для ввода данных в строку нажимайте клавишу →, а не Enter. Кроме того, можете использовать клавиши Page Up и Page Down.