不等於空白的儲存格畫框線 - Office不分區

[發問] 不等於空白的儲存格畫框線

1^# 跳轉到 »

發表於 2017-10-26 16:50 | 顯示全部帖子

回復 2# papaya

參考看看

Sub 畫框線2()
Columns("A:B").FormatConditions.Delete
With Columns("A:B").FormatConditions.Add(Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=""""")
With .Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub

複製代碼

2^#

發表於 2017-10-28 11:38 | 顯示全部帖子

回復 5# papaya

參考看看

Sub 畫框線3()
Columns("A:B").FormatConditions.Delete
With Columns("A:B").FormatConditions.Add(Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=""""")
.Borders.LineStyle = xlContinuous
End With
End Sub

複製代碼

搜尋功能可以多利用Google搜尋
搜尋特定網站
關鍵字+site:網站網址

3^#

發表於 2017-10-28 12:03 | 顯示全部帖子

回復 5# papaya

加註解

Sub 畫框線3()
Columns("A:B").FormatConditions.Delete '刪除A.B欄格式化條件
With Columns("A:B").FormatConditions.Add(Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=""""") '在A.B欄新增一個格式化條件，條件為儲存格不為空白
.Borders.LineStyle = xlContinuous '設定格式化條件的外框格式
End With
End Sub

複製代碼

靜思自在 : 發脾氣是短暫的發瘋。