求excel vba代码，当选定了a1:c1，运行宏自动把单元格加底线。
展开全部
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1:$C$1" Then
Target.Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
End Sub
If Target.Address = "$A$1:$C$1" Then
Target.Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
End Sub
追问
能否把a1:c1改为当前选择范围的单元格?
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
