[發問] 設定格式化的條件

例如一張工作表資料如下：
　　　　　Ａ　　　　Ｂ　　　Ｃ　　　Ｄ
　１　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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-8-29 14:46 | 只看該作者

回復 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

複製代碼

TOP

RJR

小學生 Rank: 1

帖子: 11
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: xp
軟體版本: 2000
閱讀權限: 10
性別: 女
註冊時間: 2010-8-28
最後登錄: 2010-9-12

3^#

發表於 2010-8-29 17:02 | 只看該作者

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

回復 2# GBKEE

感謝GBKEE撥冗回覆！

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

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

拜謝～～

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章