前幾天,韓老師發了一個一分鐘小視頻“錄入數據自動加邊框”: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
設置格式,添加邊框。即成!!
--------------------------------
韓老師自己的書,集合數萬名粉絲朋友的企事業實際問題,精挑細選而著,歡迎各位朋友們品鑑:
韓老師正在更新專欄,這幾天可以上新一折購買: