首页 > Office专区 > Excel教程 >

Excel中用VBA使数字代替长语句的输入(二)

来源:互联网 2023-02-20 19:39:31 406

前面的百度经验“Excel中用VBA使数字代替长语句的输入(一)”(http://jingyan.baidu.com/article/a948d6515a7b840a2dcd2e21.html)UYS办公区 - 实用经验教程分享!

我用 VBA来写一个小程序,实现在工作表“sheet1"的第一列(注意仅限第一列,其他列操作该命令无效)中输入“1”,就自动变为“大不列颠及北爱尔兰联合王国”;输入“2”,就自动变为“中华人民共和国”;输入“3”,就自动变为“美利坚合众国”。UYS办公区 - 实用经验教程分享!

下面来修改一下代码,以实现更多功能。UYS办公区 - 实用经验教程分享!

工具/原料

  • P> Excel/P>

方法/步骤

  • 1

    目的一:不在工作表“sheet1"的第一列实现“数字代替长语句”的功能,而在第二列实现“数字代替长语句”的功能。UYS办公区 - 实用经验教程分享!

    操作:只需将代码“If Target.Column = 1 Then” 中的“1”修改为“2”就行了,即改为“If Target.Column =2 Then”。UYS办公区 - 实用经验教程分享!

    下图显示第一列没有“数字代替长语句”的功能,而第二列有“数字代替长语句”的功能。UYS办公区 - 实用经验教程分享!

    Excel中用VBA使数字代替长语句的输入(二)UYS办公区 - 实用经验教程分享!

  • 2

    目的二:在工作表“sheet1"的全表实现“数字代替长语句”的功能UYS办公区 - 实用经验教程分享!

    操作:只需将代码“If Target.Column = 1 Then” 和一个“end if "删除即可UYS办公区 - 实用经验教程分享!

    代码修改看下图:UYS办公区 - 实用经验教程分享!

    Excel中用VBA使数字代替长语句的输入(二)UYS办公区 - 实用经验教程分享!

  • 3

    在工作表“sheet1"的全表实现“数字代替长语句”的功能,效果见下图UYS办公区 - 实用经验教程分享!

    Excel中用VBA使数字代替长语句的输入(二)UYS办公区 - 实用经验教程分享!

  • 4

    目的三:在工作表“sheet1"的第一列实现“数字代替长语句”的功能,但我想加一条,用”4”,代表“朝鲜民主主义人民共和国”,代码修改见下图:UYS办公区 - 实用经验教程分享!

    Excel中用VBA使数字代替长语句的输入(二)UYS办公区 - 实用经验教程分享!

  • 4相关内容未经授权抓取自百度经验
  • 5

    在工作表“sheet1"的第一列实现“数字代替长语句”的功能,但我想加一条,用”4”,代表“朝鲜民主主义人民共和国”,效果见下图:UYS办公区 - 实用经验教程分享!

    Excel中用VBA使数字代替长语句的输入(二)UYS办公区 - 实用经验教程分享!

  • 6

    目的四:实现在工作表“sheet1"的第一列(注意仅限第一列,其他列操作该命令无效)中输入“1”,就自动变为“小红”;输入“2”,就自动变为“小明”;输入“3”,就自动变为“小周”。代码修改见下图:UYS办公区 - 实用经验教程分享!

    Excel中用VBA使数字代替长语句的输入(二)UYS办公区 - 实用经验教程分享!

  • 7

    实现在工作表“sheet1"的第一列(注意仅限第一列,其他列操作该命令无效)中输入“1”,就自动变为“小红”;输入“2”,就自动变为“小明”;输入“3”,就自动变为“小周”。效果见下图:UYS办公区 - 实用经验教程分享!

    Excel中用VBA使数字代替长语句的输入(二)UYS办公区 - 实用经验教程分享!

  • 8

    就写这么多了UYS办公区 - 实用经验教程分享!

    其他功能以后补充。UYS办公区 - 实用经验教程分享!

  • 以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!UYS办公区 - 实用经验教程分享!


    标签: excel中用数字代替语句

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码