excel - 通过键盘输入激活 SelectionChange 上的单元格范围

Question

我通过以下 excel-vba 代码激活工作表上的给定单元格范围:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' msgbox("Change recognized")
If Sh.Name <> "Spielfeld" Then
    If ActiveCell.Column > 1 Then
        Dim UserSelection As Range
        Set UserSelection = Sh.Range(Cells(1, ActiveCell.Column), Cells(16, ActiveCell.Column))
        UserSelection.Activate
    End If
End If
End Sub

通过鼠标输入更改列/单元格时，代码工作正常。但是如果我只是按向左或向右箭头键，excel 会更改事件单元格/事件列 没有 选择定义的 UserSelection!然而，当按下箭头键时，子本身总是被激活(即使我通过箭头键更改单元格也会弹出一个 msgbox)。
谁能告诉我为什么在使用箭头键更改列时我的选择没有自动更新？我怎样才能做到这一点？

Answer 1

您必须 选择 而不是 激活

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Spielfeld" Then
    If ActiveCell.Column > 1 Then
        Dim UserSelection As Range
        Set UserSelection = Sh.Range(Cells(1, ActiveCell.Column), Cells(16, ActiveCell.Column))
        Application.EnableEvents = False
            UserSelection.Select
        Application.EnableEvents = True
    End If
End If
End Sub