VBA怎么删除数据自动去除边框

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

如下图:

保存为启用宏的“.xlsm”文件。

这样能实现在工作表中输入数据自动加边框,如果数据删除,边框自动消失。

如下:

另:如果你实在不想使用VBA,而想使整个工作表中单元格的边框会随着数据的添加与删除而自动添加或者去除,可以选中整个工作表设置条件格式。

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

然后在条件格式中输入入公式”=A1<>””:

即可达到效果。

阅读已结束,喜欢的话就点个赞吧
注册坚果云网盘
还有其他问题,可以咨询小坚果咨询小坚果
赞(0)
网站部分内容和图片来源于网络如有侵权请联系我们删除:坚果芸 » VBA怎么删除数据自动去除边框
分享到: 更多 (0)
VBA怎么删除数据自动去除边框

本文链接:VBA怎么删除数据自动去除边框https://content.officeapi.cn/23817.html

坚果云 便捷、安全的网盘产品

免费试用下载客户端