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]进行重算。