返回列表 上一主題 發帖

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

RJR

帖子
11 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
xp 
軟體版本
2000 
閱讀權限
10 
性別
女 
註冊時間
2010-8-28 
最後登錄
2010-9-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
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
  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
複製代碼

TOP

RJR

帖子
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

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

RJR

帖子
11 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
xp 
軟體版本
2000 
閱讀權限
10 
性別
女 
註冊時間
2010-8-28 
最後登錄
2010-9-12 
5#
發表於 2010-8-31 20:28 | 只看該作者
回復 4# Hsieh

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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題