有没有已经注册过的人民币小写金额转换成大写的宏

keyck

<P>能给我一份吗<a href="mailt?shizl125333@163.com.cn" target="_blank" >?shizl125333@163.com.cn</A></P>

czy323

excel本身有&#36825;&#20010;功能的。&#21333;元格&#23646;性—&#25968;字—特殊。

zfdq

<P><a href="mailtzfdq@163.com" target="_blank" >zfdq@163.com</A></P><P>谢谢</P>

数据工人

<P>Function RMBpro(SourceNumber As Double) As String
'Junhui's Macro2002-9-2</P>
<P>
ChineseString1 = "壹贰叁肆伍陆柒捌玖"
ChineseString2 = "仟佰拾亿仟佰拾万仟佰拾圆角分"
OutString = ""
NumberString = Trim(Str(Int(Application.Round(SourceNumber * 100, 0))))
CNT0001 = 15 - Len(NumberString)
CNT0002 = 1
TenThousandYN = 0
Do While CNT0001 &lt;= 14
  SubNumber = Val(Mid(NumberString, CNT0002, 1))
  If SubNumber &lt;&gt; 0 Then
    If CNT0001 = 5 Or CNT0001 = 6 Or CNT0001 = 7 Then
      TenThousandYN = 1
    End If
    RMBsubstr = Mid(ChineseString1, SubNumber, 1)
    OutString = OutString &amp; RMBsubstr
    RMBsubstr = Mid(ChineseString2, CNT0001, 1)
    OutString = OutString &amp; RMBsubstr
  Else
    If CNT0001 = 4 Then
      If Not IsEmpty(OutString) Then
        OutString = OutString &amp; "亿"
      End If
    End If
    If CNT0001 = 8 Then
      If TenThousandYN = 1 Then
        OutString = OutString &amp; "万"
      End If
    End If
    If CNT0001 = 12 Then
      If Not IsEmpty(OutString) Then
        OutString = OutString &amp; "圆"
      End If
    End If
    If CNT0001 &lt; 14 And CNT0001 &lt;&gt; 12 Then  '20.30的大写为贰拾圆叁角整
    'If CNT0001 &lt; 14 Then    '20.30的大写为贰拾圆零叁角整，和用上一句有区别
      If Mid(NumberString, CNT0002 + 1, 1) &lt;&gt; "0" Then
        OutString = OutString &amp; "零"
      End If
    End If
    If CNT0001 = 14 And SourceNumber &lt;&gt; 0 Then
      OutString = OutString &amp; "整"
    End If
  End If
  CNT0001 = CNT0001 + 1
  CNT0002 = CNT0002 + 1
Loop</P>
<P>RMBpro = OutString</P>
<P>End Function
</P>这个VBA代码可以处理千亿位的数，足够了。

[此贴子已经被作者于2004-6-1 18:25:57编辑过]

龙王爷

<P>找了很久了,谢谢,希望下一个EXCEL版本有这个功能</P>

zgzjjxjsym

我也想要,可以吗?<BR><a href="mailto:4982376@126.com" target="_blank" >4982376@126.com</A>

cndl001

<P>二楼主：已经发过去了，谢谢你，平时我们最需要类似宏了，不回写啊，昨天还去下华表2000，那个好象可以的，打开一看，不咋的。</P>

楚天清秋

应用类的东西，想要个现成的&nbsp;&nbsp;&nbsp; <a href="mailto:joesing@163.com">joesing@163.com</a>十分感谢