将键入的阿拉伯数字自动转换成人民币大写金额

geoffrey

是不是很容易

水晶葡萄

得了。这样以后方便多了。3Q[em02]

ec119

不错!可惜的是书写不正规!负数,整字不能体现!

liyh67

西岭雪

呵呵！！这是我请教过的。他们的答复好下！！ '该函数源码取自网络，略作修改而成 钟跃勇

Public Function BigNum(小写数字 As Currency)

  Application.Volatile

  If 小写数字 = 0 Then

    BigNum = "零元整"

  Else

    Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"

    Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"

    BigNum = ""

    sNum = Trim(Str(Int(Round(小写数字, 2) * 100)))

      For i = 1 To Len(sNum) '逐位转换

        BigNum = BigNum + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)

      Next i

      For i = 0 To 11 '去掉多余的零

        BigNum = Replace(BigNum, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))

      Next i

   End If

End Function

wzdcw

不用这么麻烦，选定单元格，点击右键选中设置单元格格式，点“数字”，“特殊”“类型”“中文大写数字”。就可以了。

ahaoge

自定义函数不清BIGNUM,保存为宏模块,加载宏,即可使用,公式=BIGNUM(number1)

Public Function BigNum(小写数字 As Currency)

  Application.Volatile

  If 小写数字 = 0 Then

    BigNum = "零元整"

  Else

    Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"

    Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"

    BigNum = ""

    sNum = Trim(Str(Int(Round(小写数字, 2) * 100)))

      For i = 1 To Len(sNum) '逐位转换

        BigNum = BigNum + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)

      Next i

      For i = 0 To 11 '去掉多余的零

        BigNum = Replace(BigNum, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))

      Next i

   End If

End Function

扬扬628

楼上的我看不懂，我以前学的全部忘了，好伤心！！

ymzhu302

我试试17楼的！[em01][em01]

tracyli

16楼的方法我试了一下，结果是：



<COLGROUP>

<COL style="WIDTH: 123pt; mso-width-source: userset; mso-width-alt: 5248" width=164>





壹佰贰拾叁.伍