ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12
返回列表 发新帖
楼主: andysky

[原创]教你不用VBA也建新菜单

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-12-13 14:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
打開時說有病毒 ?

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-12-13 14:14 | 显示全部楼层
QUOTE:
以下是引用zz5151353在2006-12-13 14:09:00的发言:
打開時說有病毒 ?

里面有大量的4.0宏函数命令,被部分软件视为病毒是理所当然的,事实如何你自己判断了。

代码如下:

=ERROR(TRUE,$A$15)
=RUN("NoRunMacro")
=ERROR(FALSE)
= ADD.MENU(1,B4:C15)
=WORKBOOK.HIDE("sheet1",TRUE)
=WORKBOOK.HIDE("macro",TRUE)
=WORKBOOK.HIDE("sheet2",TRUE)
=WORKBOOK.HIDE("sheet3",TRUE)
=ALERT("请看菜单。是否很简单??",1)
=ALERT("若禁用宏则此表不可用。--andysky",2)
=ERROR(TRUE)
=RETURN()

=IF(ERROR.TYPE($A$3)=4)
=WORKBOOK.HIDE("macro",FALSE)
=ALERT("禁用宏则关闭。--andysky",2)
=FILE.CLOSE(FALSE)
=RETURN()
=ELSE()
=ERROR(TRUE)
=RETURN()
=END.IF()


=ALERT("这是一个宏表建菜单之范例:即OFFICE97专用宏表函数.",1)
=ALERT("过时之函数却有意想不到之功效!",3)
=ALERT("这就是所谓的“旧瓶装新酒,其味也无穷!”",2)
=HALT()

=FILE.CLOSE(FALSE)
=RETURN()

=WORKBOOK.HIDE("sheet1",TRUE)
=RETURN()

=MESSAGE(TRUE, "系统运行中,请等待...............嘿嘿,够酷吧???")
=RETURN()

=SPLIT(3,15)
=RETURN()

=FULL.SCREEN(TRUE)
=HALT()

=BORDER(1,1,1,1,1,TRUE,3,3,3,3,3)
=HALT()

=ADD.TOOL(1, 2, 51)
=ALERT("“新建工具按钮位于常用工具栏第二个,图标为阴影”",2)
=HALT()

=SHOW.TOOLBAR(1, FALSE, 1, 1, 1, 1, FALSE, FALSE, FALSE, TRUE)
=RETURN()

=CLEAR(1)
=RETURN()

=FILE.CLOSE(TRUE, TRUE)
=RETURN()
 
{ 新增工具栏 } 
显示自动信息 信息
隐藏工作表一 hide
修改状态栏信息 状态栏
分割当前表窗口 窗口
添加边框底纹 边框
添加工具按钮 添加工具按钮
隐藏常用工具栏 隐藏常用工具
全屏显示 全屏显示
删除选区信息 删除选区信息
关闭并保存 关闭并保存
退出EXCEL程序 quit

[此贴子已经被作者于2006-12-13 14:17:36编辑过]

TA的精华主题

TA的得分主题

发表于 2006-12-13 14:51 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

謝謝 ANDYSKY 兄 !!!

2樓的. 不但打開時說有病毒 ?且把貼出圖片東東自動刪除
附件代碼完全沒有了

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-12-14 09:12 | 显示全部楼层
代碼是隱藏的,需要用代碼顯示所有工作表後才能看到。

TA的精华主题

TA的得分主题

发表于 2008-1-17 17:42 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-3-11 12:56 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-4-7 14:10 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 16:23 , Processed in 0.044941 second(s), 7 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表