EXCEL 宏 制作 活动单元格所在的行下面显示横线

来源：百度知道 编辑：UC知道 时间：2024/06/21 16:24:34
请教高手：如何制作一个宏，
能使当前活动单元格所在的行下面显示一突出的横线，能让清楚地看清当前单元格所在的行，
等活动单元格变动后，上次单元格所在的横线消失，而新的活动单元格所在的行下面显示横线。
哪位高手帮我做一个宏阿
还没有人回答，提问分数

楼上的都不对，至于wodaxiaopengyo 的，则删除了所有格式。
所以这个问题看着简单，实际困难，
1、选中单元格后加横线，用边框的方式还是用下划线或删除线的方式比较好？
2、如果原先单元格有横线或下标线等？那么当焦点改变了之后，如何处理？
3、楼上的2个都没有涉及到等活动单元格变动后，上次单元格所在的横线消失，这一点！

只给你个提示，

先录制个设置单元格边框的宏，然后把它修改后放到worksheet_Change事件中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.ClearFormats
Target.EntireRow.Borders(xlEdgeBottom).LineStyle = xlContinuous
End Sub

右键点工作表标签名称位置点查看代码，将下面代码粘贴其中，关闭VBA窗口即可：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Cells.Borders.LineStyle = xlNone

With Rows(Target.Row).Borders(xlEdgeBottom)
.LineStyle = xlDot
.Weight = xlThick
.ColorIndex = xlAutomatic
End With

Application.ScreenUpdating = True
End Sub

如果工作原来有格式设置，那么上面的代码就不太合适，本人推荐使用下面的方法：
首先在工作表中用绘图工具画一条水平直线长度可根据表格宽度设置好，并设置好颜色和粗细（如蓝色，粗细为1磅）
然后在工作表的