У VBA ви можете прокручувати діапазон комірок, застосовуючи дії до кожної клітинки в діапазоні.
Якщо ви хочете перевірити умову для кожної клітинки в діапазоні за допомогою VBA, найкращий спосіб - прокрутити діапазон, перевіряючи кожну клітинку. Ось два приклади коду, які демонструють, як прокручувати діапазон. Ви можете замінити значення діапазону для будь -якого діапазону, який вам потрібно прокрутити.
Циклічний діапазон клітинок
У цьому прикладі буде прокручуватися діапазон комірок. Оператор if перевіряє умову, якщо клітинка містить текст "FindMe" і показує вікно повідомлення з розташуванням тексту, якщо воно знайдено.
1234567891011 | Загальнодоступні цикли LoopCells ()Dim c як діапазонДля кожного c в діапазоні ("A1: A10")Якщо c.Value = "FindMe" ТодіMsgBox "FindMe знайдено за адресою" & c.AddressЗакінчити ЯкщоДалі cEnd Sub |
Цикл по всій колонці
Цей приклад повторює весь діапазон стовпця А.
1234567891011 | Відкритий Sub LoopColumn ()Dim c як діапазонДля кожного c в діапазоні ("A: A")Якщо c.Value = "FindMe" ТодіMsgBox "FindMe знайдено за адресою" & c.AddressЗакінчити ЯкщоДалі cEnd Sub |
Цикл через весь рядок
Наступний приклад повторює ряд 1, враховуючи весь ряд у діапазоні.
1234567891011 | Відкритий Sub LoopRow ()Dim c як діапазонДля кожного c в діапазоні ("1: 1")Якщо c.Value = "FindMe" ТодіMsgBox "FindMe знайдено за адресою" & c.AdressЗакінчити ЯкщоДалі cEnd Sub |