Пересечь с строкой динамически

Question

Я пытаюсь пересечь целевой диапазон с какой-то строкой, динамически меняясь: я использовал это:

If Not intersect ([1:7],target) Is Nothing Then

И это работает, но:

Dim n as Integer : n = 7
If Not intersect ([1:n],target) Is Nothing Then

Возвращает ошибку 424

Answer 1

[] не разрешает переменные, которые вам понадобятся, чтобы их прописать:

Dim n as Integer : n = 7
If Not intersect (Range("1:" & n),target) Is Nothing Then  

Answer 2

Синтаксис

[] является сокращением для Evaluate:

If Not intersect (Evaluate("1:" & n), target) Is Nothing Then

Answer 3

Попробуйте:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim n As Integer: n = 7

    If Not Intersect(Target, Rows("1:" & n)) Is Nothing Then
        MsgBox "in"
    End If

End Sub