改变了列的规律,不知道形态栏怎么取,稍微改了一下: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Range("C5:AV65536"), Target) Is Nothing Then Exit Sub If Target.Interior.ColorIndex = 7 Then Target.Interior.ColorIndex = 43 If Len(Target) <> 0 Then Cells(4, Target.Column) = Target Else If Target.Column > 15 Then Cells(4, Target.Column) = (Target.Column - 16) Mod 10 Else Cells(4, Target.Column) = (Target.Column - 3) Mod 10 End If End If Else Target.Interior.ColorIndex = 7 Cells(4, Target.Column) = "" End If End Sub
|