VBA代码:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim arr, i%
If Target.Column = 2 Then
Range("b:b").Interior.ColorIndex = xlNone
[URL=upload/日记账(帐簿格式).rar]日记账(帐簿格式).rar[/URL]
[<] [225] [226] 227 [228] [229] [>]