数字代替汉字 信息录入飞快

555555

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

图1

构建基本代码
选择“工具→宏→Visual Basic编辑器”，在左边的资源管理器窗口双击Sheet1（Sheet1），在右侧的代码窗口中分别选择Worksheet对象和Change事件，然后输入几行非常简单的代码（图2）。

图2

这些代码看起来非常简单，但为了照顾不懂编程的朋友，我在这里还是给你稍作解释，你照搬即可：
⑴在这段代码中咱们选择的Worksheet和Change分别代码当前工作表和改变事件，就是说当前工作表中单元格中的值发生改变时要做什么；
⑵代码中Target．Column=3用于指定只能在第三列输入这些数据时才有效(如果不指定对整个工作表都有效)；
⑶在代码中用到了If…End If语句，表示“如果…那么”，Target.Value则表示输入单元格的值。
这下你对上述代码理解了吧？如果你还没理解也不要紧，你可以先照着图把它输入到自己的工作表中试一试效果如何，以后慢慢体会体会就懂了。
数字代替文本输入
关闭这个编辑器，返回到Excel窗口，这时在第3列也就是“职称”这列输入相应的数字，就可以看到数字被替换成指定的文本内容了（图3）。

图3

可能有的朋友会想，先输入这些数字，然后用查找替换的方法不也行吗？然而我们会发现，用查找替换操作容易将其他列中的这些数据错误地替换掉，如果每个数字经确认后再替换就显得比较烦琐了，而用代码就不会出现这些问题，加载之后就可以一劳永逸了。
修改代码 推广设置
有了对第三步的理解，相信你也可以对第四列即“所属部门”进行设置吧？很简单，只需修改一小部分代码即可，最后的形式如图所示（图4）。

图4

有了这段小小的代码，我们的工作是不是非常轻松了！