如何实现Excel单元格输入值后显示计算结果，选中时显示计算公式？

我明白你的需求啦——在A1输入一个数值后，单元格直接显示计算后的结果（比如输入3就显示10），但选中这个单元格时，能看到背后的计算公式（比如=3*3+1）。你之前的代码思路方向是对的，但直接给单元格赋值计算结果的话，单元格里只会留下数值，看不到公式。咱们调整一下代码逻辑，就能实现你要的效果：

方案1：自动触发（推荐，输入数值就生效） #

这种方式不用手动点宏，只要在A1输入数值，自动完成计算并设置公式：

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧的工程窗口里找到你的目标工作表（比如Sheet1），双击它打开代码编辑区
3. 把下面的代码粘贴进去：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只对A1单元格的变化做出反应
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        Dim originalNum As Double
        ' 先确认输入的是有效数值
        If IsNumeric(Target.Value) Then
            originalNum = Target.Value
            ' 临时禁用事件，避免设置公式时反复触发代码
            Application.EnableEvents = False
            ' 给A1设置公式，这样单元格显示结果，选中时编辑栏能看到公式
            Me.Range("A1").Formula = "=" & originalNum & "*3+1"
            ' 恢复事件功能
            Application.EnableEvents = True
        End If
    End If
End Sub

这段代码的逻辑很清晰：

• 监测A1的内容变化，只有当A1输入了数值时才执行后续操作
• 暂存你输入的原始数值，然后给A1设置包含这个数值的计算公式
• 禁用事件是为了防止设置公式时，A1内容变化再次触发代码，造成循环执行的问题

方案2：手动运行宏 #

如果你更习惯手动触发计算，可以用这个修改后的宏：

Sub CalculateA1()
    Dim inputVal As Double
    Dim formulaText As String
    
    ' 获取A1里的原始输入值
    inputVal = Range("A1").Value
    ' 拼接成计算公式字符串
    formulaText = "=" & inputVal & "*3+1"
    ' 给A1设置公式（不是直接赋值结果）
    Range("A1").Formula = formulaText
End Sub

运行这个宏后，A1会立刻显示计算结果，选中它时，编辑栏就会显示对应的计算公式啦。

小提醒：如果你的需求是单元格本身在选中时显示公式、未选中时显示结果，这种操作需要用到SelectionChange事件配合条件格式，但这属于比较特殊的需求，通常咱们用编辑栏查看公式就足够啦，上面的方案已经能满足绝大多数场景的需求。

内容的提问来源于stack exchange，提问作者EKC