只要A列单元格不为空值时，A列及后面的列就显示外框线

teywchy

详见附件，谢谢各位大神

zax010

Sub zz()
    a = Me.UsedRange.Columns.Count
    Me.UsedRange.Borders.LineStyle = xlNone
    For i = 1 To [a65536].End(3).Row
        If Cells(i, 1) <> "" Then
            Cells(i, 1).Resize(1, a).Borders.LineStyle = xlContinuous
        End If
    Next
End Sub

zax010

>>>>>>>>>>>>>>>>>>>>>>>>>



Book1.rar (14.88 KB, 下载次数: 22)

2017-4-6 15:39 上传

点击文件名下载附件

teywchy

zax010 发表于 2017-4-6 15:39
>>>>>>>>>>>>>>>>>>>>>>>>>

如果不要那个按钮，能让他自动识别吗？只要A列单元格有值，后面的自动显示框线

lsc900707

teywchy 发表于 2017-4-6 16:05
如果不要那个按钮，能让他自动识别吗？只要A列单元格有值，后面的自动显示框线

把代码直接换成工作表事件就好：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    a = Me.UsedRange.Columns.Count
    Me.UsedRange.Borders.LineStyle = xlNone
    For i = 1 To [a65536].End(3).Row
        If Cells(i, 1) <> "" Then
            Cells(i, 1).Resize(1, a).Borders.LineStyle = xlContinuous
        End If
    Next
End Sub

teywchy

lsc900707 发表于 2017-4-6 16:33
把代码直接换成工作表事件就好：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     ...

如果单元格最后行和最后列删除了值，能去掉外框吗？谢谢

lsc900707

teywchy 发表于 2017-4-6 17:24
如果单元格最后行和最后列删除了值，能去掉外框吗？谢谢

你试试就知道效果了>>>>>>>>>

teywchy

lsc900707 发表于 2017-4-6 17:25
你试试就知道效果了>>>>>>>>>

就是试了，删除值后外框还是有

lsc900707

teywchy 发表于 2017-4-6 17:44
就是试了，删除值后外框还是有

你开始要说明白的呀，试试这个看看：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     a = ActiveSheet.UsedRange.Find(what:="*", searchorder:=xlByColumns, searchdirection:=xlPrevious).Column
   
3.     ActiveSheet.UsedRange.Borders.LineStyle = xlNone
   
4.     For i = 1 To [a65536].End(3).Row
   
5.         If Cells(i, 1) <> "" Then
   
6.             Cells(i, 1).Resize(1, a).Borders.LineStyle = xlContinuous
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

zax010

才要回复，已有大神出手了，很好。