- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- On Error GoTo errorhandler
- Dim rng As Range
- Set rng = Application.Intersect([_CF36], ActiveCell)
- If Not rng Is Nothing Then
- Range("_SF").Value = Cells(Selection.Row, 2).Value
- Range("_CF36").Interior.ColorIndex = xlNone
- Range(Cells(Selection.Row, 4), Cells(Selection.Row, 13)).Interior.ColorIndex = 35
- End If
- errorhandler:
- Exit Sub
- End Sub
复制代码 |
|
hessen