通过VBA对Excel所选单元格的所在行列进行高亮显示

时　间:2011-07-15 00:00:00
作　者:叶海峰   ID：31  城市：广州
摘　要:通过VBA对所选单元格的所在行列进行高亮显示
正　文:

      在网上搜索了一下,发现Excel实现该功能的思路都是通过单元格的条件格式来进行填色处理,现在提供另外一种VBA代码的方法(打开excel文件,按alt+f11快捷键进入代码区,将下列代码复制到你所需要的工作表代码区):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim colstr As String
    With Target
        colstr = Mid(.Address, 2, InStr(2, .Address, "$") - 2)
        Range(ActiveCell.Address & "," & colstr & ":" & colstr & "," & .Row & ":" & .Row).Select
    End With
End Sub