设置带文字标注的EXCEL计算表

整理文档很辛苦,赏杯茶钱您下走!

免费阅读已结束,点击下载阅读编辑剩下 ...

阅读已结束,您可以下载文档离线阅读编辑

资源描述

设置带文字标注的EXCEL计算表方法1: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得出结果=EndIfEndFunction3、点保存按钮保存文件后,关闭MicrosoftVisualBasic编辑窗口退回到excel的sheet1工作表;4、选择要作为计算式的单元格和要得出结果的单元格,譬如A1为计算式所在单元格,B1为要得出结果的单元格,在A1输入“[高度]2*4[长度]”,在B1输入“=得出结果(A1)”回车后即可以得出结果8。如果你还不会,我给你一个东东VBA模块这个模块使用的方法如下:Excel自动得出结果(数字前后可以添加文字备注)模块的使用步骤:1、打开excel,后按住alt+F11,出现MicrosoftVBA编辑窗口;2、选择MicrosoftVBA窗口菜单栏的“文件”-“导入文件”,选择该VBA模块后打开;3、点保存按钮保存文件后,关闭MicrosoftVBA编辑窗口退回到excel的sheet1工作表;4、选择要作为计算式的单元格和要得出结果的单元格,譬如A1为计算式所在单元格,B1为要得出结果的单元格,在A1输入“[高度]2*4[长度]”,在B1输入“=得出结果(A1)”回车后即可以得出结果方法2:打开Excel菜单的“插入”→“名称”→“定义”(详见下图),在“在当前工作薄中的名称”的下面,输入X,按“添加”,下面的空白处就出现了“X”,选择这个“X”,在引用位置下面输入“=EVALUATE(SUBSTITUTE(SUBSTITUTE(计算稿!$J5,[,*ISTEXT([),],])))”,按“确定”关闭窗口在“计算稿”表的K5单元格,输入公式“=IF(J5=,,x)”,其中X是刚刚定义的名称,第一步我们已经做好它了,“J5”是指单元格J5,即有计算公式的单元格。公式“=IF(J5=,,x)”表示:如果J5单元格是空白,则K5单元格也为空白,如果J5单元格不是空白,则K5单元格等于定义名称“X”。把K5单元格向下复制,行数根据自己需要定。在J5单元格输入“0.24[墙厚]*(3.6[墙长]*3[墙高]-0.9*1.8[扣除窗洞C1021])”看看结果是不是2.2,如果是,证明公式是对的。

1 / 2
下载文档,编辑使用

©2015-2020 m.777doc.com 三七文档.

备案号:鲁ICP备2024069028号-1 客服联系 QQ:2149211541

×
保存成功