编写函数实现员工信息录入和输出_Excel VBA之函数篇-3.4简易的数据快速录入，再也不用砸键盘了...

Excel VBA之函数篇-3.4简易的数据快速录入，再也不用砸键盘了

前景提要

日常的工作中，我们经常需要将一些数据录入excel中，比方说员工的姓名，工号，公司名称等等，每天对着电脑输入这些无聊的数据，确实是一件很糟心的事情，虽然说并不是很难，但是很枯燥，有时候眼花了还会打错字，毕竟人不是机器啊，全部是中文的还好点，碰到数字编码等一长串数字的，就更加头疼了，别怕，其实VBA可以帮助我们实现简单的数据录入，只需要事先在代码中设置好规则，我们只需要输入数字键就可以解决了，这样既节省了时间，也提高了准确性，数据录入更加高效

函数说明

让我们来隆重介绍下今天要学习的这个函数，他就是choose()函数，一写出来大家都知道这个函数的意思了，就是选择，没错，他可以理解为选择的意思，他的基本格式是这样的choose(num,a,b,e,d,c......),第一个num代表的就是数字的意思，你在实际使用中，这里应该输入的是一个具体的数字，后面是你想要输入的内容的列表，按照上面的举例，如果num=1,返回的结果就是a,如果num=2，放回的结果就是b，num=3,返回的结果就是e...以此类推，好了，我们还是来看一个例子吧。

上代码

假设我们手上有一份清单，我们需要录入商品的销量和销售综合，这在商城等场所是经常需要这样操作的

如果实现简单，快速的录入呢

Sub test()Dim num&, ShopName$line:num = Application.InputBox("请输入商品的序号