¦p¦ó±N¼Æ¦r180.30§ï¦¨°ê¦r³ü®Ã¹sÂI°Ñ¹s

sasah168

§Ú¥uª¾¹D±N¼Æ¦r180.30§ï¦¨³ü¨Õ®Ã¬B.°Ñ
¦ý­n¦p¦ó±N¼Æ¦r180.80§ï¦¨°ê¦r³ü®Ã¹sÂI°Ñ¹s
½Ð¤j¤jÀ°¦£

softsadwind

¦^´_ 1# sasah168


    https://dl.dropboxusercontent.com/u/61135474/%E8%8B%B1%E6%96%87%E5%A4%A7%E5%AF%AB%E8%BD%89%E6%8F%9B.xls
°Ñ¦Ò¬Ý¬Ý....

p212

¦^´_ 1# sasah168
°²³]Àx®æA1¬°180.3
©ó¥ô¤@Àx¦s®æ¿é¤J =LEFT(TEXT(A1,"[dbnum2]"),FIND(".",TEXT(A1,"[dbnum2]"))-1)&"ÂI"&RIGHT(TEXT(A1,"[dbnum2]"),LEN(TEXT(A1,"[dbnum2]"))-FIND(".",TEXT(A1,"[dbnum2]")))

p212

¦^´_ 1# sasah168
Sorry!
3#ªº¦^ÂÐ¥¼©P¥þ¡A½Ð°Ñ¦Ò¤U¦C²Õ¦X¤½¦¡¡C
°²³]Àx®æA1¬°180.30¡A¥ô¤@Àx¦s®æ¿é¤J
=LEFT(TEXT(A1,"[DBNum2]0.00"),FIND(".",TEXT(A1,"[DBNum2]0.00"))-1)&"ÂI"&RIGHT(TEXT(A1,"[DBNum2]0.00"),LEN(TEXT(A1,"[DBNum2]0.00"))-FIND(".",TEXT(A1,"[DBNum2]0.00")))
µª®×§Y¬°¡u³ü®Ã¹sÂI°Ñ¹s¡v
«ä¸ô¡G¥ô¤@Àx¦s®æ¿é¤J=TEXT(A1,"[DBNum2]0.00")±o¡u³ü®Ã¹s.°Ñ¹s¡v
¤p¼Æ©T©w¨â¦ì¥i¬Ù²¤¦¨......&"ÂI"&RIGHT(TEXT(A1,"[DBNum2]0.00"),2)

ML089

=SUBSTITUTE(TEXT(A1,"[DBNum2]0.00;;"),".","ÂI")

p212

¦^´_ 5# ML089
·PÁÂML089ª©¥D²¤Æ¤½¦¡
½Ð°Ý¡G¦b=SUBSTITUTE(TEXT(A1,"[DBNum2]0.00;;"),".","ÂI") ¤¤¨Ï¥Î¬õ¦r³¡¥÷¡u2­Ó¤À¸¹¡v¥Î·N¦ó¦b¡H
·Ð½Ð½ç±Ð¡AÁÂÁ¡I

ML089

¦^´_  ML089
·PÁÂML089ª©¥D²¤Æ¤½¦¡
½Ð°Ý¡G¦b=SUBSTITUTE(TEXT(A1,"[DBNum2]0.00;;"),".","ÂI") ¤¤¨Ï¥Î¬õ ...
p212 µoªí©ó 2013-12-10 22:14

TEXT(¼Æ¦r¡A"¥¿;­t;¹s;¤å¦r")
«á­±±N¨â­Ó ;; ¥D­n§@¥Î¬O¨S¦³¿é¤J¼Æ­È®É¥HªÅ¥Õ§e²{

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