设置主页 | 收藏本站 Excel学习网-公益型的EXCEL在线学习网站,助您轻松办公!

Excel VBA与条件格式—录数据自动加边框,删数据自动去除边框

2020年09月21日 18:44 发布来源:Excel学习网

 有朋友问:有没有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

如下图:

Excel | VBA与条件格式—录数据自动加边框,删数据自动去除边框

 

结果如下:

Excel | VBA与条件格式—录数据自动加边框,删数据自动去除边框

 

条件格式

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

也有办法,就是用条件格式:

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

Excel | VBA与条件格式—录数据自动加边框,删数据自动去除边框

 

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

Excel | VBA与条件格式—录数据自动加边框,删数据自动去除边框

 

设置格式,添加边框。即成!!

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

原创文章如转载请注明:转载自Excel学习网 [ http://www.excelcn.com/]
需要保留本文链接地址:http://www.excelcn.com/xuexixinde/12841.html
分享到:
网站地图 | XML地图 | 免责声明 | 关于我们 | Excel学习网:优秀的EXCEL在线学习和资源分享网站。
版权所有: CopyRight © 2013-2018 www.excelcn.com All Rights Reserved.
豫ICP备12002644号