Автоматически заполнять ячейку, основываясь на значении другой ячейки, без формул

Question

За эти годы я видел пару электронных таблиц, в которых была пустая незаполненная ячейка без формулы, которая заполнялась бы при правильном заполнении другой ячейки. Мне интересно, есть ли способ сделать это без использования надстроек или VBA.

Сценарий:

1. Пользователю предлагается ввести значение в ячейку A1.
2. Если значение равно X, ячейка B1 заполняется значением.
3. Если значение равно Y, ячейка B1 остается пустой.

Я знаю, что это можно сделать с формулой, такой как =IF(A1="","",IF(A1=1234,"Hello 1234","")).

Однако мне интересно, можно ли сделать это без формулы в ячейке B1, но все же заполнить ячейку B1?

Answer 1

Из вашего описания звучит так, как будто это то, что вы видели. Макросы можно настроить так, чтобы они запускались автоматически при соблюдении определенных событий и критериев. В этом случае макрос сработает, когда вы сделаете Worksheet_Change в ячейке A1.

Обратите внимание, что изменение A1 должно быть ручным для запуска макроса - изменение по формуле не будет достаточно для запуска макроса

---

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then
    If Target = "X" Then
        Range("B1") = "X Result"
    ElseIf Target = "Y" Then
        Range("B1") = "Y Result"
    End If
End If

End Sub