返回列表 上一主題 發帖

判定然後畫上邊框的問題

kitjai112

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
Win7 
軟體版本
2007 
閱讀權限
10 
註冊時間
2015-2-21 
最後登錄
2015-2-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-21 17:50 | 只看該作者

判定然後畫上邊框的問題

請問各位如何可以判定儲存格的數值，
然後令到其他格出現粗邊框？

比如Ａ１格　＞０，然後Ｃ２－Ｃ６就出現上邊框
如果Ａ１＝０，Ｃ２－Ｃ６就不出現邊框
收藏 分享

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-2-21 18:41 | 只看該作者
回復 1# kitjai112
  1. Sub 巨集1()
  2. Range("C1:E1").Borders.LineStyle = xlContinuous '連續線
  3. Range("C3:E3").Borders.LineStyle = xlDash '虛線
  4. Range("C5:E5").Borders.LineStyle = xlDashDot '交替的虛線與點
  5. Range("C7:E7").Borders.LineStyle = xlDashDotDot '虛線後接兩點
  6. Range("C9:E9").Borders.LineStyle = xlDot '點狀線
  7. Range("C11:E11").Borders.LineStyle = xlDouble '雙線
  8. Range("C13:E13").Borders.LineStyle = xlLineStyleNone '無線條
  9. Range("C15:E15").Borders.LineStyle = xlSlantDashDot '斜虛線
  10. End Sub
  11. '給你參考
複製代碼

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2015-2-21 18:49 | 只看該作者
回復 1# kitjai112

Range("C17:E17").Borders(xlDiagonalDown).LineStyle = xlSlantDashDot '()中的則是要劃框線的哪一邊
'名稱                              值          描述
'xlDiagonalDown       5           從範圍內各儲存格左上角延伸到右下角的框線
'xlDiagonalUp            6           從範圍內各儲存格左下角延伸到右上角的框線
'xlEdgeBottom           9           位於範圍底部的框線
'xlEdgeLeft                  7           位於範圍左緣的框線
'xlEdgeRight              10          位於範圍右緣的框線
'xlEdgeTop                 8            位於範圍頂端的框線
'xlInsideHorizontal  12           範圍中所有儲存格的水平格線，但超出範圍的框線除外
'xlInsideVertical       11           範圍中所有儲存格的垂直框線，但超出範圍的框線除外

TOP

kitjai112

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
Win7 
軟體版本
2007 
閱讀權限
10 
註冊時間
2015-2-21 
最後登錄
2015-2-22 
4#
發表於 2015-2-21 19:11 | 只看該作者
回復  kitjai112

Range("C17:E17").Borders(xlDiagonalDown).LineStyle = xlSlantDashDot '()中的則是要 ...
lpk187 發表於 2015-2-21 18:49


謝謝！那麼要做到在Ａ１格輸入＞０的數值時才出現線要怎樣寫？

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2015-2-21 19:45 | 只看該作者
回復 4# kitjai112


    寫公式函數我不會底下都是VBA執行的
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address = Range("A1").Address Then
  3.     If Range("A1") > 0 Then
  4.             Range("C2:C6").Borders.LineStyle = xlContinuous '連續線
  5.         Else
  6.             Range("C2:C6").Borders.LineStyle = xlLineStyleNone '無枉線
  7.         End If
  8. End If
  9. End Sub
複製代碼

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
6#
發表於 2015-2-21 19:54 | 只看該作者
回復 4# kitjai112
又或則這樣
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Range("A1") > 0 Then
  3.             Range("C2:C6").Borders.LineStyle = xlContinuous '連續線
  4.         Else
  5.             Range("C2:C6").Borders.LineStyle = xlLineStyleNone '無枉線
  6.         End If
  7. End Sub
複製代碼

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
7#
發表於 2015-2-21 20:01 | 只看該作者
回復 4# kitjai112
上面第一個是要在[A1]輸入數值才有變化
第二個則是只要在同一張任何一個儲存格變化才有變化，下面這個則是只要自動計算啟動時就會有變化
  1. Private Sub Worksheet_Calculate()
  2.     If Range("A1") > 0 Then
  3.             Range("C2:C6").Borders.LineStyle = xlContinuous '連續線
  4.         Else
  5.             Range("C2:C6").Borders.LineStyle = xlLineStyleNone '無枉線
  6.     End If
  7. End Sub
複製代碼

TOP

kitjai112

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
Win7 
軟體版本
2007 
閱讀權限
10 
註冊時間
2015-2-21 
最後登錄
2015-2-22 
8#
發表於 2015-2-22 00:42 | 只看該作者
啊謝謝你！但為甚麼會出現「引數不是選擇性的」？

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
9#
發表於 2015-2-22 01:35 | 只看該作者
回復 8# kitjai112


    應該是你貼錯地方了，以上的SUB全都是Worksheet的事件程序中！

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題