Excel uses functions to convert numbers into currency
Publish: 2021-05-14 10:03:54
1.
1. First of all, open our computer, enter into the computer desktop, find my world in the computer desktop, enter into my world game
2. There are many methods, such as data / column method, and (A1 is the text format with = -- A1)
3. The simplest way is:
Enter 6.8 in a blank cell, , select the cell with value in column a, right-click, paste special, and click & quot; Formula & quot;, Click & quot; Divide by & quot;, determine
Enter 6.8 in a blank cell, , select the cell with value in column a, right-click, paste special, and click & quot; Formula & quot;, Click & quot; Divide by & quot;, determine
4.
Use the corresponding function to convert the numerical RMB into capital in Excel. Please refer to the following steps for specific operation. The demo software version is Excel2007
First, open an excel file on the computer and enter the editing area, as shown in the figure5. 打开VB编辑器,新建一模块,输入以下代码:
Public Function RMBDX(M)
RMBDX = Replace(Application.Text(Round(M + 0.00000001, 2), "[DBnum2]"), ".", "元")
RMBDX = IIf(Left(Right(RMBDX, 3), 1) = "元", Left(RMBDX, Len(RMBDX) - 1) & "角" & Right(RMBDX, 1) & "分", IIf(Left(Right(RMBDX, 2), 1) = "元", RMBDX & "角整", IIf(RMBDX = "零", "", RMBDX & "元整")))
RMBDX = Replace(Replace(Replace(Replace(RMBDX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function
假如你要转换的数值在A1单元格,在B1或其他单元格输入= RMBDX(A1)
这是自定义函数,office 2003里面应该有带的
Public Function RMBDX(M)
RMBDX = Replace(Application.Text(Round(M + 0.00000001, 2), "[DBnum2]"), ".", "元")
RMBDX = IIf(Left(Right(RMBDX, 3), 1) = "元", Left(RMBDX, Len(RMBDX) - 1) & "角" & Right(RMBDX, 1) & "分", IIf(Left(Right(RMBDX, 2), 1) = "元", RMBDX & "角整", IIf(RMBDX = "零", "", RMBDX & "元整")))
RMBDX = Replace(Replace(Replace(Replace(RMBDX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function
假如你要转换的数值在A1单元格,在B1或其他单元格输入= RMBDX(A1)
这是自定义函数,office 2003里面应该有带的
6. 20551;"A1e21333;" 20803;"26684;" 20889;"21017;" 20854;"23427;" 21333;"20803;" 26684;"36755br" />=IF(ABS(A1)< 0.005,"& quot; IF(A1< 0," "" IF(INT(ABS(A1)),TEXT(INT(ABS(A1),"[ dbnum2]"& quot; "" IF(INT(ABS(A1)*10)-INT(ABS(A1)*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1)*10,"[ dbnum2]"& quot; " IF(INT(ABS(A1)=ABS(A1),,IF(ABS(A1)< 0.1," ")" IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(ABS(A1)*10,"[ dbnum2]"& quot; "" quot; "))
7.
26041;.65861;65306;
1.-122891;25171;.24320;EXCELL 34920;-26684;65292;A1-36755;-20837;<20889;<-379;<>>>3906999292x22312;";(2037;2037;2037;2626266306530303065;(SUBSTITUTE;) 0.5%," 12367""& amp; TEXT(INT(FIXED(ABS(A1)), "[ dbnum2]G/36890;-29992;-26684;-24335;-20803;&& quot;& amp; TEXT(RIGHT(FIXED(A1),2),"[ dbnum2]035282;/020998;& quot;& amp; IF(ABS(A1)> 1%, " .25972;quot;] quot; (38646;)35282", IF(ABS(A1)< 1," 38646,"] quot; .38646;. quot; 25972;quot;2.122891.30830;<23450;<21518;<25928;<26524;<22914;<22270p>
Hot content