| Цитата |
|---|
Jack Famous написал:
Цикл For Each Cell In Range идёт сначала по СТРОКАМ, потом по СТОЛБЦАМ
Цикл For Each Element In Array2D идёт сначала по СТОЛБЦАМ, потом по СТРОКАМ |
Добрый день, Алексей.
Хорошо, что модераторы подчистили тему, т.к. с утра здесь что-то эмоционально обсуждали и по ходу поменяли термин "перебор по" на "ИДЕТ".
Термин "ИДЕТ" может толковаться по разному, например: пошел я по строкам 1-го столбца, потом по строкам 2-го.
Или, наоборот: потопал по всем столбцам первой строки, потом 2-й и т.д. Об этом же с утра здесь вроде спорили.
По-моему, в начале темы всегда полезно конкретно обозначить свою проблему, например: "Используя оператор For-Each-Next, можно ошибиться в понимании порядка обработки ячеек диапазона и элементов 2-х мерного массива".
А то вдруг это на самом деле окажется не проблема – мы же не знаем того, чего не знаем.
При приведенном мною описании проблемы, причина (понимание устройства коллекции ячеек диапазона) не спутается со следствием – интерпретацией кем-то работы оператора For-Each-Next, который, вообще-то, всегда работает однозначно.
Диапазон ячеек, это коллекция объектов ячеек.
Оператор For-Each-Next с любыми коллекциями работает в порядке следования индекса элемента коллекции от меньшего к большему.
У каждой ячейки диапазона (читай – коллекции объектов) Range тоже есть свой индекс. К ячейке можно обращаться по такому индексу, например Range("A1:B2").Item(2) это ячейка B1, а не A2, как некоторые могут неправильно подумать. И оператор For-Each-Next здесь совершенно не причем, он тупо перебирает коллекцию, которую ему подсунули: ячейки диапазона (читай – элементы коллекции) в порядке возрастания индекса ячеек.
Теперь пояснения по устройству массивов.
Строго говоря, у массива нет ни строк, ни столбцов, у него – размерности, каждая из которых может начинаться не обязательно с единичного индекса.
Например: Dim a(0 To 3, 10 To 11)
Физически же в памяти как элементы коллекции, так и элементы массивы всегда располагаются в непрерывном диапазоне адресов, как одномерный массив.
Но, чтобы немного «очеловечить» их восприятие и позволить произвольный перебор, у массива есть структура, которая позволяет (логически) обращаться к элементам по логическим индексам элемента, при этом внутри индекс всегда пересчитывается в индекс одномерного, так как в памяти все элементы лежат в непрерывном диапазоне адресов.
Для 2-мерного массива представление об 1-й разрядности как о строках – это вольная интерпретация конкретного программиста, у другого это легко может ассоциироваться со столбцами или ещё с каким-либо попугаями. Это лучше конкретизировать.
С массивами оператор For-Each-Next работает по порядку физического (одномерного) хранения элементов массива. С точки зрения разрядностей массива это равносильно перебору от элемента с наименьшим индексом - a(0, 11) к наибольшему a(3, 11) для примера выше, перебирая поочередно элементы 1-й разрядностей ...-a(1,11)-a(2,11)-…, потом инкрементировать индекс 2-й разрядности, если она есть, и.т.д.
Если хочется упростить понимание обработки For-Each-Next, ассоциируя 2-мерный массив с диапазоном ячеек Excel, то порядок обработки такой:
1. Ячейки диапазона: Слева-Направо-Вниз
2. Элементы 2-мерного массива: Сверху-Вниз-Направо
Но, еще раз подчеркну, оператор For-Each-Next здесь не причем.
Пример кода для понимания устройства коллекции Range:
| Код |
|---|
Sub Test1()
' For-Each-Next
Dim rng As Range, cell As Range
Set rng = Range("A1:B2")
Debug.Print "Cell"
For Each cell In rng.Cells
Debug.Print cell.Address(0, 0)
Next
End Sub
Sub Test2()
' Аналог For-Each-Next
Dim i As Long, rng As Range
Set rng = Range("A1:B2")
Debug.Print "Item"
For i = 1 To rng.Cells.Count
Debug.Print rng.Item(i).Address(0, 0)
Next
End Sub |
P.S. Извиняюсь за много слов
