Excel自动得出结果(数字前后可以添加文字备注)功能实现步骤

  • 格式:doc
  • 大小:29.50 KB
  • 文档页数:2

Excel自动得出结果(数字前后可以添加文字备注)功能实现步骤:

1、打开excel,按住alt+F11,出现Microsoft VBA编辑窗口;

2、选择Microsoft VBA窗口菜单栏的“插入”->“插入模块”,在弹出的空白窗口输入以下红色字体的代码:

Function 得出结果(c As Range)

p = c.Text

For j = 1 To Len(p)

F:

If (Mid(p, j, 1) = "[") Then

For i = j + 1 To Len(p)

If (Mid(p, i, 1) = "]") Then

j = i + 1

Exit For

End If

Next

End If

If (Mid(p, j, 1) = "[") Then

GoTo F

End If

r = r + Mid(p, j, 1)

Next

If (r <> "") Then

得出结果 = Application.Evaluate("(" & r & ")")

Else

得出结果 = 0

End If

End Function

3、点保存按钮保存文件后,关闭Microsoft Visual Basic编辑窗口退回到excel的sheet1工作表;

4、选择要作为计算式的单元格和要得出结果的单元格,譬如A1为计算式所在单元格,B1为要得出结果的单

元格,在A1输入“[高度]2*4[长度]”,在B1输入“=得出结果(A1)”回车后即可以得出结果8。

************************************************************************************************

整理by黑陨石(QQ:346337215 E-Mail:yangzhangduo@)

江苏★zhgd(22019256) 22:53:42

假设C列为输入的没有等号公式(假设C1为“A1+B1”),而相邻的D列是你需要存放公式计算结果的地方(即D1显示A1和B1单元格相加的结果)。

1. 选中D1,然后打开“插入”菜单选择“名称”命令中的“定义”子命令,出现“定义名称”对话框。

2. 在“在当前工作表中的名称”输入栏中输入定义的名称“ResultofFomula”,在下方的“引用位置”编辑栏中输入“=EVALUATE(Sheet1!C1)”,单击[确认]按钮退出。

3. 在 D1中输入“=ResultofFomula”,然后选中按住右下角的填充柄向下拉动填充即可。

提示:EVALUATE????是Eexcel 4.0版的宏表函数,Excel 2000和Excel 2002中还支持,但只可用于名称定义中。

4. 填充后要按[F9]进行重算,如果C列的公式有改动,也需要及时按[F9]进行重算。