Событие листа - изменение выделения.

[Евгений ГВС]

Есть обработчик события Worksheet_SelectionChange, но он реагирует как на клик мышью, так и на выделение ячеек в результате нажатия клавиш. Есть еще обработчик Worksheet_BeforeDoubleClick, а почему же нет обработчика просто одинарного клика? Что делать, если нужно обрабатывать только клик мышью?

[motorway]

Попробуйте так:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
          If GetKeyState(vbKeyLButton) = 1 Then
   
              '-- Ваш код здесь 
             MsgBox "Вы нажали левую кнопку мыши в ячейке " + Target.Address
      
   End If
   
End Sub

или лучше так (1-ый случай иногда что-то глючит):

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Const VK_LEFT = &H25
    Const VK_UP = &H26
    Const VK_RIGHT = &H27
    Const VK_DOWN = &H28

    If (GetKeyState(VK_UP) >= 0 And GetKeyState(VK_DOWN) >= 0 And GetKeyState(VK_LEFT) >= 0 And GetKeyState(VK_RIGHT) >= 0) Then
    If GetKeyState(vbKeyLButton) >= 0 Then
    MsgBox "Вы нажали левую кнопку мыши в ячейке " + Target.Address
    End If
    End If
End Sub