Excel中如何将计算公式变成数值？如其中一个单元格是3*4+6, 如何在另一个单元格中出来结果18?谢谢！

Excel中如何将计算公式变成数值？如其中一个单元格是3*4+6, 如何在另一个单元格中出来结果18?谢谢！~

excel好像没有这样的公式哦。据我所知，是没有的。
用vba可以实现

按alt+f11，进入vba编辑器，插入一个模块，把下面我以前写的这个函数拷贝进去。
然后在公式中输入，=getgs(a1),就可以了。程序比较简单，只能算加减乘除，复杂的我也不会，呵呵。

Public Function GetGS(GS As String) As String
Dim P(256) As String, ps As Long, p1(256) As String, pd As Long, p2(256) As String, pc As Long
Dim k As Double, f As Boolean

a = Replace(GS, "＝", "=")
a = Replace(a, "＋", "+")
a = Replace(a, "－", "-")
a = Replace(a, "×", "*")
a = Replace(a, "÷", "/")
a = Replace(a, "。", ".")

For i = 1 To Len(a)
b = Mid(a, i, 1)
Select Case b
Case "+", "-", "*", "/"
If Not f Then
ps = ps + 1
P(ps) = b
ps = ps + 1
f = True
Else
GetGS = "公式错误": Exit Function
End If
Case Else
P(ps) = P(ps) & b
f = False
End Select
P(ps) = Trim(P(ps))
Next i
For i = 0 To ps
If P(i) = "*" Then
If f Then
k = Val(P(i - 1)) * Val(P(i + 1))
Else
k = k * Val(P(i + 1))
End If
p1(pd - 1) = k
i = i + 1
f = False
ElseIf P(i) = "/" Then
If Val(P(i) 0) Then
If f Then
k = Val(P(i - 1)) / Val(P(i + 1))
Else
k = k / Val(P(i + 1))
End If
Else
GetGS = "除数为零"
Exit Function
End If
p1(pd - 1) = k
i = i + 1
f = False
Else
p1(pd) = P(i)
pd = pd + 1
f = True
End If
Next i
k = Val(p1(0))
f = True
For i = 1 To ps
If p1(i) = "+" Then
If f Then k = k + Val(p1(i + 1))
f = False
ElseIf p1(i) = "-" Then
If f Then k = k - Val(p1(i + 1))
f = False
Else
f = True
End If
Next i
GetGS = k
End Function





好名全叫猪起了 | 十二级

好厉害呀。赞一个


VBA里面也可以用那个公式。函数里面直接写上就可以了。呵呵。学了一招。
=evaluate(sheet1!$a1)

public function getgs(gs)
getgs=evaluate(gs)
end function

以excel2010版本为例，操作如下：
1、如下图，要在A列单元格的数据再加上E列单元格的数据；

2、首先选择E列单元格的数据，按Ctrl+C快捷键进行复制；

3、然后选中A列的数据，点击鼠标右键，在弹出框里选择“选择性粘贴”；

4、在弹出的设置框里，粘贴选择“数值”，运算选择“加”，最后点击下面的确定；

5、则可看到A列单元格的数据已成功加上E列单元格的数据了。

选中A2单元格，公式-名称管理器，弹出的定义名称对话框中，定义名称为：AA，引用位置输入：=EVALUATE($A2),确定。
完成后B2输入：=AA，回车，下拉就可以了。

在另一格中输入 =3*4+6，回车，就显示计算结果18了。

---

阿荣旗17762181007： 如何把excel表格中公式的值转换为数字 - ？
荡茜利倍： 把excel表格中公式的值转换为数字的具体步骤如下: 以excel表格2010版本为例: 1、首先打开需要编辑的excel表格,进入到编辑页面中. 2、然后点击选择想要转换为数字的公式,右键单击单元格选择“复制”选项. 3、然后鼠标右键继续单击原来的单元格选择粘贴选项中的数值就可以了.

阿荣旗17762181007： 如何的Excel中把用公式计算出来的数值转 - ？
荡茜利倍： 在excel中将公式值转化为数值,可以通过选择性粘贴的方法.具体操作是:选择数据区域,复制,然后在原数据区域右键,选择性粘贴,选择数值.公式值即可变成数值.

阿荣旗17762181007： excel中如何将公式的结果转换为数值? - ？
荡茜利倍： 公式计算结果是数据,但对这些数据不能进行求和等运算,这是用为这些数据不是可运算的数值格式.将这些数据变为可运算的数值格式方法有:1、将原公式整体*1.2、在原公式整体前添加“--”符号.3、选中有公式的一列区域,“数据/分列/下一步/下一步/完成”.

阿荣旗17762181007： 如何将excel中公式所得值,用公式变成普通数值或文本格式? - ？
荡茜利倍： 公式计算出的结果本身就是数值或文字,不需要转换. 有些公式,在没有数据时,会显示“错误”.可以在公式前边加上 =IF( 某数据格 =＂＂,＂＂,原公式),这样在没有数据的情况下,就会返回空格,有了数据就会显示计算结果.

阿荣旗17762181007： 如何把 Excel 中各种引用公式、计算公式转换为值? - ？
荡茜利倍： 新建一个宏,复制以下代码内容粘贴代替宏代码内容,然后执行宏“撤消公式”即可. Sub 撤消公式() Dim a, b As Integer a = ActiveSheet.UsedRange.Rows.Count b = ActiveSheet.UsedRange.Columns.Count For i = 1 To aFor j = 1 To bIf Cells(i, j).HasFormula ThenCells(i, j) = Cells(i, j)End IfNext j Next i End Sub

阿荣旗17762181007： Excel中如何将公式转换为数值?？
荡茜利倍： 选中数据区域——右击——复制——再右击——选择性粘贴——数值——确定.

阿荣旗17762181007： 在EXCEL中怎么用公式将公式计算结果转换为数据格式,比如像date之类的, - ？
荡茜利倍： 用函数取数后在前面加上 -- 就是成数值形式了,例如A1为了10008,在B2取A1第二位后面的数,用公式 =--mid(A1,2,len(A1)) 就可以了!

阿荣旗17762181007： 如何将Excel公式转换成数值 - ？
荡茜利倍： 选择数据上米昂出现的是公式,而不是数值.这一栏就是我们要转换为数值的数据.选中要转化的数据,然后复制. 然后再右键,选择“选择性黏贴”然后会出现一个小框框. 选择数值或者值和数字格式,选择好之后点击确定就可以了,然后再点击原来的那栏数据,可以发现,现在已经变成是数值了.4 也可以在复制之后右键选择黏贴的时候,在选择性黏贴上面会出现数字123的图标,点击这个也会转化为数值.

阿荣旗17762181007： 如何将excel中单元格的公式转换成数值? - ？
荡茜利倍： 没有快捷键可用,快捷方式就是自定义一个按钮:工具 - 自定义 - 命令,左边选择“编辑”,右边找到“粘贴数值”按钮拖出来放到工具栏上,复制后直接用这个按钮进行粘贴就是了.

阿荣旗17762181007： excel如何把公式转换成显示的数值？
荡茜利倍： 选中单元格,先按F2,再按F9