巧用Change事件快速录入数据，一举多得

在录入数据的时候，我们可能会遇到重复数据反复录入的情况，要简化输入，解决的办法很多，今天就介绍一种用VBA代码实现输入简称，自动补全信息的方法。

比如有如下一张表格，根据右侧的“信息录入对照表”的商品简称，我们在左侧表格中输入简称之后，自动补全其他信息。

我们先来设置销售额的自动计算功能，在F2单元格输入公式“=D2*E2”，然后下拉填充即可。

然后，按ALT+F11打开VBA代码编辑窗口，双击左侧【工程】窗口中的“Sheet1”对象，并在右侧输入如下代码。

这段代码是比较不错的，屏蔽了一些常见的误操作，而且输入完简称之后按下Tab或者Enter键，会自动跳到“销量”栏，方便输入。对于对照表中找不到的商品也会以信息框的形式提示“没有该商品！”