求VBA代码 excel中选中单元格，高亮显示这行每个单元格边框和整行！

显示全部楼层 · 2012-3-27 21:40:14

Private r1 As Long '前一个选定的行号public Const r0 = 65536 '可以调整为不使用的行号Private Sub Worksheet_SelectionChange(ByVal Target As Range)Application.EnableEvents = FalseIf r1 > 0 Then
Rows(r0).Copy
Rows(r1).PasteSpecial Paste:=xlPasteFormatsEnd Ifr1 = Target.RowRows(r1).CopyRows(r0).PasteSpecial Paste:=xlPasteFormat...

千问 · 2012-3-27 21:40:14

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveCell.CurrentRegion
.Interior.ColorIndex = 0
.Borders.LineStyle = 1
.Cells(Active...