车辆加油管理

besty_wy · 发表于 2013-1-8 16:16

云朵中的民族发表于 2012-12-17 12:04
也是你的附件提醒我加了一个加油次数统计，相互学习，一起进步！

楼主，你的表格里面有一个将加油金额转为大写数字的函数，怎么用的？我这试了下，没成功。好像是DX（）函数

云朵中的民族 · 发表于 2013-1-8 22:42

besty_wy 发表于 2013-1-8 16:16
楼主，你的表格里面有一个将加油金额转为大写数字的函数，怎么用的？我这试了下，没成功。好像是DX（）函 ...

那是个自定义函数，写在代码里的，你查看代码能看到

南海 · 发表于 2013-1-8 23:16

我也需要03版，HKyueyue@163.com

wh1272 · 发表于 2013-1-9 08:41

给发一份03版的，531287411@qq.COM.谢谢！

云朵中的民族 · 发表于 2013-1-10 13:25

besty_wy 发表于 2013-1-8 16:16
楼主，你的表格里面有一个将加油金额转为大写数字的函数，怎么用的？我这试了下，没成功。好像是DX（）函 ...

Function DX(n) '人民币大写转换
DX = Replace(Application.Text(n, "[DBnum2]"), ".", "元")
DX = IIf(Left(Right(DX, 3), 1) = "元", Left(DX, Len(DX) - 1) & "角" & Right(DX, 1) & "分", _
IIf(Left(Right(DX, 2), 1) = "元", DX & "角整", IIf(DX = "零", "", DX & "元整")))
DX = Replace(Replace(Replace(Replace(DX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function

kingtiy · 发表于 2013-1-10 14:38

还是挺不错的.

8088398yj · 发表于 2013-3-1 12:26

菜鸟也需要03版的，QQ：723769400 学习一下。

lujkhua · 发表于 2013-8-19 10:09

楼主辛苦了，请您也给我发个03版的好吗？dx-wu@163.com

三万深蓝 · 发表于 2013-8-27 11:25

感谢楼主分享，谢谢。

senco · 发表于 2013-12-4 16:05

谢谢楼主，表格很强大，我这边用几张表保留的数据，这个表格基本全部包含在内了。赞一个

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

[分享] 车辆加油管理