Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Добавление новой строки вверх, при вводе данных
 
#1
27.09.2015 22:50:54
Необходимо следующее:

Есть 2 столбца. В одном дата, во втором число. Есть ли набор клавиш, или другое решение, которое позволяло бы автоматически добавлять строку вверх, после ввода значений в пустую строку, тем самым сдвигая все значения вниз ?
Например у нас свободная ячейка A1. При вводе числа в эту ячейку и нажатии enter, A1 остается свободной, а введенное значение располагается в ячейке A2. И так каждый раз при вводе значений в A1, они добавляются ниже, при этом все ранее введенные значения также смещаются на 1 ячейку вниз.

По сути эта ячейка A1 - это поле ввода данных, которое добавляет новые значение не в конец таблицы, а в ее начало.
 
 
 
#2
27.09.2015 23:13:06
В модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub 'выделено больше одной ячейки
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Target.Offset(1, 0).EntireRow.Insert
        Target.Offset(1, 0) = Target
    End If
End Sub
 
 
 
#3
27.09.2015 23:13:19
Макросом нужно это делать.
 
 
 
#4
27.09.2015 23:27:49
Kuzmich, спасибо за код, но ничего не происходит. Добавил в модуль листа, но данные добавляются также как и раньше
 
 
 
#5
27.09.2015 23:34:54
А так?
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
    If Target.Cells.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        LastRow = Cells(Rows.Count, 1).End(xlUp).Row
        Application.EnableEvents = False
            Range(Cells(1, 1), Cells(LastRow, 1)).Cut Cells(2, 1)
        End If
    Application.EnableEvents = True
End Sub
 
 
 
#6
27.09.2015 23:42:24
Юрий М, также не срабатывает(
 
 
 
#7
27.09.2015 23:42:49
У меня срабатывает. Макросы у Вас разрешены?
 
 
 
#8
27.09.2015 23:44:48
Цитата
но ничего не происходит
У меня происходит при вводе в А1
 
 
 
#9
27.09.2015 23:54:29
Проверил на новом файле - работают оба кода. Спасибо  Юрий М и Kuzmich,
 
 
 
Страницы: 1
Читают тему
Наверх