论坛风格切换
正版合作和侵权请联系 sd173@foxmail.com
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
购买邀请后未收到邀请联系sdbeta@qq.com
  • 1760阅读
  • 1回复

[教程资料]Excel一键搞定计算器调用 [复制链接]

上一主题 下一主题
离线风晨
 

发帖
2652
今日发帖
最后登录
2018-03-03
只看楼主 倒序阅读 使用道具 楼主  发表于: 2009-10-10 18:28:03
虽然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、执行指定宏命令,打开指定宏窗口,选中计算器调用宏,最后单击确定。

经过以上步骤,我们就完成了往工具栏添加计算器调用按钮的操作,单击工具栏上的计算器调用按钮,就可以调出系统自带的计算器了。
离线quen2008
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 沙发  发表于: 2009-10-10 20:42:38
这样调用计算器就方便多了