A B C
1 0
2 0
3 1 OK
4 0
5 0
6 0
7 1 0K
8 0
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
ThisRow = Target.Row
If Target.Value = 1 Then
Range("B" & ThisRow) = "OK"
Else
End If
End If
End Sub
A栏如果不是公式，数字由0改1会显式OK
A栏如果是excel公式，0变1不会显式OK
请问VBA公式如何修正为:A栏如果是excel公式，0变1会显式OK