|
发表于 2013-1-8 20:53
|
显示全部楼层
本楼为最佳答案
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim i As Integer
- Dim rng As Range
- Dim LastRow&, arr
-
- Range("a2:n5000").Borders.LineStyle = xlNone
- LastRow = Cells(Rows.Count, 1)
- Set rng = Range("a1")
- arr = Range("a1:b" & LastRow)
- For i = 2 To LastRow
- If Len(arr(i, 1)) > 0 Then
- Set rng = Union(rng, Range(Cells(i, 1), Cells(i, 14)))
- End If
- Next
- With rng.Borders
- .LineStyle = xlContinuous
- .Weight = xlThin
- .ColorIndex = 5
- End With
- 'Sheets("1月").Range("a1").CurrentRegion.BorderAround xlContinuous, xlMedium, 5
- End Sub
复制代码 我没测,你给测测。 |
|