巧用Excel輕松轉(zhuǎn)換人民幣大小寫如何加密公式(詳見第二章)

1、巧用 Excel 輕松轉(zhuǎn)換人民幣大小寫 如何加密公式 (詳見第二章)工作表中很多數(shù)據(jù)都是由公式計(jì)算生成的， 那么如何讓別人只看到計(jì)算的結(jié) 果，而將使用的公式隱藏起來呢？今天我們就向大家介紹使用宏來解決這一問 題。一、創(chuàng)建宏啟動(dòng)Excel,依次選擇“工具”一“宏”一“錄制新宏”，在打開的窗口中輸 入宏的名稱，并把“保存在”項(xiàng)設(shè)為“個(gè)人宏工作簿” ，單擊“確定”按鈕進(jìn)入 宏錄制模式。此時(shí)我們可以在當(dāng)前窗口中看到宏錄制的工具欄， 單擊“停止錄制” 退出宏的錄制。退出后，在Excel中按下“ Alt+F11”鍵，在打開的 VB編輯窗口中選擇 “VBAProject(PERSONAL.XLS) ”“模塊

2、”“模塊1”，然后將右側(cè)窗口中的內(nèi)容替換成：Sub 密碼保護(hù) () /宏的名稱ActiveSheet.Unprotect (888888) /默認(rèn)密碼Cells.SelectSelection.Locked = FalseSelection.SpecialCells(xlCellTypeFormulas, 23).SelectSelection.Locked = TrueSelection.FormulaHidden = TrueActiveSheet.Protect (123456)ActiveSheet.EnableSelection = xlUnlockedCellsEnd Sub做好之

3、后保存設(shè)置退出編輯窗口， IT 八哥網(wǎng)( )提醒大 家，在實(shí)際的操作過程中需要將默認(rèn)的 888888換成自己的密碼， 以免造成泄露。二、應(yīng)用宏在Excel中打開“工具”菜單中的“自定義”命令，在“命令”選項(xiàng)卡的“類 別”中選擇“宏”，在“命令”中選擇“自定義按鈕” ，并將其拖放到工具欄上， 單擊工具欄上的按鈕，在彈出的窗口中選擇我們創(chuàng)建的宏名并保存設(shè)置。至此，我們要加密時(shí)只需單擊該按鈕， 就可以將當(dāng)前工作表保護(hù)起來， 并且 默認(rèn)密碼為 888888，怎么樣這樣的操作是不是夠方便呢。第二章人民幣金額大寫轉(zhuǎn)換是財(cái)務(wù)和會(huì)計(jì)領(lǐng)域的熱點(diǎn)問題， 網(wǎng)絡(luò)提供此問題的方法 很多，主要有 VBA 、自定義函數(shù)、多

4、種函數(shù)嵌套等。實(shí)踐檢驗(yàn)，通過函數(shù)嵌套 最為方便。 而函數(shù)嵌套又很多種， 本文中提供的幾個(gè)公式最為方便， 建議需要的 用戶使用此方法。Excel 可以制作各種專業(yè)的會(huì)計(jì)報(bào)表，但是很多會(huì)計(jì)人員都無法準(zhǔn)確而快速 地將會(huì)計(jì)報(bào)表中的小寫金額轉(zhuǎn)化為大寫金額， 如果手工輸入這些大寫金額， 或者 或少總會(huì)出現(xiàn)種錯(cuò)誤，并且輸入的速度慢了很多，這樣就大大影響了工作效率。 一些對 Excel 技術(shù)相對熟練的會(huì)計(jì)人員都是將數(shù)值轉(zhuǎn)換成人民幣中文大寫金額， 一般是采用將單元格格式自定義為 dbnum2& 元 這種方法。但是在輸入帶有小 數(shù)的數(shù)值時(shí)卻出現(xiàn)了問題， 比如在輸入 123.4的時(shí)候，變?yōu)橐及圪E拾叁 肆元， 這樣子

