可以用下面3个事件来模拟鼠标双击Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)End Sub单鼠标右键Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)End Sub鼠标单击Private Sub Worksheet_SelectionChange(ByVal Target As Range)End Sub版本高一点的excel也有控件支持事件Private Sub CommandButton1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)End SubPrivate Sub CommandButton1_Click()End SubPrivate Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)End SubPrivate Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)End SubPrivate Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)End Sub
