Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Application.IsNA(Target(1, 3)) Then
Application.Speech.Speak "未找到"
End If
End Sub