5、是不符合財(cái)務(wù)格式的，應(yīng)該是 壹佰貳拾叁元肆角 才對。那么能不能在 Excel 中實(shí)現(xiàn)將任意數(shù)值轉(zhuǎn)為人民幣大寫金額呢？經(jīng)過多位 Excel 技術(shù)精通人士多年對此問題進(jìn)行研究， 目前已找到解決此類 問題的方法，其中通過 Excel 函數(shù)多次嵌套可以輕松解決人民幣金額從小寫轉(zhuǎn)換 大寫，下面的方法都可一試。假定 A2 單元格是需要轉(zhuǎn)換成大寫金額的小寫數(shù)字。=IF(ABS(A2)0.005,IF(A20,負(fù),)&IF(INT(ABS(A2),TEXT(INT(ABS(A2),dbnum2)&元,)&IF(INT(ABS(A2)*10)-INT(ABS(A2)*10,TEXT(INT(ABS(A2)*10

6、)-INT(ABS( A2)*10,dbnum2)& 角 ,IF(INT(ABS(A2)=ABS(A2),IF(ABS(A2)0.1, 零 )&IF(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),TEXT(ROUND(ABS(A2)* 100-INT(ABS(A2)*10)*10,),dbnum2)& 分, 整)。仔細(xì)檢查公式輸入無誤后，按回車鍵即可將 A2 單元格中人民幣小寫金額轉(zhuǎn) 換為人民幣大寫金額。經(jīng)檢驗(yàn)，下面的公式也很好：在 EXCEL 中，假設(shè) A1 為數(shù)字格式單元格，在任意單元格內(nèi)粘貼下面公式即可 顯示大定金額 :=IF(A1=0,TEXT(INT(

7、A1),dbnum2 人 民 幣 G/ 通 用 格 式 )& 元 &IF(INT(A1*10)-INT(A1)*10=0,IF(INT(A1)*(INT(A1*100)-INT(A1*10)*10)=0, , 零 ),TEXT(INT(A1*10)-INT(A1)*10,dbnum2)& 角 )&IF(INT(A1*100)-INT(A1*10)*10)=0, 整 ,TEXT(INT(A1*100)-INT(A1*10)*10),dbnum2)& 分)假如不需要“人民幣”幾個(gè)字，在公式里直接刪除這幾個(gè)字即可！下面的公式也可一試，我已經(jīng)試過了，挺好，就是公式長了點(diǎn)。假定你要在A5輸入阿拉佰數(shù)字，

8、B5轉(zhuǎn)換成中文大寫金額(含元角分)，請?jiān)贐5單元 格輸入如下公式 :=IF(INT(A5*10)-INT(A5)*10)=0,TEXT(INT(A5),DBNum2G/ 通 用 格 式)& 元 &IF(INT(A5*100)-INT(A5)*10)*10)=0, 整 , 零 &TEXT(INT(A5*100)-INT(A5*10)*10,DBNum2G/ 通 用 格 式 )& 分 ),TEXT(INT(A5),DBNum2G/ 通 用 格 式 )& 元 &IF(INT(A5*100)-INT(A5)*10)*10)=0,TEXT(INT(A5*10)-INT(A5)*10),DBN um2G/

9、通用格式)&角整,TEXT(INT(A5*10)-INT(A5)*10),DBNum2G/ 通用 格式)&角&TEXT(INT(A5*100)-INT(A5*10)*10,DBNum2G/通用格式)&分)注:可先將公式復(fù)制到你要顯示大寫金額的單元格,然后用 替換 功能將公式中的A5替換成你存放小寫數(shù)字的單元格地址。下面公式中句中的 B4 為小寫的單元格數(shù) ,數(shù)值大到幾百億也有效 ,有興趣的話不 妨一試。=IF(ISERROR(FIND(.,B4),NUMBERSTRING(INT(B4),2)&元 整,IF(ISERROR(NUMBERSTRING(MID(B4,FIND(.,B4)+2,1),2),NUMBERSTRI NG(INT(B4),2)& 元 &NUMBERSTRING(MID(B4,FIND(.,B4)+1,1),2)& 角 整 ,NUMBERSTRING(INT(B4),2)&元&NUMBERSTRING(MID(B4,FIND(.,B4)+1,1),2)&角&NUMBERSTRING(MID(B4,FIND(.,B4)+2,1),2)& 分)“NUMBERSTRING ”這個(gè)函數(shù)在插入函數(shù)里是沒有 ,它是將阿拉伯?dāng)?shù)字轉(zhuǎn)化另 一種格式的一個(gè)函數(shù) ,參數(shù) 1、2、3，返回的是不同的格式。