周一至周五 : 08:30 - 17:30 客服专员电话/微信:18049979371 QQ:2982200781
微信咨询

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
返回顶部
Excel用数字代替汉字的技巧
显示全部楼层 倒序浏览 发表日期 2014-11-20 15:30:33 2915次阅读 0次回复
        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

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

快表软件是国内较早研究表格类软件开发平台的团队之一,迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。
  • 微信公众号

  • 微信小商店

  • 微信客服

  • Powered by Discuz! X3.4 | Copyright © 2022-2024, XiRong Soft. | 快表软件
  • 沪ICP备13033196号 | 营业执照 |上海西戎软件科技有限公司|沪公网安备31011502002146号|沪ICP备13033196号 |