预收款收据

ladhome · 发表于 2004-9-17 02:27

功能：自动编号，实时记录存根内容。

KYFxsXX3.zip (44.69 KB, 下载次数: 1757)

cjy · 发表于 2004-9-17 10:17

很好，能否公开代码

第三杯茶 · 发表于 2004-9-17 14:41

做得不错，界面也非常漂亮！能公布代码吗？

xinmerry · 发表于 2004-9-20 15:04

楼主做得很好，晕，要输入密码，可我怎么样才能够借用呀？

ladhome · 发表于 2004-9-21 01:57

使用者不需密码，管理员换字轨及编号回零的密码在说明页的 A1 单元格处。

以太 · 发表于 2004-12-1 19:19

以下是引用ladhome在2004-9-21 1:57:00的发言： 使用者不需密码，管理员换字轨及编号回零的密码在说明页的 A1 单元格处。

没有啊，找不到什么呀

ladhome · 发表于 2004-12-2 01:10

先选定A2或B1按着左键把鼠标拖向A1，密码即现。

ab007 · 发表于 2004-12-2 13:48

以下是引用ladhome在2004-12-2 1:10:00的发言： 先选定A2或B1按着左键把鼠标拖向A1，密码即现。

嘿嘿，这方法真妙！[em17]

jxsdslz · 发表于 2004-12-12 22:18

山外有山，天外有天，EXCEL可以学一辈子，不知大小写金额的转换代码如何写，我很想实现这个功能？

ladhome · 发表于 2004-12-14 00:56

把以下代码贴在模块中,在自定义函数中直接调用.

Function drmb(yuan)

If IsNumeric(yuan) = False Then drmb = "无效数值" Exit Function End If

drmb = "" If yuan < 0 Then drmb = "负" End If

rmb1 = Application.WorksheetFunction.Round(Abs(yuan), 2)

aa = Int(rmb1)

aaa = Round((rmb1 - aa) * 100)

bb = Int(aaa / 10)

cc = aaa Mod 10

rmb_s = Len(Format(aa, "###0"))

If rmb_s > 16 Then drmb = "数值过大" Exit Function End If

daa = Application.WorksheetFunction.Text(aa, "[dbnum2]")

dbb = Application.WorksheetFunction.Text(bb, "[dbnum2]")

dcc = Application.WorksheetFunction.Text(cc, "[dbnum2]") If aa <> 0 Then drmb = drmb & daa & "元" End If If Trim(rmb1) = 0 Or rmb1 = "" Then drmb = "" Exit Function End If

If bb = 0 Then If cc = 0 Then drmb = drmb & "整" Exit Function ElseIf aa <> 0 Then drmb = drmb & "零" & dcc & "分" Else drmb = drmb & dcc & "分" End If Else If cc = 0 Then drmb = drmb & dbb & "角整" Exit Function End If drmb = drmb & dbb & "角" & dcc & "分" End If

End Function

		自动登录	找回密码
密码			免费注册

预收款收据

回复：（xinmerry）楼主做得很好，晕，要输入密码，可...

回复：（以太）以下是引用ladhome在2004-9-21 1:57:00...