两种做法:
正向做,输入完公式,前面加一个 ',就会显示公式
在后一个单元格显示数值就需要配合VBA
代码放到Sheet1中的VBE中
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Sheet1.Range("A1")
If Not Application.Intersect(Target, rng) Is Nothing Then
Range("B1").Value = Application.Evaluate(Range("A1").Value)
End If
End Sub
反向做法:
在后一个单元格写公式,在前一个单元格提取后一个单元格的公式
提取公式可以使用VBA函数,代码放在模块中
Function Hasf(rng As Range)
If rng.HasFormula Then
Hasf = rng.Formula
Else
Hasf = ""
End If
End Function
或者用宏表函数:定位到B1,Ctrl+F3定义一个名称 公式
引用位置写为 =Get.Cell(6,B1)
然后在前一个单元格A1写入 =公式
比如 a1单元格 为 3,b1单元格为7,在C1单元格中输入 =a1&"*"&b1&"="&a1*b1
C1中显示的就是 3*7=21
不知道是否你要的
还有就是上面提的用vba。VBA的单元格事件