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

当大家要在Excel中重复输入一个长语句，如要经常输入“大不列颠及北爱尔兰联合王国”这句话，是不是很麻烦呢？我们可以用 VBA来写一个小程序，使得我们每输入一个"1”时，这个"1"就自动变为“大不列颠及北爱尔兰联合王国”。下面看操作。

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

Excel

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

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

首先打开写代码的窗口

在Excel的左下角的”sheet1"处右键，点“查看页码”，见下图。

你的”sheet1"的代码窗口应该是空的，没有下面图片中的蓝色选区的代码，我把代码附在下面，你复制粘贴代码到这个代码窗口就行了。

代码：

**************开始**********************

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column=1 Then

If Target.Count=1 Then

If Target.Value=1 Then

Target="大不列颠及北爱尔兰联合王国"

ElseIf Target.Value=2 Then

Target="中华人民共和国"

ElseIf Target.Value=3 Then

Target="美利坚合众国"

If

If

If

Sub

**************结束**********************

下面来看下效果。

具体怎么修改代码，实现更多功能，我后面将讲到，见“Excel中用VBA使数字代替长语句的输入（二）”。

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