excel - 如果在列中按下 Enter 键如何触发代码

Question

每当在“H”列中按下回车键时，我都试图移动到 excel 中“A”列下一行的第一个单元格。到目前为止，我的代码如下；

Private Sub move_to_next_row(KeyCode As Integer, Shift As Integer)  
    If KeyCode = 13 Then
        ActiveCell.Offset(1, -7).Activate
    End If
End Sub

Answer 1

工作表没有 KeyDown 事件或类似事件。您只能检查 H 列中的单元格是否已更改，然后移动到下一行的第一列。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Columns("H")) Is Nothing Then
        Me.Cells(Target.Row + 1, "A").Select
    End If
End Sub