用数字代替汉字,加快信息录入
建立数字序列,实现汉字快速录入
操作方法
- 01
如下表所示,其中“编号”已录入完成,只需填入相应的“职称”。假如“职称”分为中学高级、中学一级、中学二级和中学三级,如果纯手打,那未免太繁琐!如果人员跨度太大,任你是复制粘贴,这时也派不上用场。如果我们能用数字代替这些文字,以后只需填入一个数字即可输出相应的职称,那岂不妙哉!
- 02
参照下图,启用Excel的“开发工具”,微软默认禁用了。
- 03
切换到“开发工具”选项卡,选择第一个“Visual Basic”。
- 04
参照下图所示,手动输入蓝底代码。如果您没有右边的代码窗口,按F7即可调出。不要觉得很麻烦,其时你只需输入第一段,然后复制粘贴第二第三段,修改一下目标参数,最后别忘了再加个End If就好。
- 05
这些代码看起来非常简单,但为了照顾不懂编程的朋友,我在这里还是给你稍作解释,你照搬即可。
- 06
1.在这段代码中我们选择的Worksheet和Change分别表示“代码当前工作表”和“改变事件”,就是说当前工作表中单元格中的值发生改变时要做什么。
- 07
2.Target.Column = 2表示只在第二列有效,这样就避免了用Ctrl+H替换时把整个工作表中别的数据也替换的悲剧。
- 08
3.在代码中用到了If…End If语句,表示“如果…那么”,Target.Value则表示输入单元格的值。
- 09
这下你对上述代码理解了吧?如果你还没理解也不要紧,你可以先照着图把它输入到自己的工作表中试一试效果如何,以后慢慢体会体会就懂了。
- 10
关闭编辑器,回到Excel窗口,这时在第2列也就是“职称”这列输入相应的数字,就可以看到数字被替换成指定的文本内容了。
- 11
如果后续还要录入,请记得将Excel保存为带宏的工作簿。
赞 (0)