Я сделал это с помощью VBA (Alt + F11).Щелкните правой кнопкой мыши на листе, в котором вы хотите его найти, и нажмите «Просмотреть код».Вставьте это в свой модуль Sheet
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then
'if target is more than 1 cell
Else
If Target.Address(False, False) = "A1" Then
If Target = "Test" Then
MsgBox "result1"
Else
If Target = "Test1" Then
MsgBox "result2"
Else
MsgBox "result3"
End If
End If
End If
End If
End Sub