根据输入的值更改单元格的值答案

【问题标题】：Change the value of cell based on the value inputted根据输入的值更改单元格的值
【发布时间】：2014-03-18 18:00:11
【问题描述】：

我正在尝试根据用户在单元格中输入的内容创建公式语句。如果用户输入0、1 或2，则 THE SAME 单元格的值需要更改。例如：

如果用户在 E2 单元格中输入“1”，则需要更改为“2500”
如果用户在单元格 E2 中输入“0”，则需要保持在 0
如果用户在 E2 单元格中输入“2”，则需要更改为“5000”

这可能实现吗？
如果是，需要什么公式？我尝试了不同的方法但没有运气，因为我不断收到循环错误。这是否意味着这是不可能的？
可能使用 VBA？

【问题讨论】：

你需要 VBA（脚本）来做这样的事情。单元格包含未进一步处理的纯数据或公式，不能同时包含两者，除非您正在运行脚本来执行任何处理。
谢谢你，我想它会归结为这一点。您知道如何使用 VBA 实现这一目标吗？
我没有以任何方式实现这一目标，所以我对如何让它发挥作用完全开放。您能告诉我如何使用其中任何一个选项来实现它吗？

标签： excel vba validation excel-formula vlookup

【解决方案1】：

例如：

=VLOOKUP(A8,$C$1:$D$3,2,0)

在 A9 中，将根据方框中所示的小查找表以蓝色响应触发值。

有验证，在A1，数据，数据验证，数据验证...，设置，允许列表，源0,2500,5000OK。这将创建一个小的下拉箭头，单击该箭头将打开一个小窗口，从中只能选择三个指定值中的一个。

【讨论】：

【解决方案2】：

您将不得不使用一些 VBA 来解决这个问题；特别是Worksheet_Change 事件宏。如果您用值过度键入公式，公式将无法重写它们所在的单元格。

右键单击工作表的名称选项卡并选择查看代码。当 VBE 打开时，将以下内容粘贴到标题为 Book1 - Sheet1 (Code) 的工作表代码窗格中。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E2")) Is Nothing Then
        On Error GoTo bm_Safe_Exit
        Application.EnableEvents = False
        With Range("E2")
            Select Case .Value2
                Case 0
                    'do nothing
                Case 1
                    .Value = 2500
                Case 2
                    .Value = 5000
                Case Else
                    'possibly clear the cell contents as undesirable
                    '.ClearContents
            End Select
        End With
    End If

bm_Safe_Exit:
        Application.EnableEvents = True
End Sub

我留下了一个注释代码行来删除任何不是 0、1 或 2 的条目。如果这是首选行为，请取消注释。

点击 Alt+Q 返回工作表。将这三个值中的任何一个键入 E2 都应该会得到所需的结果。

请注意，Application.EnableEvents property 暂时关闭。这是因为您正在更改工作表上的值，并希望避免启动另一个事件，该事件会尝试让例程自行运行。

【讨论】：