Execl 設定格式化條件??

假設你的工作表是 Sheet1, 欄是 A, 列是1至10

入到 Sheet1 按 Alt+F11

輸入:

Private Sub Worksheet_Activate()
Dim i As Integer
Dim firstRow As Integer
Dim lastRow As Integer
Dim column As String * 1

firstRow = 1 '第一列數
lastRow = 10 '最後列數
column = "A" '欄名

For i = firstRow To lastRow
If IsDate(Range(column & i).Value) = True Then
If Range(column & i).Value < Date Then
Range(column & i).Font.ColorIndex = 3
Else
Range(column & i).Font.ColorIndex = 1
End If
End If
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Call Worksheet_Activate
End Sub


希望可以幫你

In addition....

If you want to use 'current date' as the guide, then you can put in =today() in one cell, and reference to this cell when doing conditional formatting.

首先係highlight你要做嘢果行

格式>設定格式化條件

第一格揀儲存格的值
中間果格揀小於
第三格係側邊有個掣，之後揀你要少於幾多等於過期
跟住禁下面格式掣揀顏色
再禁確定就搞掂喇