Съдържание
Въпреки че не се използва много често на този сайт, може да се окажете в ситуация, в която искате да използвате Направете до цикъл в Excel VBA. Кодът, поставен между „До до“ и „Цикъл“, ще се повтаря, докато частта след „До до“ е истина.
Поставете команден бутон на работния си лист и добавете следните кодови редове:
Dim i As Integer
i = 1
Правете докато i> 6
Клетки (i, 1). Стойност = 20
i = i + 1
Цикъл
Резултат, когато щракнете върху командния бутон на листа:
Обяснение: докато i е по -високо от 6, Excel VBA поставя стойността 20 в клетката в пресечната точка на ред i и колона 1 и увеличава i с 1. В резултат стойността 20 ще бъде поставена в колона A шест пъти (не седем, защото Excel VBA спира, когато i е равно на 7).