• 注册
  • 你转发,我送钱!

    • 查看作者
    • 数字代替汉字,Excel信息录入飞快 VBA简单应用 图文

      在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

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

    • 0
    • 0
    • 0
    • 35
    • 单栏布局 侧栏位置: