Excel中将人民币小写转大写的公式？ excel中人民币小写转大写的函数怎么写？

Excel\u4e2d\u5c06\u4eba\u6c11\u5e01\u5c0f\u5199\u8f6c\u5927\u5199\u7684\u516c\u5f0f\uff1f

\u5982\u679c\u6570\u636e\u653e\u5728A1\uff0c
\u5728B1\u4e2d\u8f93\u5165
=TEXT(100*A1,"[DBnum2]0\u62fe0\u4e070\u53430\u767e0\u62fe0\u51430\u89d20\u5206")
\u4e0a\u6b21\u7ed9\u4f60\u7684\u90a3\u4e2a\u5c11\u4e58\u4e86100\uff0c\u4f1a\u663e\u793a\u9519\u8bef\u7684\u3002

\u6211\u7ed9\u4f60\u4e00\u4e2a\u65b9\u6cd5\u5c06\u6b64\u590d\u5236\u4e0b\u6765\u7c98\u8d34\u5230Excel\u5355\u5143\u683c\u5185\u5c31\u53ef\u4ee5\u4e86\u3002
=IF(ROUND(A5,2)<0,"\u65e0\u6548\u6570\u503c","\u4eba\u6c11\u5e01"&IF(ROUND(A5,2)=0,"\u96f6\u5143",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"\u5143")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","\u96f6"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"\u89d2")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"\u6574",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"\u5206")))

\u8fd8\u6709\u4ee5\u4e0b\u65b9\u6cd5\uff1aExcel\u5c06\u5c0f\u5199\u91d1\u989d\u8f6c\u6362\u6210\u4eba\u6c11\u5e01\u7684\u5927\u5199\u91d1\u989d

1\u3001\u5982\u4f55\u81ea\u5b9a\u4e49\uff1a

\u6253\u5f00EXCEL,\u65b0\u5efa\u4e00\u4e2a\u6587\u4ef6Book1,\u6309ALT+F11\u8fdb\u5165VBA\u7f16\u7a0b\u73af\u5883,\u9009\u4e2d\u8fd9\u4e2aBOOK1\u6587\u4ef6,\u63d2\u5165\u6a21\u5757,\u5c06\u4e0b\u9762\u7684\u6e90\u4ee3\u7801\u590d\u5236\u5230\u53f3\u8fb9\u7684\u6a21\u5757\u4ee3\u7801\u533a\u5185,\u7136\u540e\u5c06\u6b64BOOK1\u4fdd\u5b58,\u4fdd\u5b58\u7c7b\u578b\u4e00\u5b9a\u9009\u52a0\u8f7d\u5b8f,\u6587\u4ef6\u540d\u561b\u53ef\u81ea\u7531\u53d1\u6325,\u6211\u5c31\u586b"\u4e2d\u6587\u5927\u5199",\u786e\u5b9aOK!\u7136\u540e\u56de\u5230EXCEL,\u5de5\u5177--\u52a0\u8f7d\u5b8f-\u627e\u5230"\u4e2d\u6587\u5927\u5199",\u6253\u52fe\u786e\u5b9a,\u6211\u4eec\u8fd9\u4e2a\u81ea\u5b9a\u4e49\u51fd\u6570\u5c31\u53ef\u4ee5\u8c61\u5185\u7f6e\u51fd\u6570\u6837\u4f7f\u7528\u4e86!--->=rmbdx(123456.78),\u723d\u5427!

2\u3001\u4f8b\u5b50:

A\u3001\u76f4\u63a5\u5728\u51fd\u6570\u5185\u8f93\u5165\u6570\u503c\u7684\uff08\u8bf7\u6ce8\u610f\u53c2\u6570\u7684\u7528\u6cd5\uff0c\u9ed8\u8ba4\u7528\u6cd5\u662f\u4e0d\u7528\u8f93\u5165\uff09
=rmbdx(123456.78)--->\u58f9\u62fe\u8d30\u4e07\u53c1\u4edf\u8086\u4f70\u4f0d\u62fe\u9646\u5143\u67d2\u89d2\u634c\u5206
=rmbdx(123456.78,0)--->\u58f9\u62fe\u8d30\u4e07\u53c1\u4edf\u8086\u4f70\u4f0d\u62fe\u9646\u5143\u67d2\u89d2\u634c\u5206
=rmbdx(123456.78,1)--->\u58f9\u62fe\u8d30\u4e07\u53c1\u4edf\u8086\u4f70\u4f0d\u62fe\u9646\u5143\u67d2\u89d2\u634c\u5206
=rmbdx(56.78)--->\u4f0d\u62fe\u9646\u5143\u67d2\u89d2\u634c\u5206
=rmbdx(0.78)--->\u67d2\u89d2\u634c\u5206
=rmbdx(0.784)--->\u67d2\u89d2\u634c\u5206
=rmbdx(0.785,1)--->\u67d2\u89d2\u7396\u5206
=rmbdx(0.02,1)--->\u8d30\u5206
B\u3001\u5f15\u7528\u67d0\u5355\u5143\u683c\u6570\u503c\u8fdb\u884c\u8f6c\u6362\u7684
\u5047\u8bbe\u4f60\u7684D3\u5355\u5143\u683c\u7684\u6570\u636e\uff08\u4e5f\u53ef\u4ee5\u662f\u6c42\u548c\u6216\u5176\u5b83\u516c\u5f0f\u5f97\u51fa\u7684\u7ed3\u679c\uff09\u9700\u8981\u8f6c\u6362\uff0c\u5927\u5199\u683c\u5f0f\u653e\u5728D4\u5355\u5143\u683c\uff0c\u5219D4\u8f93\u5165\u516c\u5f0f\uff1a=rmbdx(d3)\u5373\u53ef
C\u3001\u5176\u5b83\u5f62\u5982=rmbdx(SUM(C4:C6))\u7684\u4e5f\u53ef\u4ee5\uff0c\u7528\u6cd5\u8c61\u5185\u7f6e\u51fd\u6570\uff0c\u8bf7\u7075\u6d3b\u4f7f\u7528

3\u3001\u6e90\u4ee3\u7801\uff1a

Functionrmbdx(value,Optionalm=0)
\u2019\u4e2d\u6587\u5927\u5199\u6e90\u4ee3\u7801,By\u5bf9\u9762\u7537\u5b69\u3001redwin
\u2019\u652f\u6301\u8d1f\u6570,\u652f\u6301\u5c0f\u6570\u70b9\u540e\u7684\u7b2c\u4e09\u4f4d\u6570\u662f\u5426\u8fdb\u884c\u56db\u820d\u4e94\u5165\u5904\u7406
\u2019\u9ed8\u8ba4\u53c2\u6570\u4e3a0,\u5373\u4e0d\u5c06\u5c0f\u6570\u70b9\u540e\u7684\u7b2c\u4e09\u4f4d\u6570\u8fdb\u884c\u56db\u820d\u4e94\u5165\u5904\u7406
\u20192002-10-11--2002-10-13
OnErrorResumeNext
Dima
DimjfAsString\u2019\u5b9a\u4e49\u89d2\u5206\u4f4d
Dimj\u2019\u5b9a\u4e49\u89d2\u4f4d
Dimf\u2019\u5b9a\u4e49\u5206\u4f4d
Ifvalue<0Then\u2019\u5904\u7406\u6b63\u8d1f\u6570\u7684\u60c5\u51b5
a="\u8d1f"
Else
a=""
EndIf

IfIsNumeric(value)=FalseThen\u2019\u5224\u65ad\u5f85\u8f6c\u6362\u7684value\u662f\u5426\u4e3a\u6570\u503c
rmbdx="\u9700\u8f6c\u6362\u7684\u5185\u5bb9\u975e\u6570\u503c"
Else
value=Abs(CCur(value))
\u2019\u5f53\u53c2\u6570m\u4e0d\u8f93\u5165(\u9ed8\u8ba4\u4e3a0)\u6216\u4e3a0\u65f6,\u5c0f\u6570\u70b9\u540e\u7684\u7b2c\u4e09\u6570\u4e0d\u8fdb\u884c\u56db\u820d\u4e94\u5165\u5904\u7406
\u2019\u5f53\u53c2\u6570m\u4e3a1\u6216\u5176\u5b83\u6570\u503c\u65f6,\u5c0f\u6570\u70b9\u540e\u7684\u7b2c\u4e09\u6570\u8fdb\u884c\u56db\u820d\u4e94\u5165\u5904\u7406
Ifm=0Then
jf=Fix((value-Fix(value))*100)
value=Fix(value)+jf/100
Else\u2019\u5398\u4f4d\u8fdb\u884c\u56db\u820d\u4e94\u5165\u5b9e\u8df5\u5f88\u5c11\u7528\u5230,\u4f46\u8fd8\u662f\u8981\u7167\u987e\u5230
value=Application.WorksheetFunction.Round(value,2)\u2019-->\u8fd9\u53e5\u662f\u5173\u952e!\u53ea\u7528round\u6709bug
jf=Round((value-Fix(value))*100,0)
EndIf
Ifvalue=0Orvalue=""Then\u2019\u5f53\u5f85\u8f6c\u6362\u6570\u503c\u4e3a0\u6216\u7a7a\u65f6,\u4e0d\u8fdb\u884c\u8f6c\u6362
rmbdx=""
Else
strrmbdx=Application.WorksheetFunction.Text(Int(value),"[DBNum2]")&"\u5143"\u2019\u8f6c\u6362\u6574\u6570\u4f4d
IfInt(value)=0Then
strrmbdx=""
EndIf
IfInt(value)valueThen
Ifjf>9Then\u2019\u5224\u65ad\u5c0f\u6570\u4f4d
j=Left(jf,1)
f=Right(jf,1)
Else
j=0
f=jf
EndIf

Ifj0Andf0Then\u2019\u89d2\u5206\u4f4d\u90fd\u6709\u65f6
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"\u89d2"_
&Application.WorksheetFunction.Text(f,"[DBNum2]")&"\u5206"
Else
\u2019\u5904\u7406\u51fa\u73b0\u96f6\u51e0\u5206\u7684\u60c5\u51b5
IfInt(value)=0Andj=0Andf0Then
jf=Application.WorksheetFunction.Text(f,"[DBNum2]")&"\u5206"
Else
Ifj=0Then\u2019\u6709\u5206\u65e0\u89d2\u65f6
jf="\u96f6"&Application.WorksheetFunction.Text(f,"[DBNum2]")&"\u5206"
Else
Iff=0Then\u2019\u6709\u89d2\u65e0\u5206\u65f6
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"\u89d2\u6574"
EndIf
EndIf
EndIf
EndIf
strrmbdx=strrmbdx&jf\u2019\u7ec4\u88c5
Else
strrmbdx=strrmbdx&"\u6574"
EndIf

rmbdx=a&strrmbdx\u2019\u6700\u540e\u6210\u578b\u4e86,\u5404\u4f4dMM\u6ee1\u610f\u4e86\u5427
EndIf
EndIf
EndFunction

工具/原材料

excel2018版、电脑。

1、打开电脑找到并双击打开excel2018新建工作表格；

2、双击打开excel新建工作表格以后，为了示范在A1输入好数字，在复制粘贴到B1中；

3、编辑数字并选中B1后，点击鼠标右键选择”设置单元格格式“的命令；

4、在弹出的对话框中点击特殊，并在右边的界面选择人民币大写点击确定；

5、设置并确定好以后，此时B1的单元格就自动的转换为大写；

6、也可以在单元格内直接输入v+数字，如：”v365874.51“选择大写的金额即可完成。

设A1列为数据列，则在A2输入以下公式(可复制):

=IF(A1<0,"负","")&IF(ABS(A1)>1,TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元","")&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分","整")

=IF(G4<0,TEXT(INT(ABS(G4)),"负[DBNum2]g/通用格式"),TEXT(INT(G4),"[DBNUM2]"))&IF(INT(G4)=G4,"元整","元")

&TEXT(MID(G4,LEN(INT(G4))+2,1),"[DBNUM2]D角")

&TEXT(MID(G4,LEN(INT(G4))+3,1),"[DBNUM2]D分")

针对G4单元格，可以判断正负，小数点2位以后直接舍去，这是我找到最简洁的公式，自己加了负数和整数判断，第一行变得略长一些

效果图

针对G2单元格，如果不加判断负数的话会更简洁，但是万一遇到负数没注意的话就容易忽略数字前面的符号

=TEXT(INT(G2),"[DBNUM2]")&IF(INT(G2)=G2,"元整","元")

&TEXT(MID(G2,LEN(INT(G2))+2,1),"[DBNUM2]D角")

&TEXT(MID(G2,LEN(INT(G2))+3,1),"[DBNUM2]D分")

不判断负数公式

A1输入数字，在B1或其它单元格输入公式：=IF(A1="","",IF(ROUND(A1,2)=0,"零",IF(ROUND(A1,2)<0,"负","")&IF(ROUND(ABS(A1),2)<1,"",TEXT(INT(ROUND(ABS(A1),2)),"[dbnum2]")&"圆")&IF(INT(ROUND(ABS(A1),2)*10)-INT(ROUND(ABS(A1),2))*10=0,IF(INT(ROUND(ABS(A1),2)*100)-INT(ROUND(ABS(A1),2)*10)*10=0,"","零"),TEXT(INT(ROUND(ABS(A1),2)*10)-INT(ROUND(ABS(A1),2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(ABS(A1),2)*100)-INT(ROUND(ABS(A1),2)*10)*10)=0,"整",TEXT((INT(ROUND(ABS(A1),2)*100)-INT(ROUND(ABS(A1),2)*10)*10),"[dbnum2]")&"分")))

如果数据放在A1， 在B1中输入
=TEXT(100*A1,"[DBnum2]0拾0万0千0百0拾0元0角0分")
上次给你的那个少乘了100，会显示错误的。

excel琛ㄦ牸涓灏忓啓鏁板瓧濡備綍杞崲涓哄ぇ鍐閲戦
绛旓細鎵撳紑excel锛岀偣鍑昏杞崲澶у皬鍐欏崟鍏冩牸銆傛敞鎰忥細鐐瑰嚮涓娆″嵆鍙紝涓嶈杩涘叆缂栬緫鐘舵併鐒跺悗鐐瑰嚮榧犳爣鍙抽敭锛岀偣鍑汇愯缃崟鍏冩牸鏍煎紡銆銆傚湪寮瑰嚭鏉ョ殑椤甸潰閫夋嫨銆愮壒娈娿戯紝鐒跺悗閫夋嫨銆愪腑鏂囧ぇ鍐欐暟瀛椼戯紝鏈鍚庣偣鍑荤‘瀹氬嵆鍙傜幇鍦ㄦ暟瀛楀氨杞崲澶у啓鐨勪腑鏂囦簡銆傛晥鏋滃鍥撅紝璇峰ぇ瀹跺弬鑰冦

excel灏忓啓杞负澶у啓澶у啓閲戦鏂规硶鍙婃妧宸
绛旓細鏂规硶1锛灏嗗皬鍐欐暟瀛楄浆鎹㈡垚澶у啓涓枃锛鍙冲嚮闇瑕佽浆鎹㈢殑鍗曞厓鏍硷紝鍦ㄥ脊鍑虹殑蹇嵎鑿滃崟涓夋嫨鈥滆缃崟鍏冩牸鏍煎紡鈥濓紝鐒跺悗鍦ㄢ滄暟瀛椻濋夐」鍗′腑閫夋嫨鈥滅壒娈娾锛屽湪鈥滅被鍨嬧濅腑閫夋嫨"涓枃澶у啓鏁板瓧"锛岃繖鏃跺欏師鏉ョ殑鏁板瓧涓12345锛屽湪绀轰緥閲屽凡鍙樻垚澶у啓鐨"澹逛竾璐颁粺鍙佷桨鑲嗘嬀浼"锛岀劧鍚庢寜纭畾鍗冲彲銆傛柟娉2锛氫笌鏂规硶1宸笉澶氥傚彸鍑婚渶瑕佽浆...

鎬庝箞灏唀xcel琛ㄦ牸涓灏忓啓杞ぇ鍐鏁板瓧?
绛旓細绗竴涓弬鏁拌杞崲鐨勬暟鍊笺傜浜屼釜鍙傛暟鎸囧畾杩斿洖鐨勭被鍨銆傜被鍨嬪叡鏈変笁绉嶏紝鍏朵腑锛1涓烘眽瀛楀皬鍐欙紝2涓烘眽瀛楀ぇ鍐欙紝3涓烘眽瀛楄鏁般傛柟娉3锛歍EXT鍑芥暟娉 璇硶锛歍EXT锛堣杞崲鐨勬暟鍊硷紝鏍煎紡鍙傛暟锛夋牸寮忓弬鏁颁负\"[dbnum1]\"锛氭櫘閫氬ぇ鍐欙紝濡傗滀簩鐧句簲鍗佷節鈥濓紱鏍煎紡鍙傛暟涓篭"[dbnum2]\"锛氳储鍔″ぇ鍐欙紝濡傗滄煉浣版崒鎷锯濓紱鏍煎紡鍙傛暟...

濡備綍鍦excel涓皢浜烘皯甯閲戦杞崲涓哄ぇ鍐?
绛旓細鐐瑰嚮榧犳爣鍙抽敭锛岄夋嫨鈥滄牸寮忓崟鍏冩牸鈥濇垨鑰呯洿鎺ユ寜Ctrl+1锛屾墦寮鏍煎紡璁剧疆闈㈡澘銆傞夋嫨姝ｇ‘鏍煎紡 鍦ㄢ滅壒娈娾濋夐」涓紝鍚戜笅婊氬姩鐩村埌鎵惧埌鈥滀汉姘戝竵澶у啓鈥濊繖涓閫夐」锛岀‘淇濋変腑瀹冦瀹屾垚杞崲 纭鏃犺鍚庯紝鐐瑰嚮鈥滅‘瀹氣濇寜閽锛岀灛闂达紝浣犵殑闃挎媺浼暟瀛楀氨鍗庝附鍙樿韩鎴愪簡瑙勮寖鐨勬眽瀛楀ぇ鍐欐牸寮忋傛荤粨 绠鍗曞嚑姝ワ紝杞绘澗瀹炵幇Excel涓殑浜烘皯甯侀噾棰...

Excel灏忓啓鎬庝箞杞ぇ鍐
绛旓細棣栧厛锛屾垜浠墦寮闇瑕佸鐞嗙殑Excel鏂囦欢锛屼负浜嗘柟渚胯鐪嬶紝鎴戜滑鍏堝皢Excel鐨勭獥鍙ｆ渶澶у寲锛鏂规硶涓 鐢ㄣ怤UMBERSTRING銆戝叕寮忥紝濡傦細灏咶2鍗曞厓鏍肩殑4500杞崲鎴愬ぇ鍐锛屽垯鍦℅2杈撳叆鍏紡 銆=NUMBERSTRING(F2锛2)銆戯紝鐒跺悗鐐瑰嚮绌虹櫧鍗曞厓鏍兼垨鎸夐敭鐩樹笂銆愬洖杞︺戦敭灏辫兘寰楀嚭锛氳倖浠熶紞浣帮紱鏂规硶浜 鍦ㄨ〃鏍间腑杈撳叆鏁板硷紝閫変腑鎯宠杞寲涓哄ぇ鍐欑殑...

鍦Excel涓浣曡浜烘皯甯佸皬鍐鍙澶у啓
绛旓細瑕佸皢浜烘皯甯佸皬鍐閲戦杞崲鎴愬ぇ鍐鏍煎紡锛岀敤Excel鎻愪緵鐨勬牸寮忥紝灏嗚嚜瀹氫箟鏍煎紡绫诲瀷涓殑鈥淸dbnum2]G/閫氱敤鏍煎紡鈥濇敼涓衡淸dbnum2] G/閫氱敤鏍煎紡鈥滃厓鈥濃濇潵瀹炵幇銆   瑕佸皢浜烘皯甯佸皬鍐欓噾棰濊浆鎹㈡垚澶у啓鏍煎紡锛岀敤Excel鎻愪緵鐨勬牸寮忥紝灏嗚嚜瀹氫箟鏍煎紡绫诲瀷涓殑鈥淸dbnum2]G/閫氱敤鏍煎紡鈥濇敼涓衡淸dbnum2] G/閫氱敤...

