巧用Excel 轻松转换人民币大小写 如何加密公式(详见第二章).docVIP

巧用Excel 轻松转换人民币大小写 如何加密公式（详见第二章） 　 第一章 工作表中很多数据都是由公式计算生成的，那么如何让别人只看到计算的结果，而将使用的公式隐藏起来呢？今天我们就向大家介绍使用宏来解决这一问题。 　　一、创建宏 　　启动Excel，依次选择“工具”—“宏”—“录制新宏”，在打开的窗口中输入宏的名称，并把“保存在”项设为“个人宏工作簿”，单击“确定”按钮进入宏录制模式。此时我们可以在当前窗口中看到宏录制的工具栏，单击“停止录制”退出宏的录制。 　　退出后，在Excel中按下“Alt+F11”键，在打开的VB编辑窗口中选择“VBAProject(PERSONAL.XLS)”—“模块”—“模块1”，然后将右侧窗口中的内容替换成： Sub 密码保护() //宏的名称 ActiveSheet.Unprotect (888888) //默认密码 Cells.Select Selection.Locked = False Selection.SpecialCells(xlCellTypeFormulas, 23).Select Selection.Locked = True Selection.FormulaHidden = True ActiveSheet.Protect (123456) ActiveSheet.EnableSelection = xlUnlockedCells End Sub 　　做好之后保存设置退出编辑窗口，IT八哥网（）提醒大家，在实际的操作过程中需要将默认的888888换成自己的密码，以免造成泄露。 　　二、应用宏 　　在Excel中打开“工具”菜单中的“自定义”命令，在“命令”选项卡的“类别”中选择“宏”，在“命令”中选择“自定义按钮”，并将其拖放到工具栏上，单击工具栏上的按钮，在弹出的窗口中选择我们创建的宏名并保存设置。 　　至此，我们要加密时只需单击该按钮，就可以将当前工作表保护起来，并且默认密码为888888，怎么样这样的操作是不是够方便呢。 第二章 人民币金额大写转换是财务和会计领域的热点问题，网络提供此问题的方法很多，主要有VBA、自定义函数、多种函数嵌套等。实践检验，通过函数嵌套最为方便。而函数嵌套又很多种，本文中提供的几个公式最为方便，建议需要的用户使用此方法。 Excel可以制作各种专业的会计报表，但是很多会计人员都无法准确而快速地将会计报表中的小写金额转化为大写金额，如果手工输入这些大写金额，或者或少总会出现种错误，并且输入的速度慢了很多，这样就大大影响了工作效率。一些对Excel技术相对熟练的会计人员都是将数值转换成人民币中文大写金额，一般是采用将单元格格式自定义为[dbnum2]元这种方法。但是在输入带有小数的数值时却出现了问题，比如在输入123.4的时候，变为壹佰贰拾叁．肆元，这样子是不符合财务格式的，应该是壹佰贰拾叁元肆角才对。那么能不能在Excel中实现将任意数值转为人民币大写金额呢？ 经过多位Excel技术精通人士多年对此问题进行研究，目前已找到解决此类问题的方法，其中通过Excel函数多次嵌套可以轻松解决人民币金额从小写转换大写，下面的方法都可一试。 假定A2单元格是需要转换成大写金额的小写数字。 =IF(ABS(A2)0.005,,IF(A20,负,)IF(INT(ABS(A2)),TEXT(INT(ABS(A2)),[dbnum2])元,)IF(INT(ABS(A2)*10)-INT(ABS(A2))*10,TEXT(INT(ABS(A2)*10)-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])分,整))。 仔细检查公式输入无误后，按回车键即可将A2单元格中人民币小写金额转换为人民币大写金额。 经检验，下面的公式也很好： 在EXCEL中，假设A1为数字格式单元格，在任意单元格内粘贴下面公式即可显示大定金额: =IF(A1=0,,TEXT(INT(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,整,