Във VBA можете да преминете през диапазон от клетки, като приложите действия към всяка клетка в диапазона.
Ако искате да тествате условие за всяка клетка в диапазон, използвайки VBA, най -добрият начин е да преминете през диапазона, като тествате всяка клетка. Ето два примера за код, които демонстрират как да преминете през диапазон. Можете да замените стойността на диапазона за всеки диапазон, от който се нуждаете.
Цикъл през диапазон от клетки
Този пример ще премине през редица клетки. Изразът if тества условието, ако клетката съдържа текст „FindMe“ и показва поле за съобщение с местоположението на текста, ако е намерен.
1234567891011 | Public Sub LoopCells ()Dim c като диапазонЗа всеки c в обхвата ("A1: A10")Ако c.Value = "FindMe" ТогаваMsgBox "FindMe намерено на" & c.AddressКрай АкоСледващ cEnd Sub |
Цикъл през цялата колона
Този пример преминава през целия диапазон на колона А.
1234567891011 | Public Sub LoopColumn ()Dim c като диапазонЗа всеки c в обхвата ("A: A")Ако c.Value = "FindMe" ТогаваMsgBox "FindMe намерено на" & c.AddressКрай АкоСледващ cEnd Sub |
Превъртане през целия ред
Следващият пример преминава през ред 1, като разглежда целия ред като диапазон.
1234567891011 | Публичен под LoopRow ()Dim c като диапазонЗа всеки c в обхвата ("1: 1")Ако c.Value = "FindMe" ТогаваMsgBox "FindMe намерено на" & c.AddressКрай АкоСледващ cEnd Sub |