Jei norite automatiškai užpildyti tam tikros spalvos diapazoną naudodami ciklą VBA. Šiame straipsnyje sužinosite, kaip VBA kilpa atitinka tam tikras sąlygas.
Idėja yra ta, kad jei diapazone A1: A20 yra bet koks tekstas ar skaičius, tada „Excel for loop“ automatiškai užpildys tuščius langelius.
Toliau pateikiamas A stulpelio duomenų momentinis vaizdas:
Norėdami automatiškai užpildyti tuščių langelių spalvą, turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
- Į darbalapio modulį įveskite šį kodą
Sub VBAForLoop ()
Kai x = nuo 1 iki 20
Ląstelės (x, 1). Pasirinkite
Jei Selection.Value = "" Tada
Su atranka. Interjeras
.Spalva = 65535
Pabaiga su
Pabaiga Jei
Kitas x
Pabaiga Sub
- Nukopijavę kodą, turite paleisti makrokomandą naudodami ALT + F8 ir pasirinkite makrokomandą.
Tokiu būdu mes galime naudoti VBA automatiškai užpildyti spalvą naudojant ciklą.
Atsisiųsti-kaip automatiškai užpildyti spalvą naudojant „vba for loop“