- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# RJR
設定格式化的條件1 公式 =AND(TEXT($B1,"hh:mm")="15:00",TEXT($B65536,"hh:mm")<>"15:00")
設定格式化的條件2 公式 =$A1<>$A2
選定範圍後作用中儲存格 如圖
2003版本 設定格式化的條件, 外框的格式沒有 雙橫線可設 .試試vba
- Sub Ex()
- Dim Rng As Range, E As Range, T As Boolean
- Set Rng = ActiveSheet.Range("A1:D" & ActiveSheet.[A1].End(xlDown).Row)
- T = False
- Rng.Borders.LineStyle = xlNone
- For Each E In Rng.Rows
- If E.Cells(1, 1) = E.Cells(2, 1) And E.Cells(1, 2) = TimeValue("15:00") And T = False Then
- T = True
- E.Borders(xlTop).LineStyle = xlDouble
- ElseIf E.Cells(1, 1) <> E.Cells(2, 1) And E.Row <> Rng.Cells(Rng.Count).Row Then
- E.Borders(xlEdgeBottom).LineStyle = xlContinuous
- T = False
- End If
- Next
- End Sub
|
|
發表於 2010-8-29 14:46
| 