|
我所在公司与很多供货商有业务往来，经常要给他们汇款，汇款人员不可能记住那么多繁杂的供货商名称及相应的银行账号，需要财会人员通知他汇往指定的账户。这就需要给他一个汇款通知单。如图一所示。
图一
实际应用中，只需要单击“联系人”右面的单元格，单元格内就会出现一个下拉菜单，选中需要汇款的公司联系人名称，其它单元格内自动将出现与该公司相对应的“户名”，“开户行”，“账号”，或“持卡人”及卡号等信息，在汇款金额右面的单元格内输入小写金额，右面就会出现汇款的大写金额。
制作方法简要介绍如下：
首先建立一个EXCEL文件，将其中一个工作表改名为“信息”，如图二所示
图二
工作表中含有公司名称，开户行，账号，联系电话，持卡人等列，输入相应的信息备用。
将另一工作表改名为“汇款通知单”，如图一所示。
选中“汇款通知单”工作表。
在"公司名称"右面的单元格内输入：
"IF(ISERROR(VLOOKUP(C3,信息!A2:G143,2,FALSE)),"",VLOOKUP(C3,信息!A2:G143,2,FALSE))"
在“户名”右面的单元格内输入：
"=IF(ISERROR(VLOOKUP(C3,信息!A2:G92,4,FALSE)),"",VLOOKUP(C3,信息!A2:G92,4,FALSE))"
在“开户行”右面的单元格内输入：
"=IF(ISERROR(VLOOKUP(C3,信息!A2:G92,5,FALSE)),"",VLOOKUP(C3,信息!A2:G92,5,FALSE))"
在“账号”右面的单元格内输入：
"=IF(ISERROR(VLOOKUP(C3,信息!A2:G110,6,FALSE)),"",VLOOKUP(C3,信息!A2:G110,6,FALSE))"
（只要明白了其中一个公式，其它以此类推即可）
选中“联系人”右面的单元格，单击“数据”--“有效性”，选中“设置”选项卡，在“充许”栏内选择“序列”，在“来源”栏内输入“=联系人”，如图三所示。
图三
单击“插入”--“名称”--“定义”，在弹出的如图4的所示的窗口的“在当前工作簿中的名称”栏内输入“联系人”，在“引用位置”栏内输入：“=OFFSET(信息!$A$2,0,0,COUNTA(信息!$A:$A),1)”
在D4单元格内输入“=N2RMB(C4)”，如图四所示。
图四
在工作簿的代码工作窗口输入如下代码，如图五所示。
Function N2RMB(M)
y = Int(Round(100 * Abs(M)) / 100)
j = Round(100 * Abs(M) + 0.00001) - y * 100
f = (j / 10 - Int(j / 10)) * 10
A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "零", "")))
c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
N2RMB = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))
End Function
图五
|
