前幾天，韓老師發了一個一分鐘小視頻“錄入數據自動加邊框”：
Excel錄入數據時自動添加邊框，省力省時，何樂而不為？有朋友問：有沒有VBA方法，可以使得整個工作表錄入數據時自動加邊框？
韓老師今天將代碼寫在這裡。
VBA
打開VBA窗口，輸入代碼：
<code>Private Sub Worksheet_Change(ByVal Target As Range)
For Each a In UsedRange
If a <> "" Then
a.Borders.LineStyle = xlContinuous
ElseIf a = "" Then
a.Borders.LineStyle = xlNone
End If
Next
End Sub/<code>如下圖：
結果如下：
條件格式
有些朋友說VBA太難了，看不懂代碼，也想實現數據輸入到哪裡，哪個單元格就有邊框，刪除數據，邊框自動消失。
也有辦法，就是用條件格式：
選中整個工作表，只需點工作表左上角的行列交叉處的小三角，如圖：
然後在“開始”菜單中選擇“條件格式”，在“使用公式確定要設置格式的單元格”，在“為符合此公式的值設置格式”輸入入公式”=A1<>""：
設置格式，添加邊框。即成！！
--------------------------------
韓老師自己的書，集合數萬名粉絲朋友的企事業實際問題，精挑細選而著，歡迎各位朋友們品鑑：
韓老師正在更新專欄，這幾天可以上新一折購買：
分享到:
