ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[原创] 仿光标跟随的数据录入助手

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2013-8-21 16:44 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:窗体
本帖最后由 城市中间 于 2013-8-21 17:08 编辑

    在用EXCEL的输入大量数据的时候,为了提高录入的准确和速度,我们常常使用数据有效性来帮助录入。
但在选项太多的时候,这个方法就不太给力了。这里给大家介绍一下我用VBA制作的录入助手,点击工具
栏按钮或者按键盘F5键,在紧贴当前单元格的位置调出非模式窗体,这点是仿输入法的光标跟随。输入
拼音码或汉字,列表自动匹配选项数据供选择,双击列表中的选项或者回车,自动将列表数据填入当前
单元格中,窗体按你的设置可自动关闭也可继续保留。
    附件是按只在当前工作簿使用设计的,如果想在别的工作簿也使用,修改部分代码后保存为加载宏文件
即可。没有设置工程密码,感兴趣的朋友可以查看源码,供大家参考。
    这个帖子和前几天发的“EXCEL自动升级的完整实例”,其实都是我在帖子“EXCEL+ADO+ACCESS制作的网络版药品核算程序,具备自动升级功能”http://club.excelhome.net/thread-1045736-1-1.html的其中一些我自己觉得还有点有的子功能,现在我把这些子功能单独出来,便于大家参考使用

数据录入助手.rar

48.45 KB, 下载次数: 883

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2013-8-21 16:55 | 显示全部楼层
怎么没有弹出窗口来?我用的EXCEL2003

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-8-21 17:03 | 显示全部楼层
onlymearmstr 发表于 2013-8-21 16:55
怎么没有弹出窗口来?我用的EXCEL2003

你需要启用宏才行

TA的精华主题

TA的得分主题

发表于 2013-8-21 17:07 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
onlymearmstr 发表于 2013-8-21 16:55
怎么没有弹出窗口来?我用的EXCEL2003

按F5



TA的精华主题

TA的得分主题

发表于 2013-8-21 17:12 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-8-21 17:15 | 显示全部楼层
请教一下,窗体文本框的药品明细是在哪里读取来的数据?

TA的精华主题

TA的得分主题

发表于 2013-8-21 17:28 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-8-21 18:37 | 显示全部楼层
是不是不支持搜狗拼音输入法( ⊙ o ⊙ )啊!

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-8-21 18:43 来自手机 | 显示全部楼层
东亚五金 发表于 2013-8-21 18:37
是不是不支持搜狗拼音输入法( ⊙ o ⊙ )啊!

这和输入法没关系

TA的精华主题

TA的得分主题

发表于 2013-8-21 18:50 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 20:35 , Processed in 0.054787 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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