数字代替汉字 信息录入飞快_第1页
数字代替汉字 信息录入飞快_第2页
数字代替汉字 信息录入飞快_第3页
数字代替汉字 信息录入飞快_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、数字代替汉字 信息录入飞快马震安 电脑爱好者 在Excel中录入数据，如果能用数字代码来代替一些固定的汉字字串，就可以使工作化繁为简，大大提高效率。请看下面的这个实例：这是一个“丰南一中职称统计登记表”（图1）。其中“编号”、“姓名”都已录入完成，只需填入相应的“职称”和“所属部门”。假如“职称”分为中学高级、中学一级、中学二级和员级，“所属部门”分高一年级、高二年级、高三年级和其他，试想我们在录入时输入相应的汉字是不是比较繁琐呢？如果我们能用数字代替这些文字，几个汉字的录入只需一个数字即可，那是不是能大大提高我们录入的效率呢？下面让我们看具体的实现方法。工作表建立先建立一个工作表，注意字段的

2、顺序很重要，它涉及到第二步的操作（图1）。图1构建基本代码选择“工具宏Visual Basic编辑器”，在左边的资源管理器窗口双击Sheet1（Sheet1），在右侧的代码窗口中分别选择Worksheet对象和Change事件，然后输入几行非常简单的代码（图2）。图2这些代码看起来非常简单，但为了照顾不懂编程的朋友，我在这里还是给你稍作解释，你照搬即可：在这段代码中咱们选择的Worksheet和Change分别代码当前工作表和改变事件，就是说当前工作表中单元格中的值发生改变时要做什么；代码中TargetColumn=3用于指定只能在第三列输入这些数据时才有效(如果不指定对整个工作表都有效)；在

3、代码中用到了IfEnd If语句，表示“如果那么”，Target.Value则表示输入单元格的值。这下你对上述代码理解了吧？如果你还没理解也不要紧，你可以先照着图把它输入到自己的工作表中试一试效果如何，以后慢慢体会体会就懂了。数字代替文本输入关闭这个编辑器，返回到Excel窗口，这时在第3列也就是“职称”这列输入相应的数字，就可以看到数字被替换成指定的文本内容了（图3）。图3可能有的朋友会想，先输入这些数字，然后用查找替换的方法不也行吗？然而我们会发现，用查找替换操作容易将其他列中的这些数据错误地替换掉，如果每个数字经确认后再替换就显得比较烦琐了，而用代码就不会出现这些问题，加载之后就可以一劳永逸了。修改代码 推广设置有了对第三步的理解，相信你也可以对第四列即“所属部门”进行设置吧？很简单，只需修

人人文库> 全部分类> 教育资料 > 辅导培训

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论