请各位高手指教

肥牛布施

<FONT size=2>如何能修改编程，在显示小写数字的同时，一同在开头显示人民币符号： </FONT>
<TABLE style="WIDTH: 11pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=15 border=0 x:str>
<COLGROUP><FONT size=2>
<COL style="WIDTH: 11pt; mso-width-source: userset; mso-width-alt: 480" width=15></FONT>
<TBODY>
<TR style="HEIGHT: 30pt; mso-height-source: userset" height=40>
<TD class=xl25 style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; WIDTH: 11pt; BORDER-BOTTOM: #ece9d8; HEIGHT: 30pt; BACKGROUND-COLOR: transparent" width=15 height=40><B><FONT face="Times New Roman" size=5>&yen;</FONT></B></TD></TR></TBODY></TABLE> jqxMqnZR.rar (7.93 KB, 下载次数: 22)

2004-2-16 20:47 上传

点击文件名下载附件
请各位高手指教

<BR>

sqac

利用循环语句判断位数，然后插入人民币符合。

hzg7818

Sub XiaoxieNum(Number As Double)<BR>                         <BR>                         Const Fengtou As String = "￥"<BR>                         '最大数字位数为10<BR>                         Const Bigdigit = 10<BR>                         <BR>                         Dim rngXiaoxie As Range<BR>                         Dim strXiaoxie(Bigdigit) As String<BR>                         Dim strTemp As String<BR>                         Dim DigitCount<BR>                         Dim i As Integer<BR>                         '小写数字区域<BR>                         Set rngXiaoxie = Sheets(1).Range("k5:u5")<BR>                         '临时数字字符串<BR>                         strTemp = CStr(Int(Number * 100))<BR>                         '数字位数<BR>                         DigitCount = Len(strTemp)<BR>                         <BR>                         If DigitCount &gt; Bigdigit Then<BR>                                                         MsgBox "数据不能超过10位数字"<BR>                                                         Exit Sub<BR>                         End If<BR>                         <BR>                         i = 10<BR>                         Do Until DigitCount = 0<BR>                                                         strXiaoxie(i) = Mid(strTemp, DigitCount, 1)<BR>                                                         DigitCount = DigitCount - 1<BR>                                                         i = i - 1<BR>                         Loop<BR>                                                         <BR>                         strXiaoxie(i) = Fengtou<BR>                         <BR>                         rngXiaoxie.FormulaArray = strXiaoxie<BR>                 <BR>End Sub


调用方法


Sub Xiaoxie()<BR>                         XiaoxieNum (78)<BR>End Sub