鎬庝箞璁excel涓殑灏忓啓瀛楁瘝杞寲鎴澶у啓瀛楁瘝
绛旓細1銆侀鍏堟墦寮闇瑕佺紪杈戠殑Excel琛ㄦ牸锛岃繘鍏ュ埌缂栬緫椤甸潰涓2銆佺劧鍚庡湪灏忓啓瀛楁瘝鍚庨潰鐨勫崟鍏冩牸杈撳叆鍏紡锛=UPPER+灏忓啓瀛楁瘝鍗曞厓鏍硷紝鍥炶溅纭畾銆3銆佺劧鍚庨紶鏍囧乏閿偣鍑诲崟鍏冩牸鍙充笅瑙掍笅鎷夊～鍏呬笅闈㈢殑鍗曞厓鍗冲彲銆灏忓啓杞ぇ鍐閲戦 鍦ㄨ繖閲屼粙缁嶅湪WORD涓皢灏忓啓鐨勫瓧姣嶈浆鎹㈡垚澶у啓瀛楁瘝鐨勬柟娉曪紝甯屾湜鏈寚鍗楄兘甯埌浣犮傛瘮濡傦紝涓嬪浘涓殑WORD...

鍦EXCEL鎬庢牱鎶灏忓啓閲戦杞崲鎴愬ぇ鍐閲戦?
绛旓細鍦EXCEL鎶灏忓啓閲戦杞崲鎴愬ぇ鍐閲戦锛屽彲鍦ㄨ缃崟鍏冩牸鏍煎紡涓浆鎹傛柟娉曟楠ゅ涓嬶細1銆佹墦寮闇瑕佹搷浣滅殑EXCEL琛ㄦ牸锛岄変腑鐩稿叧鍗曞厓鏍煎苟閫氳繃鈥淐trl+1鈥濓紝杩涘叆鈥滆缃崟鍏冩牸鏍煎紡鈥濈晫闈2銆佸湪鏁板瓧鏍囩椤典腑锛岀偣鍑诲乏渚х殑鈥滅壒娈娾濓紝鐒跺悗鍦ㄥ彸渚ч夋嫨鈥滀腑鏂囧ぇ鍐欐暟瀛椻濓紝骞剁偣鍑荤‘瀹氭寜閽嵆鍙3銆佽繑鍥濫XCEL琛ㄦ牸锛屽彂鐜板凡鎴愬姛鍦...

excel閲岄潰鎬庝箞鎶灏忓啓鏁板瓧杞崲鎴愬ぇ鍐?
绛旓細1銆佹墦寮Excel琛ㄦ牸锛岄変腑鏁板瓧銆2銆佸鍥惧崟鍑婚紶鏍囧彸閿紝閫夋嫨璁剧疆鍗曞厓鏍兼牸寮忋3銆佸湪璁剧疆鍗曞厓鏍兼牸寮忓璇濇涓夋嫨鈥滄暟瀛椻濃啋鈥滅壒娈娾濄4銆侀夋嫨涓枃澶у啓鏁板瓧銆5銆佹渶鍚庣偣鍑荤‘瀹氾紝灏卞畬鎴愪簡銆

扩展阅读：15000金额小写格式 ... 大写改小写怎么改 ... 将图表嵌入到单元格中 ... 数字小写变大写快捷键 ... 表格自动生成人民币大写 ... 数字变大写人民币 ... 表格数字转换大写金额元整 ... 表格里小写金额变大写 ... 金额大小写转换公式在线 ...