키보드 입력을 통해를 SelectionChange에 셀 범위를 활성화 I 다음 엑셀 VBA 코드에 의해 워크 상에 소정 셀 영역을 활성화

Question

: 컬럼/셀을 통해 변경할 때

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 

코드는 잘 작동 마우스 입력. 하지만 그냥 왼쪽 또는 오른쪽 화살표 키를 누르면 활성 셀/활성 열이 변경됩니다 정의 된 UserSelection을 선택하지 않고! 그럼에도 불구하고 화살표 키를 누르면 하위 자체가 항상 활성화됩니다 (화살표 키를 통해 셀을 변경하더라도 메시지 상자가 나타납니다).
화살표 키를 사용하여 열을 변경할 때 내 선택이 자동으로 업데이트되지 않는 이유는 누구에게 말해 줄 수 있습니까? 어떻게해야합니까?

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