麻辣家族討論版版 » Excel程式區 » 判定然後畫上邊框的問題

返回列表下一主題上一主題發帖

判定然後畫上邊框的問題

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: Win7
軟體版本: 2007
閱讀權限: 10
註冊時間: 2015-2-21
最後登錄: 2015-2-22

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-2-21 17:50 | 只看該作者

判定然後畫上邊框的問題

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

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

收藏

高中生 Rank: 3 Rank: 3

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

Sub 巨集1()
Range("C1:E1").Borders.LineStyle = xlContinuous '連續線
Range("C3:E3").Borders.LineStyle = xlDash '虛線
Range("C5:E5").Borders.LineStyle = xlDashDot '交替的虛線與點
Range("C7:E7").Borders.LineStyle = xlDashDotDot '虛線後接兩點
Range("C9:E9").Borders.LineStyle = xlDot '點狀線
Range("C11:E11").Borders.LineStyle = xlDouble '雙線
Range("C13:E13").Borders.LineStyle = xlLineStyleNone '無線條
Range("C15:E15").Borders.LineStyle = xlSlantDashDot '斜虛線
End Sub
'給你參考

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 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          範圍中所有儲存格的垂直框線，但超出範圍的框線除外

小學生 Rank: 1

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

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

高中生 Rank: 3 Rank: 3

帖子: 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執行的

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If Range("A1") > 0 Then
Range("C2:C6").Borders.LineStyle = xlContinuous '連續線
Else
Range("C2:C6").Borders.LineStyle = xlLineStyleNone '無枉線
End If
End If
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 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
又或則這樣

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") > 0 Then
Range("C2:C6").Borders.LineStyle = xlContinuous '連續線
Else
Range("C2:C6").Borders.LineStyle = xlLineStyleNone '無枉線
End If
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 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]輸入數值才有變化
第二個則是只要在同一張任何一個儲存格變化才有變化，下面這個則是只要自動計算啟動時就會有變化

Private Sub Worksheet_Calculate()
If Range("A1") > 0 Then
Range("C2:C6").Borders.LineStyle = xlContinuous '連續線
Else
Range("C2:C6").Borders.LineStyle = xlLineStyleNone '無枉線
End If
End Sub

複製代碼

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: Win7
軟體版本: 2007
閱讀權限: 10
註冊時間: 2015-2-21
最後登錄: 2015-2-22

8^#

發表於 2015-2-22 00:42 | 只看該作者

啊謝謝你！但為甚麼會出現「引數不是選擇性的」？

高中生 Rank: 3 Rank: 3

帖子: 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的事件程序中！

靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。

返回列表下一主題上一主題