[推荐]：VBA论坛板块的电子书版本

unlucky

支持

海滩飞狐

我一直在搜寻，可惜我原先的注册帐户密码忘了，新注册的积分又不够，太可惜！

秦林

尽力而为

登山

太好了

秦林

谢谢斑竹先生，希望多提供类似的知识

ynj

好学吗？需要VB基础吗？

duanjunqi

多谢efn2000的好东西，比较有用呀！

mlr_nj

efn2000兄平时一定很忙，这次整理是2002年12月的。不知道在能不能百忙之中再抽出时间给我们整理归纳出新的有用的帖子，这些对我们新手帮助实在是巨大啊。真希望vba的盟友越来越多，普及vba。奢求了！谢谢efn2000兄！

long91

太好啦！！！辛苦啦！小弟绝对支持！

tsy_sds_chwr

我强烈的推荐版主再上传一次，以便后来人学习。

jameszzh

版主，我刚注册。不能下载，能不能EMAIL一份给我。在此多谢了。
zhangzhenhai@tom.com
为了表达谢意，现呈愚作一份。是金额大小写转换的FUNCTION。
Function dx(value)
'中文大写源代码,By jamesn zhangzhenhai email zhangzhenhai@tom.com
'支持负数,支持小数点后的第三位数是否进行四舍五入处理
'2004-12-6
On Error Resume Next
Dim jf As String   '定义角分位
Dim j '定义角位
Dim f '定义分位
If value < 0 Then '处理正负数的情况
a = "负"
Else
a = ""
End If

If IsNumeric(value) = False Then '判断待转换的value是否为数值
dx = "需转换人民币的内容非数值"
Else
value = Abs(CCur(value)) '取绝对值
value = Application.WorksheetFunction.Round(value, 2) '只用round有bug
If Fix(value) = value Then
strdx = Application.WorksheetFunction.Text(value, "[DBNum2]") & "元" '只元时，角分为零时
Else '有角分时
jf = Round((value - Fix(value)) * 100, 0)
value = Fix(value) '定义整数部分
If Right(jf, 1) = 0 Then '分为零时的情况
strdx = Application.WorksheetFunction.Text(value, "[DBNum2]") & "元" & _
Application.WorksheetFunction.Text(jf / 10, "[DBNum2]") & "角"
Else '分不为零时
j = Fix(jf / 10)
f = Fix(jf - 10 * j)
strdx = Application.WorksheetFunction.Text(value, "[DBNum2]") & "元" & _
Application.WorksheetFunction.Text(j, "[DBNum2]") & "角" _
& Application.WorksheetFunction.Text(f, "[DBNum2]") & "分"
End If
End If
dx = a & "人民币" & strdx & "整" '最后成型了
End If
End Function

morning90

非常的好

cqsnowfox

我是VBA菜鸟,请都帮忙.我想下载VBA资料,可是不够分啊,好郁闷哦........................*-*a *-*a *-*a *-*a *-*a *-*2 *-*2 *-*2 *-*2

luchief

可不可以free啊？？

abu

将近一年没来XD CAD,新增一下载时间限制,无天理啊......呵呵