Excel ActiveX ComboBox onClick事件

Question

我想在Excel中使用ActiveX組合框。一切工作正常，從下拉按鈕click_event填充點。但是，當它設置點擊事件時，我發現它甚至從諸如箭頭鍵之類的擊鍵中被觸發。這是正常的行爲，如果是這樣，我怎麼能繞過這個？

我的工作在Excel 2007中VBA

這是我用來允許使用按鍵組合框中導航方法，我會等待，看看是否有更好的解決辦法..：是的lastKey公共變量

Private Sub ComboBox1_KeyDown(ByVal KeyCode As _ 
MSForms.ReturnInteger, ByVal Shift As Integer) 
    If KeyCode = 38 Then 
     If ComboBox1.ListIndex <> 0 Then 
      lastkey = KeyCode 
      ComboBox1.ListIndex = ComboBox1.ListIndex - 1 
      KeyCode = 0 
     End If 
    ElseIf KeyCode = 40 Then 
     If ComboBox1.ListIndex <> ComboBox1.ListCount - 1 Then 
      lastkey = KeyCode 
      ComboBox1.ListIndex = ComboBox1.ListIndex + 1 
      KeyCode = 0 
     End If 
    End If 
End Sub 

Private Sub ComboBox1_Click() 
    If lastkey = 38 Or lastkey = 40 Then 
     Exit Sub 
    Else 
     MsgBox "click" 
    End If 
End Sub 

Answer 1

是的，這是正常的行爲。使用箭頭鍵導航組合中的項目，因此點擊事件被觸發。

繞過插入此代碼。這將捕獲所有4個箭頭鍵，並在按下時不執行任何操作。這種方法的唯一缺點是您將無法再使用箭頭鍵進行導航。

Private Sub ComboBox1_KeyDown(ByVal KeyCode As _ 
MSForms.ReturnInteger, ByVal Shift As Integer) 
    Select Case KeyCode 
    Case 37 To 40: KeyCode = 0 
    End Select 
End Sub 

隨訪

Dim ArKeysPressed As Boolean 

Private Sub ComboBox1_Click() 
    If ArKeysPressed = False Then 
     MsgBox "Arrow key was not pressed" 
     '~~> Rest of Code 
    Else 
     ArKeysPressed = False 
    End If 
End Sub 

Private Sub ComboBox1_KeyDown(ByVal KeyCode As _ 
MSForms.ReturnInteger, ByVal Shift As Integer) 
    Select Case KeyCode 
    Case 37 To 40: ArKeysPressed = True 
    End Select 
End Sub