Excel中用VBA使数字代替长语句的输入（二）-Excel教程

前面的百度经验“Excel中用VBA使数字代替长语句的输入（一）”（http://jingyan.baidu.com/article/a948d6515a7b840a2dcd2e21.html）

我用 VBA来写一个小程序，实现在工作表“sheet1"的第一列（注意仅限第一列，其他列操作该命令无效）中输入“1”，就自动变为“大不列颠及北爱尔兰联合王国”；输入“2”，就自动变为“中华人民共和国”；输入“3”，就自动变为“美利坚合众国”。

下面来修改一下代码，以实现更多功能。

前期准备工作（包括相关工具或所使用的原料等）

Excel

详细的操作方法或具体步骤

目的一：不在工作表“sheet1"的第一列实现“数字代替长语句”的功能，而在第二列实现“数字代替长语句”的功能。

操作：只需将代码“If Target.Column=1 Then” 中的“1”修改为“2”就行了，即改为“If Target.Column= 2 Then”。

下图显示第一列没有“数字代替长语句”的功能，而第二列有“数字代替长语句”的功能。

目的二：在工作表“sheet1"的全表实现“数字代替长语句”的功能

操作：只需将代码“If Target.Column=1 Then” 和一个“ if "删除即可

代码修改看下图：

在工作表“sheet1"的全表实现“数字代替长语句”的功能，效果见下图

目的三：在工作表“sheet1"的第一列实现“数字代替长语句”的功能，但我想加一条，用”4”，代表“朝鲜民主主义人民共和国”，代码修改见下图：

在工作表“sheet1"的第一列实现“数字代替长语句”的功能，但我想加一条，用”4”，代表“朝鲜民主主义人民共和国”，效果见下图：

目的四：实现在工作表“sheet1"的第一列（注意仅限第一列，其他列操作该命令无效）中输入“1”，就自动变为“小红”；输入“2”，就自动变为“小明”；输入“3”，就自动变为“小周”。代码修改见下图：

实现在工作表“sheet1"的第一列（注意仅限第一列，其他列操作该命令无效）中输入“1”，就自动变为“小红”；输入“2”，就自动变为“小明”；输入“3”，就自动变为“小周”。效果见下图：

就写这么多了

其他功能以后补充。

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。