链式输送设备安装通用施工工艺(6-25)

Excel自动得出结果(数字前后可以添加文字备注)功能实现步骤：1、打开excel，按住alt+F11，出现MicrosoftVBA编辑窗口；2、选择MicrosoftVBA窗口菜单栏的“插入”-“插入模块”，在弹出的空白窗口输入以下红色字体的代码：Function得出结果(cAsRange)p=c.TextForj=1ToLen(p)F:If(Mid(p,j,1)=[)ThenFori=j+1ToLen(p)If(Mid(p,i,1)=])Thenj=i+1ExitForEndIfNextEndIfIf(Mid(p,j,1)=[)ThenGoToFEndIfr=r+Mid(p,j,1)NextIf(r)Then得出结果=Application.Evaluate((&r&))Else得出结果=0EndIfEndFunction3、点保存按钮保存文件后，关闭MicrosoftVisualBasic编辑窗口退回到excel的sheet1工作表；4、选择要作为计算式的单元格和要得出结果的单元格，譬如A1为计算式所在单元格，B1为要得出结果的单元格，在A1输入“[高度]2*4[长度]”，在B1输入“=得出结果(A1)”回车后即可以得出结果8。************************************************************************************************整理by黑陨石(QQ:346337215E-Mail：[e-mail])江苏★zhgd(22019256)22:53:42假设C列为输入的没有等号公式（假设C1为“A1+B1”），而相邻的D列是你需要存放公式计算结果的地方（即D1显示A1和B1单元格相加的结果）。1.选中D1，然后打开“插入”菜单选择“名称”命令中的“定义”子命令，出现“定义名称”对话框。2.在“在当前工作表中的名称”输入栏中输入定义的名称“ResultofFomula”，在下方的“引用位置”编辑栏中输入“=EVALUATE(Sheet1!C1)”，单击[确认]按钮退出。3.在D1中输入“=ResultofFomula”，然后选中按住右下角的填充柄向下拉动填充即可。提示：EVALUATE????是Eexcel4．0版的宏表函数，Excel2000和Excel2002中还支持，但只可用于名称定义中。4.填充后要按[F9]进行重算，如果C列的公式有改动，也需要及时按[F9]进行重算。1、如果计算式在D单元格，计算式中标注用[]，如：2*4.5[宽]+10[A-B]，计算结果为19。2、插入——名称——定义3、自定义名称为JSS4、在引用位置（R）处输入=EVALUATE(SUBSTITUTE(SUBSTITUTE($d5,[,*ISTEXT([),],])))[/SIZE][/SIZE]5、如果计算结果在E单元格，则单元格处输入=IF(D3=,,JSS)6、标注时[]要在计算式的后面，如：2*4.5[宽]+3*3.3[高]