如何用VBA给非空单元格所在的整行加上框线（感谢各位老师的回答）

蛮舞 · 发表于 2023-12-22 10:44

本帖最后由蛮舞于 2023-12-22 11:47 编辑

从B4列开始往下往下，只要是非空单元格，就给单元格所在的整行加上框线。这个上框线不会影响到其他行列单元格的复制粘贴。
目前我都是用条件格式达成这个效果的。但是表格内容的复制粘贴会影响到条件格式的使用区域，非常麻烦。所以求助各位大佬能不能用VBA直接做出这个效果
微信图片_20231222103651.png

3190496160 · 发表于 2023-12-22 10:56

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 3 And T.Column = 2 Then
If T.Count > 1 Then End
If T.Value = "" Then End
Rows(T.Row).Select
With Selection.Borders(xlEdgeTop)
      .LineStyle = xlContinuous
      .ColorIndex = 14
      .TintAndShade = 0
      .Weight = xlThin
End With
T.Select
End If
End Sub

3190496160 · 发表于 2023-12-22 10:57

给非空单元格整行加上框线.rar (26.25 KB, 下载次数: 11)

蛮舞 · 发表于 2023-12-22 11:08

3190496160 发表于 2023-12-22 10:57

非常感谢老师回答！我实验了一下，发现B列和C列的数据一起复制粘贴时，整行上框线就失灵了。而且其他单元格的复制黏贴还是带了上框线。且单元格的内容清空时。上框线也没有同步消失。可以达成那种上框线的出现和消失，只看整行B列有没有数据吗？

山菊花 · 发表于 2023-12-22 11:16

供参考。

3190496160 · 发表于 2023-12-22 11:24

蛮舞发表于 2023-12-22 11:08
非常感谢老师回答！我实验了一下，发现B列和C列的数据一起复制粘贴时，整行上框线就失灵了。而且其他单元 ...

认真看，目前的代码，只是在B列输入数据时才触发代码的，绝对不存在你说的在其他列输入也会加框线的情况的，
至于其他的，你事先没有表述清楚，别人不可能知道你心中的想法，

3190496160 · 发表于 2023-12-22 11:32

给非空单元格整行加上框线.rar (25.76 KB, 下载次数: 7)

蛮舞 · 发表于 2023-12-22 11:33

山菊花发表于 2023-12-22 11:16
供参考。

非常感谢老师的回答，目前条件大部分都满足了。但是，是在非空单元格所在的整行上加上框线，不是下框线……目前是加在下框线上了

蛮舞 · 发表于 2023-12-22 11:35

3190496160 发表于 2023-12-22 11:24
认真看，目前的代码，只是在B列输入数据时才触发代码的，绝对不存在你说的在其他列输入也会加框线的情况 ...

很抱歉我没表达清楚……其他列是复制粘贴到别的地方带了上框线了，不是输入加上了框线

山菊花 · 发表于 2023-12-22 11:39

把代码中括号并参数删去就是全部框线，楼上附件已更新。
Borders(xlEdgeBottom)

		自动登录	找回密码
密码			免费注册

[已解决] 如何用VBA给非空单元格所在的整行加上框线（感谢各位老师的回答）

评分