根据另一个单元格的值自动填充单元格，不带公式

Posted 2021-03-26

这些年来，我已经看到了几个电子表格，其中有一个空白的，未填充的，非公式的单元格，当另一个单元格被正确填充时，这些电子表格将会填充。我想知道是否有一种不使用附加组件或VBA的方法。

场景：

1. 要求用户在单元格A1中输入一个值。
2. 如果值为X，则单元格B1会填充一个值。
3. 如果值为Y，则单元格B1保持空白。

我知道这可以通过诸如=IF(A1="","",IF(A1=1234,"Hello 1234",""))的公式来完成。

但是，我想知道是否可以在单元格B1中没有公式的情况下执行此操作，但是仍然填充了单元格B1吗？

答案

根据您的描述，听起来这可能是您目睹的。可以将宏设置为在满足特定事件和条件时自动触发。在这种情况下，当您在单元格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