Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Фон ячейки в Excel

Автор: -=Fox=- 19.6.2003, 23:19

Привет.

Как в цикле поменять цвет определённых ячеек, по какому-либо условию?

Спасибо

Автор: Vex 19.6.2003, 23:54

Думаю, поймешь:

Код


Sub xxx()
Dim i As Integer

Range("B1:B10").Select
For i = 1 To 10

If i < 8 Then
ActiveCell.Rows.Item(i).Select
    With Selection.Interior
        .ColorIndex = i
        .Pattern = xlSolid
    End With
    Range("B1:B10").Select
   
    End If
       
Next
End Sub