Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
If Len(Target.Value) > 0 Then
With Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Borders
.LineStyle = xlContinuous
End With
Else
With Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Borders
.LineStyle = xlLineStyleNone
End With
End If
End If
End Sub
Terget.column=1改成2就可以了,因为你第1列是用公式生成的。
其实还有一个更好的方法,就是用条件格式,这个更方便。