金額填寫好了,大寫怎么辦? 每次都用一個(gè)一個(gè)敲上去嗎? 如果套打,很多怎么辦呢? 今天我們就來分享一下小寫轉(zhuǎn)人民幣大寫的做法,多種方法,由簡(jiǎn)單到方便智能,全部收羅,徹底搞定這個(gè)問題。 一般有兩種情況 情況1:報(bào)銷單上的大寫 。 這種大寫,比較簡(jiǎn)單,按位補(bǔ)齊對(duì)應(yīng)的數(shù)值大寫即可,不足的部分用零補(bǔ)全,一般我們使用×或者?是不標(biāo)準(zhǔn)的一種簡(jiǎn)寫, 如果我們使用Excel自動(dòng)生成則使用零來處理 具體使用的公式: =TEXT(INT(A1),"[dbnum2]0佰0拾0萬0仟0佰0拾0元")&TEXT(ROUND((MOD(A1,1)*100),),"[dbnum2]0角0分") 以上公式A1單元格中存放小寫金額,如果小寫金額在其他位置,粘貼公式后替換一下即可 情況2:標(biāo)準(zhǔn)的大寫,如果支票上的大寫(有嚴(yán)格的規(guī)定) 比如這樣 (圖片素材來源網(wǎng)絡(luò),侵刪) 這里的大寫,我們可以通過幾種方法來填寫 第一種:輸入法V關(guān)鍵字錄入,方便快捷,適合零時(shí)使用 第二種:使用公式處理,不用每次都手動(dòng)輸入,方便 我們提供三種公式 公式1: =SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),IF(A1<0,"負(fù)",)&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整") 公式2: =SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),IF(A1<0,"負(fù)",)&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整") 公式3: =TEXT(RMB(A1),"[=]g;"&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2<1,,"零")),"零分","整")) ----建議收藏備忘---- 第三種:設(shè)置單元格格式(使用WPS),微軟Excel不支持 (WPS2019演示) (微軟Excel無此功能,注意) 第四種:如果我們需要套打,則使用VBA更方便一些 使用自定義函數(shù) Function DX(M)'185個(gè)字符 DX = IIf(Abs(M) < 0.005, a, Replace(Replace(Replace(Join(Application.Text(Split(Format(M, " 0. 0 0")), Split(" [DBnum2] [DBnum2]圓0角;;圓零 [DBnum2]0分;;整")), a), "零圓零", a), "零圓", a), "零整", "整")) End Function |
|