Excel. Программно окрасить ячейки.

← →
worldmen © (2006-06-26 11:34) [0]

В одном столбце Exel файла стоит дата. Мне нужно, чтобы ячейка окрашивалась в другой цвет если эта дата близка к настоящей.
Меня интересует окрашивание ячеек, можно ли это сделать и как.
Если кто ответит на ВЕСЬ вопрос - Огромное вам спасибо.

← →
k2 © (2006-06-26 11:38) [1]

условное форматирование, близка понятие растяжимое

← →
Red_imp © (2006-06-26 11:39) [2]

Можно пиши скрипт который будет реализовывать данную функицю.

← →
Calm © (2006-06-26 11:39) [3]

записываешь макрос и смотришь, что получилось. Делаешь так же.

← →
alles © (2006-06-26 11:40) [4]

Sub Macro1()
Range("C3").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
End Sub

← →
alles © (2006-06-26 11:41) [5]

Sub Macro2()
Columns("B:B").Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
End Sub

← →
worldmen © (2006-06-26 12:24) [6]

> alles © (26.06.06 11:41) [5]
> Sub Macro2()
Хорошо. Макрос написал, сохранил. А как его выполнить по условию.

← →
worldmen © (2006-06-26 12:50) [7]

Или как сделать цикл по ячейкам столбца сместо:
Columns("B:B").Select

Private Sub CommandButton1_Click()
Dim i As Integer
"Sheet1- имя страницы
For i = 3 To 10
Worksheets("Sheet1").Cells(i, 2).Select
Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

Next i
End Sub

Сравнить даты
Private Sub CommandButton1_Click()
Dim i As Integer
Dim date1 As Date

date1 = "21.06.2006"

For i = 3 To 10
Worksheets("Sheet1").Cells(i, 2).Select
Selection.Font.ColorIndex = 3
If Format(Date, "dd.mm.yyyy") < date1 Then
Selection.Interior.ColorIndex = 6
Else
Selection.Interior.ColorIndex = 5
End If
Selection.Interior.Pattern = xlSolid

Worksheets("Sheet1").Cells(i, 2) = Format(Date, "dd.mm.yyyy")
date1 = date1 + 1

Next i
End Sub

Excel. Программно окрасить ячейки. Найти похожие ветки