Блог

Главная - Вопросы по программированию - Формула или макрос для автоматического увеличения ячеек в том же столбце на 1 при нажатии enter

Формула или макрос для автоматического увеличения ячеек в том же столбце на 1 при нажатии enter

#excel #excel-formula #vba

#excel #excel-формула #vba

Вопрос:

Добрый день, друзья

Я должен признать, что я немного устал от этого, поэтому я прошу помощи у вас, ребята .. любая обратная связь будет с благодарностью

Я создаю электронную таблицу, которая содержит введенные номера квитанций и значение, связанное с ним в соседнем соответствующем столбце

Я хочу создать формулу для столбца «D», которая автоматически увеличивает предыдущее значение (номер квитанции) на единицу при нажатии на ввод или назначить командную кнопку для этого … в основном, когда я ввожу значение первой квитанции, следующая ячейка будет увеличена на единицу.. ячейка под этим будет увеличена на одно из предыдущих значений .. или начальное значение плюс 2 плюс 3 и т. Д

Пример

Столбец D

 D1     567890
D2     567891
D3     567892
D4     567893

Большое спасибо за любую оказанную помощь, ребята

Комментарии:

1. В D2 разделе использовать формулу: =D1 1 а затем выделите ячейку и перетащите столбец вниз, выбрав маленький черный квадратик в правом нижнем углу выделенной ячейки.

Ответ №1:

Это более автоматически, чем формула:

 Private Sub Worksheet_Change(ByVal Target As Range)
  Static inswitchamp;
  Dim iRowamp;, iColamp;
  If inswitch = 1 Then Exit Sub ' prevent looping
  iRow = Target.Row
  iCol = Target.Column
  If iCol <> 4 Then Exit Sub
  If Cells(iRow   1, iCol) = "" Then ' check needed?
    inswitch = 1
    Cells(iRow   1, iCol) = Cells(iRow, iCol)   1
    inswitch = 0
  End If
End Sub
Метки: