c_c_lai

=SUBSTITUTE(TEXT(A1,"[DBNum2]0.00;;"),".","ÂI")
ML089 µoªí©ó 2013-12-10 19:55

¤£¿ùªº Idea¡I
¶¶«K®¥¶P§A¤É¥ôª©¥D¡C

c_c_lai

¦^´_ 1# sasah168
°£¤F¥H¤½¦¡ (ML089 ª©¤j´£¥Ü) ³B²z¥~¡A©|¥i¥H¨Ï¥Î VBA ¼Ò²Õªº¤è¦¡¨Ó³B²z¡A¦p¹Ï¡G

¤U¸ü (20.31 KB)

2013-12-11 08:03

¤U¸ü (41.38 KB)

2013-12-11 08:03

c_c_lai

§Ú¥uª¾¹D±N¼Æ¦r180.30§ï¦¨³ü¨Õ®Ã¬B.°Ñ
¦ý­n¦p¦ó±N¼Æ¦r180.80§ï¦¨°ê¦r³ü®Ã¹sÂI°Ñ¹s
½Ð¤j¤jÀ°¦£ :di ...
sasah168 µoªí©ó 2013-12-10 11:45

¸m©ó "¼Ò²Õ -> Module1" ¤º¡G

1. Sub Ex()
   
2.     Dim strs As String, num As Double
   
3.    
   
4.     num = 15673624.89
   
5.     strs = NumToCur(num)
   
6.     MsgBox num & Chr(10) & strs & Chr(10) & NumToCur(180.3)
   
7. End Sub
   
8. 
   
9. Function NumToCur(ByVal num) As String
   
10.     Const cNum As String = "¹s³ü¶L°Ñ¸v¥î³°¬m®Ã¨h-            ÂI  "
    
11.     Dim sNum As String
    
12.     Dim i As Long
    
13.    
    
14.     If (num <> 0) And (Abs(num) < 10000000000000#) Then
    
15.         sNum = Trim(Str(Int(Abs(num) * 100)))
    
16.         For i = 1 To Len(sNum)                ' ³v¦ìÂà´«
    
17.             NumToCur = NumToCur + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)
    
18.             '  NumToCur = NumToCur + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1)
    
19.         Next
    
20.         NumToCur = Replace(NumToCur, " ", "")
    
21.         If num < 0 Then NumToCur = "(­t)" + NumToCur
    
22.     Else
    
23.         NumToCur = IIf(num = 0, "¹s­È", "·¸¥X")
    
24.     End If
    
25. End Function

½Æ»s¥N½X

c_c_lai

¦^´_ 13# ML089
§Ú¨º NumToCur() ¬O¥Ñ¥H¤Uªº NumToCurr() ­×§ï¦Ó¦¨¡A
©Ò¥H®æ§½¤´«O¯d­ìµ{¦¡­·®æ¡G

1. ' -----------------------------------------------------------------------------
   
2. ' ¹ô­È¤å¼Æ¦rÂà´«
   
3. ' ¤Þ­È (num)¡G Âùºë·Ç (Double) ¼Æ­È num as Currency
   
4. ' -----------------------------------------------------------------------------
   
5. Function NumToCurr(ByVal num) As String
   
6.     Const cNum As String = "¹s³ü¶L°Ñ¸v¥î³°¬m®Ã¨h-¸U¥a¨Õ¬B»õ¥a¨Õ¬B¸U¥a¨Õ¬B¤¸¨¤¤À"
   
7.     Const cCha As String = "¹s¥a¹s¨Õ¹s¬B¹s¹s¹s¹s¹s»õ¹s¸U¹s¤¸»õ¸U¹s¨¤¹s¤À¹s¾ã-¹s¹s¹s¹s¹s»õ¸U¤¸»õ¹s¾ã¾ã"
   
8.     Dim sNum As String
   
9.     Dim i As Long
   
10.    
    
11.     If (num <> 0) And (Abs(num) < 10000000000000#) Then       '  (Abs(num) < 10000000000000#) = True
    
12.         sNum = Trim(Str(Int(Abs(num) * 100)))
    
13.         For i = 1 To Len(sNum)                ' ³v¦ìÂà´«
    
14.             NumToCurr = NumToCurr + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)
    
15.         Next
    
16.         For i = 0 To 11                       ' ¥h±¼¦h¾lªº¹s
    
17.             NumToCurr = Replace(NumToCurr, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))
    
18.         Next
    
19.         If num < 0 Then NumToCurr = "(­t)" + NumToCurr
    
20.     Else
    
21.         NumToCurr = IIf(num = 0, "¹s¤¸", "·¸¥X")
    
22.     End If
    
23. End Function

½Æ»s¥N½X

¥i¯à³o°¦µ{¦¡½X¹ï§A·|¸û¹ê¥Î¡C