Board logo

標題: [發問] 設定格式化的條件 [打印本頁]
作者: RJR    時間: 2010-8-29 11:05     標題: 設定格式化的條件

例如一張工作表資料如下：
　　　　　Ａ　　　　Ｂ　　　Ｃ　　　Ｄ
　１　2010/9/1　09:00　ＡＡＡ　ＡＡＡＡ
　２　2010/9/1　09:00　ＢＢＢ　ＢＢＢＢ
　３　2010/9/1　11:00　ＣＣＣ　ＣＣＣＣ
　４　2010/9/1　11:00　ＤＤＤ　ＤＤＤＤ
　５　2010/9/1　15:00　ＥＥＥ　ＥＥＥＥ
　６　2010/9/1　15:00　ＦＦＦ　ＦＦＦＦ
　７　2010/9/2　09:15　ＧＧＧ　ＧＧＧＧ
　８　2010/9/2　09:15　ＨＨＨ　ＨＨＨＨ
　９　2010/9/2　15:00　ＩＩＩ　ＩＩＩＩ
１０　2010/9/2　15:00　ＪＪＪ　ＪＪＪＪ
１１　2010/9/2　16:30　ＫＫＫ　ＫＫＫＫ
１２　2010/9/2　16:30　ＬＬＬ　ＬＬＬＬ
１３　2010/9/3　10:00　ＭＭＭ　ＭＭＭＭ
１４　2010/9/3　10:00　ＮＮＮ　ＮＮＮＮ
１５　2010/9/3　12:00　ＯＯＯ　ＯＯＯＯ
１６　2010/9/3　12:00　ＰＰＰ　ＰＰＰＰ
１７　2010/9/3　15:00　ＱＱＱ　ＱＱＱＱ
１８　2010/9/3　15:00　ＲＲＲ　ＲＲＲＲ
１９　2010/9/3　17:00　ＳＳＳ　ＳＳＳＳ
２０　2010/9/3　17:00　ＴＴＴ　ＴＴＴＴ

我需要在每天之間一整列畫一條粗實線，以及在每逢15:00的上方畫一條雙線
效果如下：

　　　　　Ａ　　　　Ｂ　　　Ｃ　　　Ｄ
　１　2010/9/1　09:00　ＡＡＡ　ＡＡＡＡ
　２　2010/9/1　09:00　ＢＢＢ　ＢＢＢＢ
　３　2010/9/1　11:00　ＣＣＣ　ＣＣＣＣ
　４　2010/9/1　11:00　ＤＤＤ　ＤＤＤＤ
═════════════════════════════
　５　2010/9/1　15:00　ＥＥＥ　ＥＥＥＥ
　６　2010/9/1　15:00　ＦＦＦ　ＦＦＦＦ
─────────────────────────────
　７　2010/9/2　09:15　ＧＧＧ　ＧＧＧＧ
　８　2010/9/2　09:15　ＨＨＨ　ＨＨＨＨ
═════════════════════════════
　９　2010/9/2　15:00　ＩＩＩ　ＩＩＩＩ
１０　2010/9/2　15:00　ＪＪＪ　ＪＪＪＪ
１１　2010/9/2　16:30　ＫＫＫ　ＫＫＫＫ
１２　2010/9/2　16:30　ＬＬＬ　ＬＬＬＬ
─────────────────────────────
１３　2010/9/3　10:00　ＭＭＭ　ＭＭＭＭ
１４　2010/9/3　10:00　ＮＮＮ　ＮＮＮＮ
１５　2010/9/3　12:00　ＯＯＯ　ＯＯＯＯ
１６　2010/9/3　12:00　ＰＰＰ　ＰＰＰＰ
═════════════════════════════
１７　2010/9/3　15:00　ＱＱＱ　ＱＱＱＱ
１８　2010/9/3　15:00　ＲＲＲ　ＲＲＲＲ
１９　2010/9/3　17:00　ＳＳＳ　ＳＳＳＳ
２０　2010/9/3　17:00　ＴＴＴ　ＴＴＴＴ

請問應如何設置才能顯示如此效果呢？
拜謝∼
作者: GBKEE    時間: 2010-8-29 14:46

回復 1# RJR
設定格式化的條件1 公式  =AND(TEXT($B1,"hh:mm")="15:00",TEXT($B65536,"hh:mm")<>"15:00")
設定格式化的條件2 公式  =$A1<>$A2
選定範圍後作用中儲存格 如圖   


[attach]2626[/attach]

2003版本 設定格式化的條件, 外框的格式沒有 雙橫線可設 .試試vba
  1. Sub Ex()
  2.     Dim Rng As Range, E As Range, T As Boolean
  3.     Set Rng = ActiveSheet.Range("A1:D" & ActiveSheet.[A1].End(xlDown).Row)
  4.     T = False
  5.     Rng.Borders.LineStyle = xlNone
  6.     For Each E In Rng.Rows
  7.         If E.Cells(1, 1) = E.Cells(2, 1) And E.Cells(1, 2) = TimeValue("15:00") And T = False Then
  8.             T = True
  9.             E.Borders(xlTop).LineStyle = xlDouble
  10.         ElseIf E.Cells(1, 1) <> E.Cells(2, 1) And E.Row <> Rng.Cells(Rng.Count).Row Then
  11.              E.Borders(xlEdgeBottom).LineStyle = xlContinuous
  12.              T = False
  13.         End If
  14.     Next
  15. End Sub
複製代碼
作者: RJR    時間: 2010-8-29 17:02

本帖最後由 RJR 於 2010-8-29 17:06 編輯

回復 2# GBKEE

感謝GBKEE撥冗回覆！

但還有少許的疑問，
首先是間隔不同日子的實線並非粗線（儲存格Ctrl+1→外框→線條樣式→右邊倒數第二的那種），
所以想請問若需要粗實線的話，應怎樣設置？

另外是其實我的原文件中每列均有虛線，
VBA中的「Rng.Borders.LineStyle = xlNone」似乎會把虛線消掉，應如何解決？

拜謝∼∼
作者: Hsieh    時間: 2010-8-29 22:16

回復 3# RJR
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim A As Range
  3. For Each A In Range([B2], [B65536].End(xlUp))
  4.    With A.Offset(, -1).Resize(, 4).Borders(xlEdgeTop)
  5.    If A = TimeValue("15:00:00") And A.Offset(-1, 0) <> TimeValue("15:00:00") Then
  6.       .LineStyle = xlDouble
  7.       ElseIf A.Offset(, -1) <> A.Offset(-1, -1) Then
  8.       .LineStyle = 1
  9.       .Weight = xlThick
  10.       Else
  11.       .LineStyle = 2
  12.       .Weight = xlThin
  13.       End If
  14.    End With
  15. Next
  16. End Sub
複製代碼
作者: RJR    時間: 2010-8-31 20:28

回復 4# Hsieh

感謝您的撥冗回覆，
問題成功解決，
謝謝您。



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)