扫黑除恶湖南组 发表于 2019-4-29 21:46:53

Excel十字光标代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex=xlNone
    Rows(Target.Row).Interior.Color = RGB(255, 0, 0)
    Columns(Target.Column).Interior.Color = RGB(0, 0, 255)
End Sub
注意:行与列的颜色条可以自己修改颜色,由RGB(X,Y,Z)设定。
页: [1]
查看完整版本: Excel十字光标代码