Проблемы с получением excel для запуска кода vba при выборе ячейки

Question

Я написал нижеприведенную функцию, но получаю сообщение об ошибке, которое невозможно скомпилировать из-за несоответствия времени на строке If intersect .... Отладка показывает значение выбранной ячейки, когда я парить над «Target», а не в диапазоне (я не знаю, если это свидетельствует о проблеме)

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim lastEntry As Integer 
Dim shiftEntries As Range 

lastEntry = LastEntryRow() 
Set shiftEntries = Range("A11:L" & lastEntry) 

If Intersect(Target, shiftEntries) Then 
    Dim shiftDate As String 
    shiftDate = Cells(Target.Row, 1).Value 
    Cells(10, 15) = ShiftsInSevenDays(shiftDate) 
End If 
End Sub 

Любая помощь очень ценится.

Answer 1

Пожалуйста, попробуйте следующий ammended код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim lastEntry As Integer 
Dim shiftEntries As Range 

lastEntry = LastEntryRow() 
Set shiftEntries = Range("A11:L" & lastEntry) 

If Not Intersect(Target, shiftEntries) Is Empty Then 
    Dim shiftDate As String 
    shiftDate = Cells(Target.Row, 1).Value 
    Cells(10, 15) = ShiftsInSevenDays(shiftDate) 
End If 
End Sub 

Intersect возвращает диапазон не является логическим значением (истина или ложь). Я не уверен, что вы должны использовать Is Empty или Is Nothing, но это один из двух. С уважением,