Перебор Range

[Calvin]

Извиняйте, за глупый, но все же вопрос. Застопорился я вот на чем:

Код: Выделить всё

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each f In Range("g5:v20")
        If f = Target.Address Then
         MsgBox Target.Address
        End If
    Next   
End Sub


в общем хочу, чтобы была реакция только в пределах какого-либо диапазона при активизации ячейки. В принципе можно сделать это по-другому, но не догоняю я, почему не получается, не выделяя диапазон, делать по нему перебор таким способом???
Кстати Range - это коллекция? (тоже глупый вопрос)

[alibek]

Тебе нужны Range().Cells. Проходишься по .Cells(I) от 1 до Cells.Count.

[Calvin]

Ага, спасибо за совет.....вот так работает

Код: Выделить всё

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    For i = 1 To Range("g5:v20").Cells.Count
        If Range("g5:v20").Cells(i).Address = Target.Address Then
         MsgBox Target.Address
        End If
    Next
     
End Sub


я просто клонил вопрос к тому, что в прошлых темах давно обсуждался вопрос о несвязанных диапазонах с использованием Areas для перебора выделенных ячеек. Просто я подумал, что можно было бы обойти Areas и с помощью цикла For Each.... перебрать "коллекцию" (я так считал) Range, но похоже так не получится

2 alibek все равно спасибо