[共享]Excel一键搞定计算器调用

虽然Excel有着强大的计算和统计功能，但有时参与计算的数据不需要输入到单元格中，如果先把数据输入，利用Excel计算出结果，再删除无用的数据太麻烦，还是利用系统自带的计算器计算比较好。

第一步：启动Excel 2003，单击菜单工具/宏/Visual Basic命令，右击ThisWorkBook选择插入/模块，插入一个模块，在右边的代码窗口输入以下内容：
sub 计算机器调用（）

application.activateMicrosoftApp Index:=0（如果把的0换成1-6，分别表示调用：Word、PPT、邮件客户端、Access、Foxpro、Project）

第二步：将这个默认的工作薄Book1.xls另存为以计算器调用.xla为文件名的加载宏。进入工具/加载宏，打开加载宏窗口并勾选计算器调用加载宏，确定。

第三步：单击菜单“工具/自定义”命令，切换到命令选项卡，选中类别列表下边的宏选项，这时命令列表下边就会出现一个自定义按钮选项，将这个图标拖动到工具栏的任意位置，右击它就会出现一个右键菜单，在其中要进行四项操作：

A、将命名后文本框内容替换为计算器调用。

B、执行更改按钮图像命令，在出现的子菜单中选中计算器图标。

C、执行图像与文本命令。

D、执行指定宏命令，打开指定宏窗口，选中计算器调用宏，最后单击确定。

经过以上步骤，我们就完成了往工具栏添加计算器调用按钮的操作，单击工具栏上的计算器调用按钮，就可以调出系统自带的计算器了。

引用

引用楼主qiyeshengjun于2010-01-24 00:08发表的 Excel一键搞定计算器调用 :
虽然Excel有着强大的计算和统计功能，但有时参与计算的数据不需要输入到单元格中，如果先把数据输入，利用Excel计算出结果，再删除无用的数据太麻烦，还是利用系统自带的计算器计算比较好。

第一步：启动Excel 2003，单击菜单工具/宏/Visual Basic命令，右击ThisWorkBook选择插入/模块，插入一个模块，在右边的代码窗口输入以下内容：
sub 计算机器调用（）

.......

这个好，常用呢。。。