VBA - event nie działą

Wątek przeniesiony 2024-06-25 17:56 z Inne języki programowania przez Riddle.

2018-08-14T13:12:34+02:00

Rejestracja: dni
Ostatnio: dni

Cześć,

mam pytanie dlaczego to nie działa:

Kopiuj

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("C14:L18")) Is Nothing Then
            MsgBox "event"
        End If
    End If
End Sub

a to działa:

Kopiuj

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("A1")) Is Nothing Then
            MsgBox "event"
        End If
    End If
End Sub

Czy problemem jest tutaj zakres komórek "C14:L18", które zostały scalone jako jedna? Nie działa też w takim przypadku samo "C14". Czy można to jakoś obejść?

hurgadion

2018-08-14T17:53:35+02:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: www
Postów: 259

Hej,
spróbuj może odpalić tylko kod takiej postaci:

Kopiuj

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("C14:L18")) Is Nothing Then
            MsgBox "event"
       End If
End Sub

Pzdr... :)