公式或宏用于在键入enter时自动将同一列中的单元格增加1

Question

大家好

我必须承认我对这个有点生疏，所以我向你们寻求帮助…任何反馈将非常感谢

我正在做一个电子表格，其中包含输入的收据号和相邻相应列中与之相关的值

我想为列"D"创建一个公式，当按回车键或分配命令按钮时，自动增加(收据号)的前一个值。基本上，当我输入第一张收据的值时下一个单元格将被加1。下一个单元格将被加1。或者初始值加2加3等等

例子

D列

D1     567890
D2     567891
D3     567892
D4     567893

非常感谢任何帮助渲染的家伙

Answer 1

这比公式更自动:

Private Sub Worksheet_Change(ByVal Target As Range)
  Static inswitch&
  Dim iRow&, iCol&
  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