"Вложенные" Select'ы

[Тихон]

Интересный эффект обнаружился...
Вот очень надуманный пример вложенных циклов.

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

Sub Diap()
    Set SmenTime = Union(Range("D7 :D 48"), Range("D84 :D 104"), _
             Range("M7:M48"), Range("M84:M104"))
    SmenTime.Select
    For Each Cv In Selection
       Cv.Activate
       Rw = Cv.Row
       Cw = Cv.Column
       Range(Cells(6, 50), Cells(100, 50)).Select
       For Each Nn In Selection
          Nn.Activate
          Nr = Nn.Row
          Nc = Nn.Column
          Range(Cells(6, 52), Cells(100, 52)).Select
       Next
'       Selection.Delete (xlUp)
    Next
End Sub

Прикол в том, что, невзирая на создание нового диапазона в цикле For each... Next, выполнение цикла продолжается в установленном изначально порядке. Хотя выделение с диапазона SmenTime снимается... И с вновь созданным диапазоном можем делать что хотим, не касаясь SmenTime. Хоть создать новый диапазон при переборе его ячеек. А потом спокойно вернемся к внешнему циклу и перейдем к следующей ячейке внешнего (!) цикла по порядку.

Не понимаю - каким образом ДВА (и больше) Selection уживаются на одном листе?!
И сколько таких вложений можно образовать?

Спасибо за внимание.

[EducatedFool]

При запуске первого цикла строкой For Each Cv In Selection
Excel один раз считывает в память выделенный диапазон, после чего цикл начинает перебирать все ячейки в "считанном в память" диапазоне.
То есть к выделению на листе он больше ни разу не обращается.

Так что даже если сразу после строки For Each Cv In Selection поставить строку
[a1].select, то всё будет корректно работать.

[Тихон]

...Так что даже если сразу после строки For Each Cv In Selection поставить строку
[a1].select, то всё будет корректно работать.

Спасибо.

Это где-нибудь документировано?

[Naeel Maqsudov]

Это нигде не документировано но вполне очевино. Вот другой пример:

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

Sub qwe()
j = 5
  For i = 1 To j
    MsgBox i
    j = 2
  Next
End Sub

Такой цикл выпонится 5 раз. Так как выражения Start, End и Step в оператора For вычисляются единожды при входе в цикл, и потом используются для вычисления счетчика на каждой итерации. Так оператор FOR работал во всех Бейсиках. И также он работает во многих других алгоритмических языках.

Теперь о Selection:

Selection Property
SpecificsReturns the selected object in the active window, for an Application object, and a specified window, for a Windows object.

Remarks
The returned object type depends on the current selection (for example, if a cell is selected, this property returns a Range object). The Selection property returns Nothing if nothing is selected.

Будучи вычисленным единожды оно дает нам ссылку на экземпляр класса Range. который существует в неизменном виде пока работает цикл. А экземпляр класса Range предоставляет доступ к конкретному фрагменту рабочего листа.

Так что наблюдаемый эффект логичен, так должно быть, и слава богу, что это так

[heisnod]

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

Sub qwe()
j = 5
  For i = 1 To j
    MsgBox i
    j = 2
  Next
End Sub

Хочу добавить, что в паскале/дельфи такой код вызовет ошибку, так как это может привести к зацикливанию.