VBA实用小程序30：将数字转换成中文

微信公众号：excelperfect

[原文来自：www.11jj.com]

 

有时候，我们可能想要将..数字转换成中文数字表示。在dailydoseofexcel.com中，DICK KUSLEIKA发表了5篇文章，为我们提供了转换为不同大小的英文版数字的实现过程。在这里，我将代码进行了修改，使之能够将数字转换成中文。

 

下面是程序代码：

Function ProcessTriplet(ByVal dNumber As Double,Optional ByVal strSuffix As String) As String

    DimvarSingles As Variant

    DimvarTens As Variant

    DimstrReturn As String

   

    varSingles= Split("零,一,二,三,四,五,六,七,八,九",",")

    varTens =Split("零,一十,二十,三十,四十,五十,六十,七十,八十,九十",",")