有朋友问：有没有VBA方法，可以使得整个工作表录入数据时自动加边框？

韩老师今天将代码写在这里。

VBA

打开VBA窗口，输入代码：

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 IfNextEnd Sub

如下图：

 

结果如下：

 

条件格式

有些朋友说VBA太难了，看不懂代码，也想实现数据输入到哪里，哪个单元格就有边框，删除数据，边框自动消失。

也有办法，就是用条件格式：

选中整个工作表，只需点工作表左上角的行列交叉处的小三角，如图：

 

然后在“开始”菜单中选择“条件格式”，在“使用公式确定要设置格式的单元格”，在“为符合此公式的值设置格式”输入入公式”=A1<>""：

 

设置格式，添加边框。即成！！

--------------------------------