Скачать: CL | DM;

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

---

← →
alles ©   (2006-06-26 13:15) [8]

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

---

← →
alles ©   (2006-06-26 13:24) [9]

Сравнить даты
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

---

← →
worldmen ©   (2006-06-26 19:12) [10]

> alles ©   (26.06.06 13:24) [9]
Спасибо за полный ответ. То что нужно.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.036 c