Excel一键搞定计算器调用
虽然Excel有着强大的计算和统计功能，但有时参与计算的数据不需要输入到单元格中，如果先把数据输入，利用Excel计算出结果，再删除无用的数据太麻烦，还是利用系统自带的计算器计算比较好。如何在Excel的工具栏添加一个命令按钮，实现计算器的一键调用呢？第一步：启动Excel 2003（其他版本操作类似），单击菜单“工具→宏→Visual Basic编辑器”命令，右击“ThisWorkBook”，选择“插入→模块”，插入一个模块，在右边的代码窗口输入以下内容：
Sub 计算器调用()
Application.ActivateMicrosoftApp Index:=0
End Sub
第二步：将这个默认的工作薄——“Book1.xls”另存为以“计算器调用.xla”为文件名的加载宏，单击菜单“工具→加载宏”命令，打开“加载宏”窗口并勾选“计算器调用”加载宏（如图1），确定。
http://soft.pcw.com.cn/bangong_excel/h001/h77/img200806051544000.jpg
第三步：单击菜单“工具→自定义”命令，切换到“命令”选项卡，选中“类别”列表下边的“宏”选项，这时“命令”列表下边就会出现一个“自定义按钮”选项（笑脸图标），将这个图标拖动到工具栏的任意位置，右击工具栏上出现的笑脸图标，就会出现一个右键菜单（如图2），在这个右键菜单中要进行四项操作：
http://soft.pcw.com.cn/bangong_excel/h001/h77/img200806051544320.jpg
A.将“命名”后边文本框内的内容替换为“计算器调用”。
B.执行“更改按钮图像”命令，在出现的子菜单中选中“计算器”图标。
C.执行“图像与文本”命令。
D.执行“指定宏”命令，打开“指定宏”窗口，选中“计算器调用”宏，最后单击“确定”。
经过以上步骤，我们就完成了往工具栏添加“计算器调用”按钮的操作，单击工具栏上的“计算器调用”按钮，就可以调出系统自带的计算器了。
小提示：如果将这个功能提供给别人使用时，可在完成第三步时，单击菜单“文件→保存”命令，将默认的工作薄——“Book1.xls”以“计算器调用.xls”为文件名保存到任意位置，在别人的电脑上打开“计算器调用.xls”，在“安全警告”窗口单击“启用宏”按钮，然后执行四个步骤“另存为加载宏→应用加载宏→工具栏添加按钮→指定宏”，就可以使用这个功能了。而不要将第一个步骤改成复制加载宏“计算器调用.xla”到Excel加载宏的默认保存位置（XP系统中为C:\Documents and Settings\当前登录用户名\Application Data\Microsoft\AddIns，Vista中的位置在C:\User\用户名\Roaming\Microsoft\AddIns）。
页:
[1]