Ако искате автоматично да запълните определен цветен диапазон, използвайки for loop VBA. В тази статия ще научите за цикъл във VBA, отговарящ на определено условие.
Идеята е, ако диапазон A1: A20 съдържа каквото и да е текст или число, тогава excel for loop автоматично ще запълни празни клетки.
Следва моментната снимка на данните в колона А:
За да запълним автоматично цвета в празни клетки, трябва да изпълним следните стъпки:
- Кликнете върху раздела Разработчик
- От групата Кодове изберете Visual Basic
- Въведете следния код в модула на работния лист
Sub VBAForLoop ()
За x = 1 до 20
Клетки (x, 1) Изберете
Ако Selection.Value = "" Тогава
С Избор. Интериор
.Цвят = 65535
Край с
Край Ако
Следващ x
End Sub
- След като копирате кода, трябва да стартирате макроса, като използвате ALT + F8 & изберете макроса.
По този начин можем да използваме VBA за автоматично попълване на цвят с помощта на цикъл for.
Изтегляне-Как да запълните автоматично цвета с vba for цикъл