|
在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 有了这段小小的代码，我们的工作是不是非常轻松了！ |
