文档介绍：excel金额大小写转换
Excel自动转换数字大小写具体的操作步骤如下：
1. 启动excel。按“alt+f11”快捷键打开“visual basic编辑器”。
2. 在“visual basic编辑器”中，单击“插入
excel金额大小写转换
Excel自动转换数字大小写具体的操作步骤如下：
1. 启动excel。按“alt+f11”快捷键打开“visual basic编辑器”。
2. 在“visual basic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码:
function dx(q)
dim cur as long,yuan as long
dim jiao as integer,fen as integer
dim cnyuan as string, cnjiao as string, cnfen as string
if q = "" then
dx = 0
exit function
end if
cur = round(q * 100)
yuan = int(cur / 100)
jiao = int(cur / 10) - yuan * 10
fen = cur - yuan * 100 - jiao * 10
cnyuan = (yuan, "[dbnum2]")
cnjiao = (jiao, "[dbnum2]")
cnfen = (fen, "[dbnum2]")
dx = cnyuan & "元" & "整"
d1 = cnyuan & "元"
if fen <> 0 and jiao <> 0 then
dx = d1 & cnjiao & "角" & cnfen & "分"
if yuan = 0 then
dx = cnjiao & "角" & cnfen & "分"
end if
end if
if fen = 0 and jiao <> 0 then
dx = d1 & cnjiao & "角" & "整"
if yuan = 0 then
dx = cnjiao & "角" & "整"
end if
角"&TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分")),TEXT(INT(F4),"[DBNum2]G/通用格式"&"元")&IF((INT(F4*10)-INT(F4)*10)=0,IF((INT(F4*100)-INT(F4*10)*10)=0,"","零"),IF((INT(F4*)-INT(F4)*)=0,"零","")&TEXT(INT(F4*10)-INT(F4)*10,"[DBNum2]G/通