По -долу ще разгледаме програма в Excel VBA че цикли през цялата първа колона и оцветява всички стойности, които са по -ниски от определена стойност.
Поставете команден бутон на работния си лист и добавете следните кодови редове:
1. Първо, обявете променлива, наречена i от тип Long. Тук използваме променлива от тип Long, тъй като променливите Long имат по -голям капацитет от целочислените.
Dim i As Long
2. След това добавете кодовия ред, който променя цвета на шрифта на всички клетки в колона А на черен.
Колони (1). Font.Color = vbBlack
3. Добавете цикъла.
For i = 1 To Rows.Count
Следва i
Забележка: Работните листове могат да имат до 1048 576 реда в Excel 2007 или по -нова версия. Без значение каква версия използвате, кодовият ред над всички цикли.
4. След това оцветяваме всички стойности, които са по -ниски от стойността, въведена в клетка D2. Празните клетки се игнорират. Добавете следните кодови редове към цикъла.
Ако клетки (i, 1). Стойност <обхват ("D2"). Стойност и не е празна (клетки (i, 1). Стойност) след това
Клетки (i, 1). Цвят на шрифта = vbRed
Край Ако
Резултат, когато щракнете върху командния бутон на листа (това може да отнеме известно време):
