大家好，常识百科的编辑将为大家解答以上问题。大写数字转换小写 number，大写和小写数字转换器。很多人还不知道这一点。现在让我们来看看！

这里分享了一个关于热点的激情故事，希望对大家有所帮助。

1.在填写类似报销单的财务单据过程中，不仅要用小写的阿拉伯数字输入金额，还要输入相应的中文大写数字。

2.如果是手工处理，不仅输入繁琐，还容易出错，往往导致大小写不匹配。

3.为此，我们可以使用VBA定制一个函数，然后使用这个定制的函数实现货币大小的自动转换。

4.这样不仅方便快捷，而且不容易出错。

5.具体操作步骤如下:1 .启动Excel。

6.按Alt+F11打开Visual Basic编辑器。

7.2.在Visual Basic编辑器中，单击“插入”菜单栏中的“模块”命令来插入模块。

8.双击左侧“项目”窗口中的“模块1”选项，展开右侧的“模块1(代码)”编辑窗口，然后输入以下代码:function dx (q) dimcur as long，yuan as long dim jiao as integer，fen as integer dim cn yuan as string，CnJiao as String，cn fen as StringIf q = " " then dx = 0 exit FunctionEnd if Cur = Round(q * 100)Yuan = Int(Cur/100)Jiao = Int(Cur/10)-Yuan * 10 fen = "WorksheetFunction.Text(袁，"[db num 2]")CNC jiao =应用。WorksheetFunction.Text(Jiao，"[DBNum2]")CnFen = Application。WorksheetFunction.Text(Fen，"[DBNum2]")dx = CnYuan &" yuan "& "整体" d1 = CnYuan &" yuan "iffen0和jiao 0 tendx = D1 & cn jiao & " angle " & cn Fen & " Fen "如果Yuan = 0则dx = CnJiao &" angle "& cn Fen & " Fen " end ifend ifend ififf Fen = 0和jiao 0 tendx = cn jiao & " angle " & "整体"如果Yuan = 0则dx = cn jiao & " angle " &在"整体"之后 “fen”如果输入了Yuan = 0，则关闭Visual Basic编辑器并返回到工作表。

9.现在，我们可以测试这个函数。

10.首先，在单元格A1中输入小写金额，例如123，456.78。然后，在单元格A2中输入公式:=dx(A1)。确认后，A1表示的小写金额可以转换为大写金额并显示在单元格A2中。

11.怎么样？方便吗？。