ML089

=SUBSTITUTE(TEXT(A1,"[DBNum2]0.00;;"),".","Â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²{

ML089

¦^´_  ML089
¦^´_ 7# ML089
·PÁÂML089 ª©¥D¼ö¤ß¸Ñ»¡TEXT(A1,"[DBNum2]0.00;;")¨Ï¥Î2­Ó¤À¸¹¡A¥i¨ÏÀx¦s®æA1¬°ªÅ®æ®É¹Bºâ¦^À³¬°¡uªÅ¥Õ¡v¡C
¦ý°w¹ïTEXT(A1,"[DBNum2]0.00;;")¤½¦¡¦³¤U¦CºÃ´b¡A·Ð½Ð½ç±Ð¡AÁÂÁ¡I
1¡B¨Ï¥Î2­Ó¤À¸¹ªº TEXT(A1,"[DBNum2]0.00;;")»P¨Ï¥Î1­Ó¤À¸¹ªº TEXT(A1,"[DBNum2]0.00;")¡A¨äµ²ªG¦ü¥G¬O¬Û¦Pªº¡A¹ï§_¡H¨º»ò­Y§ï¥Î1­Ó¤À¸¹·|¦³¦ó¡u¤£¹w´Á¤ÏÀ³¡v¡H
2¡B·íÀx¦s®æA1¬°¡u­t¼Æ¡v®É¡A¤½¦¡TEXT(A1,"[DBNum2]0.00;;")¦^À³ªºµ²ªG±N¬°¡uªÅ¥Õ¡v¡A¦¹À³¦p¦ó­×¥¿¨Ï¨ä¥X²{­t¼Æªºµ²ªG¡H
3¡B¹ï©óTEXT(¼Æ¦r¡A"¥¿;­t;¹s;¤å¦r")¤§"¥¿;­t;¹s;¤å¦r"¡A¦¹³W«h­ì²z¤§¸Ô²Ó»¡©ú¥i©ó¦ó³B¬d¸ß¡H(¦b<<Excel»¡©ú>>¬dµL¦¹³W«h)
p212 µoªí©ó 2013-12-11 09:10

°ÝÃD1¡B2½Ð¬Ý¤U­±¹Ï»¡¤º®e
°ÝÃD3¡A§Ú¤£ª¾¹DTEXTªº»¡©ú¥X¦Û­þ¸Ì¡A§Ú³s®Ñ³£¨S¦³¡A¤j³¡¬O¦b½×¾Â¤WÃä¬ÝÃä¾Ç¡A¥[¤W¦Û¤vªº´ú¸Õ´N¹³§ÚPOªº¹Ï¡AÁÙ¦³F1ªº»¡©ú+GOOGLEªº¬d¸ß

¤U¸ü (55.05 KB)

2013-12-11 09:59

ML089

¦^´_ 10# c_c_lai

¥ÑÅܼƫŧi¤ÎÅܼƩR¦W¨Ó¬Ý¡A§AÀ³¸Ó¬O«Ü±M·~ªºµ{¦¡¤H­û¡C

§Ú¥H«e³£¬O¼gFORTRAN¤pµ{¦¡´N¨S¦³¾i¦¨³o²ßºD¡A¤é«áVBA³¡¤ÀÀ³¸Ó­n¸ò§A¦h¦h¾Ç²ß¡C

³oºØ¤pµ{¦¡¾A¦X§Ú¨Ó½m²ß
Sub ex2()
    Dim strs As String, num As Variant

    strs = ""
    num = 123.4
    strs = strs & num & Chr(10) & NumToCur2(num) & Chr(10)

    num = -456.789
    strs = strs & num & Chr(10) & NumToCur2(num) & Chr(10)
   
    num = 0
    strs = strs & num & Chr(10) & NumToCur2(num) & Chr(10)
   
    num = "123 456 789"
    strs = strs & num & Chr(10) & NumToCur2(num) & Chr(10)
    MsgBox strs

End Sub
Function NumToCur2(ByVal num) As String
    NumToCur2 = num: N = "0123456789.": C = "¹s³ü¶L°Ñ¸v¥î³°¬m®Ã¨hÂI"
    For i = 1 To Len(N)
        NumToCur2 = Replace(NumToCur2, Mid(N, i, 1), Mid(C, i, 1))
    Next
End Function

ML089

¦^´_ 14# c_c_lai

§A³o¦Û©w¨ç¼Æ¾A¥Î©ó¤ä²¼ªºª÷ÃB

¼Ó¥DªºÀ³¸Ó¬O ªí³æ¤W¤è¤w¸g¦L¦n ­Ó¤Q¦Ê¤d¸U¡A¤U¤è­n¦L¤J¼Æ¦rÂà¤j¼g¼Æ¦r¡C