1首先我们打开一个工作样表作为例子。2打开vba编辑器,插入一个新的模块,并在模块中输入以下代码:sub 公式转为数值() dim rng as range, c as range set rng = activesheet.range("a1").currentregion for each c in rng.cells if c.hasformula then c.value = c.value end if nextend sub3我们定义了两个变量rng和c。其属性为区域变量。同时设置rng值为活动工作薄。4接着我们使用逐步循环判断语句for each判断单元格内的数据是否为公式c.hasformula即是对单元格数据的判断条件。如果是,则取该单元格的公式计算值为该单元格值。5我们在工作薄内插入一个按钮,并指定宏。运行一下这个宏,看看结果。在编辑栏里我们可以看到所处的单元格正好是一个公式。6点击宏按钮,我们可以看到单元格编辑栏处不再是公式,而是一个确切的数值。7先写到这里了,谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看,如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。end 20210311
1启动excel 2010,打开相应的工作表1此文章未经许可获取自百度经验2按“alt+f11”组合键,进入v**ual basic编辑状态;3执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态;4输入宏代码:function pinyin(p as string) as stringi = asc(p)select case icase -20319 to -2031...