[分享]分享一个数字金额转换成中文大写金额的案例

loren

<p>我不做财务，但是呢，偶尔还是需要向财务部门保障填写报销单，对于我这种壹贰叁、元角分经常写不明白的人，每次写金额都是个任务。</p><p>去年公司培训的时候，老师曾经给了一个excel表，里面设定好了相关公式。每次只要写好数字，自动可以转化成中文大写。</p><p>翻出来分享一下，有兴趣可以研究一下里面的公式。</p><p>

游客，如果您要查看本帖隐藏内容请回复

</p>

[此贴子已经被作者于2008-4-26 13:13:40编辑过]

HYY514

[em01]

yuhai0012

看看

HYY514

Public Function dx(n As Double) As String<br/>dx = Replace(Application.Text(Round(n + 0.00000001, 2), "[DBnum2]"), ".", "元")<br/>dx = IIf(Left(Right(dx, 3), 1) = "元", Left(dx, Len(dx) - 1) &amp; "角" &amp; Right(dx, 1) &amp; "分", IIf(Left(Right(dx, 2), 1) = "元", dx &amp; "角整", IIf(dx = "零", "", dx &amp; "元整")))<br/>dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")<br/>Application.Volatile<br/>End Function

HYY514

<p>不是我的</p>

loren

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>HYY514</i>在2008-4-26 13:18:00的发言：</b><br/>ublic Function dx(n As Double) As String<br/>dx = Replace(Application.Text(Round(n + 0.00000001, 2), "[DBnum2]"), ".", "元")<br/>dx = IIf(Left(Right(dx, 3), 1) = "元", Left(dx, Len(dx) - 1) &amp; "角" &amp; Right(dx, 1) &amp; "分", IIf(Left(Right(dx, 2), 1) = "元", dx &amp; "角整", IIf(dx = "零", "", dx &amp; "元整")))<br/>dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")<br/>Application.Volatile<br/>End Function</div><p></p>[em01]vba啊，我不敢碰呢

[此贴子已经被作者于2008-4-26 14:24:50编辑过]

roomxd

顶一个

游龙

学习

mrs222

[em48][em47][em27]

liyxliyxm

<div style="MARGIN-TOP: 10px; FONT-SIZE: 9pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; WORD-WRAP: break-word;">看看,学习<br/><br/></div>