/ / Loop през цялата колона в Excel VBA

Отидете през цялата колона в Excel VBA

По - долу ще разгледаме програма в Excel VBA че през цялата първа колона и оцветяват всички стойности, които са по-ниски от определена стойност.

Връзка през цялата колона в Excel VBA

Връзка през цялата колона в Excel VBA

Поставете командния бутон на работния лист и добавете следните кодови редове:

1. Първо, декларирайте променлива, наречена i от тип Long. Използваме променлива от тип Long тук, защото Дългите променливи имат по-голям капацитет от Integer променливи.

Dim i As Long

2. След това добавете кодовата линия, която променя цвета на шрифта на всички клетки в колона А до черно.

Columns(1).Font.Color = vbBlack

3. Добавете цикъла.

For i = 1 To Rows.Count

Next i

Забележка: работните листове могат да имат до 65 536 реда в Excel 2003 и до 1,048,576 редове в Excel 2007 или по-късно. Без значение коя версия използвате, кодовият ред по-горе преминава през всички редове (файлът Excel може да се изтегля във формат Excel 97-2003).

4. След това оцветяваме всички стойности, които са по-ниски от въведената в клетка D2 стойност. Празните клетки се игнорират. Добавете следните кодови линии към бримката.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

Резултат, когато кликнете върху командния бутон на листа (може да отнеме известно време):

Около целия резултат на колона

Около целия резултат на колона

Също така се чете: