电话缴费序号自动显示
软件世界
我在单位里是做物管统计工作的，成天和数据打交道。其中有一项工作，就是每月要将单位里几十门电话费用统计上报。由于电信局打出的缴费清单是按缴费序号排列，而声讯费清单又不按缴费序号排列，我却要按公司各部门排列统计，这样在缴费清单和报表间来回地查找十分麻烦。如果能很快找到一个电话号码的缴费序号就方便多了。于是利用Excel的自定义函数，实现了输入电话号码后自动显示缴费序号，电话号码输错就显示“无此号码”。我的方法是这样的：
1.启动Excel后，在名为“电话费用”的工作簿中，选中一张工作表，命名为“原始号码”。A列为缴费序号，在A1单元格输入“缴费序号”；B列为电话号码，在B1单元格输入“电话号码”；按电信局缴费清单顺序输入序号和电话号码。然后加密保存并隐藏这张工作表，以防别人修改（图1）。
2.另选中一张工作表，命名为“统计”。A列为缴费序号，在A1单元格输入“缴费序号”；B列为电话号码，在B1单元格输入“电话号码”；C列为部门名称，在C1单元格输入部门名称，后面各列按缴费清单上的收费项目依次输入（图2）。然后在A1:A40区域(我的统计表只到A40)设置条件格式，选条件为公式，在条件栏输入“=$b2=0”，格式选字体颜色为白色。
3.在菜单“工具→宏→宏”中新建一个名为“DH”的宏，编辑宏程序如下：
Function DH(缴费序号)
x = 1
Do While Not (IsEmpty(Sheets("原始号码").Cell(x,2).Value
x = x + 1
Loop
For t = 2 To x - 1
If 缴费序号 = Sheets("原始号码").Cells(t, 2) Then
Found = True
Exit For
End If
Next t
If Found Then
DH = Sheets("原始号码").Cells(t,1)
Else
DH = "无此号码"
End If
End Function
4.回到“统计”工作表中，在A2：A40单元格中插入自定义函数公式“= DH(B2)”（图2）；这个自定义公式就放在“插入→函数→用户定义”中（图3）。
OK，当你在“统计”工作表的电话号码栏输入电话号码后，缴费序号就自动显示出来了！是不是很方便呢？其时，这个自定义函数还可以用在其他类似统计表中。我现在就利用这个自定义函数，实现了在单位住房公积金账户中输入员工姓名就自动显示员工个人账号。