ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[原创]excel的另类"封装"

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-6-25 12:15 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

excel的另类封装:

通过今天修改拼音字库后,文件小了很多,谢谢大家关注,现在把文件上传上来:

15yKpDCC.rar (127.98 KB, 下载次数: 1526)
[此贴子已经被作者于2004-6-25 13:32:09编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-6-25 12:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

excel的另类封装:

1.结合VBScript达到封装效果,过程简单!(事实上没有封装,只是让窗体显示,excel隐藏而已),结合VBScript实现了避过宏提示(也无法禁止)及打开时不显示EXCEL文件!(excel文件为“田”,我把扩展名去掉了)

2.通讯薄在查询状态时,在姓名框中输入要查找名字的第一个拼音.符合条件的将被全部列出.然后选择名字可进行修改操作.

3.新增人员时会先检查有无重复人名,如果有,会提示是否要修改.

4."简单通讯薄"这个快捷方式的路径可能需要重新设置(一般点两次它可以自动找到文件),如果重新设置请用1文件夹中的"程序入口"这个文件新建!并更改其图标!

5.对于多音字,系统只找第一个字。如果发现有错可将该多音字在拼音字库中删除

6.此程序不支持英文名,还有一些就不说了,自己用呀用就会发现了!

因为文件内的拼音汉字库有点大,所以关闭(保存)时,要的时间稍长!如果不用字库或只是做查询,速度是很快的

[此贴子已经被作者于2004-6-25 13:57:18编辑过]

TA的精华主题

TA的得分主题

发表于 2004-6-25 14:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
    楼主没有杀毒软件,还是这个是误报?
[此贴子已经被作者于2004-6-25 14:50:41编辑过]

[原创]excel的另类"封装"

[原创]excel的另类"封装"

TA的精华主题

TA的得分主题

发表于 2004-6-25 16:30 | 显示全部楼层
楼主能否详细介绍一下您的封装过程,我很想学习一下。谢谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-6-25 18:35 | 显示全部楼层

我有杀毒软件<诺盾>还有<PC万能精灵>,不过可以运行脚本文件,不会有提示!

我这个不叫封装,只是达到了封装的效果而已!

用VBScfipt打开excel 文件,这样避免宏被禁止的情况,然后用窗体做前台,用隐藏的excel文件做后台.

我觉得效果不错,为什么大家没什么回应?难道都像办公之星大哥一样打不开文件?

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-6-25 19:57 | 显示全部楼层

还有我代码里写的几个问题有没有办法

'我想输入拼音后, ComboBox1自动打开,但 Me.ComboBox1.DropDown 打开后,我无法将其刷新,关了重新打开可以刷新,但没有dropUp关不了只能打开,用sendkey esc 也不行

'Me.ComboBox1.SetFocus 设置焦点不能将光标移入combobox内,是什么?

TA的精华主题

TA的得分主题

发表于 2004-6-25 20:11 | 显示全部楼层

打不开的原因可能是将文件另存为了其它地方,在“简单通讯簿快捷方式”属性中的起始位置不对,改成你现在的位置就好。我就碰到这个问题。或将“1”文件夹中的“程序入口”重新弄个快捷方式也成。

谢谢Jack.zhou的提供是好东西。很想知道是怎么封装的。

头像被屏蔽

TA的精华主题

TA的得分主题

发表于 2004-6-25 20:40 | 显示全部楼层
我下载了,先用瑞星16:32:20(2004-6-23)版检查没有发现病毒,又用木马克星5.46检查均没有发行问题,澄清,澄清,澄清。可以用。

TA的精华主题

TA的得分主题

发表于 2004-6-25 23:29 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-6-26 07:17 | 显示全部楼层
以下是引用jack.zhou在2004-6-25 19:57:00的发言:

还有我代码里写的几个问题有没有办法

'我想输入拼音后, ComboBox1自动打开,但 Me.ComboBox1.DropDown 打开后,我无法将其刷新,关了重新打开可以刷新,但没有dropUp关不了只能打开,用sendkey esc 也不行

'Me.ComboBox1.SetFocus 设置焦点不能将光标移入combobox内,是什么?

将焦点先移到其他控件,再返回焦点。

能否说一下封装过程,我很感兴趣。henterwu@citiz.net

谢谢!!!

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-5-21 23:36 , Processed in 0.040192 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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