По -долу ще разгледаме програма, която цикли през определен диапазон. Например, когато искаме да поставим в квадрат числата в Range ("A1: A3"). Знаете ли, че можете също да преминете през динамичен диапазон?
Ситуация:
Поставете команден бутон на работния си лист и добавете следните кодови редове:
1. Първо, декларираме два Range обекта. Ние наричаме Range обекти rng и cell.
Dim rng As Range, клетка As Range
2. Инициализираме Range обекта rng с Range ("A1: A3").
Задайте rng = диапазон ("A1: A3")
3. Добавете цикъла За всеки следващ.
За всяка клетка В rng
Следващата клетка
Забележка: тук rng и клетка са избрани на случаен принцип, можете да използвате всякакви имена. Не забравяйте да се позовавате на тези имена в останалата част от кода.
4. След това квадратираме всяка клетка в този диапазон. За да постигнете това, добавете следния код в цикъла:
cell.Value = cell.Value * cell.Value
Резултат, когато щракнете върху командния бутон на листа:
5. Ако искате да проверите всяка клетка в произволно избран диапазон, просто заменете:
Задайте rng = диапазон ("A1: A3")
с:
Задайте rng = Избор
6. Сега, например, изберете Range ("A1: A2").
Резултат, когато щракнете върху командния бутон на листа: