龙源期刊网 http://www.qikan.com.cn 巧用拼音首字母输入人名 作者：仲勇 来源：《电脑爱好者》2013年第06期 刘姐是单位的仓库保管，每天负责单位办公用品的出入库登记，以前都是用手工来记载的，总是不能及时地统计出库存记录和逐月消耗的情况。每天办公用品的出入库数据多而繁杂，如果用电脑登记，对她来说最麻烦的就要数录入申领人的姓名了。刘姐的拼音又不太好，于是向我求助有没有比较简便的录入姓名的方法，我欣然接受了挑战。 一番研究后我发现使用姓名的首字母也能方便地输入人名，这需要借助VBA才能实现，当然只要将代码事先设置好了，用起来就会方便多了。其实也不复杂，一共有3个步骤，一起来看看吧。 创建员工姓名库，新建一张名为“姓名对照”的工作表（图1），输入单位所有员工的姓名以及这些姓名所对应的拼音首字母。 编写事件代码 接下来在“出库记录”工作表中编写调用的事件代码。方法是：激活“出库记录”工作表，按Alt+F11组合键打开VBA编辑器，在工作表的Change事件中编写下面的代码： Private Sub Worksheet_Change（ByVal target As Range） '判断当前是不是录入姓名所在列 If target.Column = 5 Then 姓名输入 target End If End Sub 这段代码的作用是首先会判断当前活动单元格是不是在第五列（即输入姓名所在的列）。如果是则调用过程“姓名输入（）”，该过程的代码如下： '输入姓名的主体函数 Sub 姓名输入（aim As Range） '清除单元格中的空格并将输入的字母转换为小写 本文来源：https://www.wddqw.com/doc/c5e09cb824c52cc58bd63186bceb19e8b9f6ec3f.html