九乡新闻网郑州刘亚萍:Excel自动转换数字大小写a
来源：百度文库 编辑：九乡新闻网 时间：2024/04/30 13:19:50
Excel自动转换数字大小写
2009-09-14 18:05
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 = application.worksheetfunction.text(yuan, "[dbnum2]")
cnjiao = application.worksheetfunction.text(jiao, "[dbnum2]")
cnfen = application.worksheetfunction.text(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
end if
if fen <> 0 and jiao = 0 then
dx = d1 & cnjiao & cnfen & "分"
if yuan = 0 then
dx = cnfen & "分"
end if
end if
end function
输 入完成后，关闭“visual basic编辑器”返回工作表。现在，我们可测试一下这个函数。首先，在a1单元格中输入一个小写数字的金额，例如123456.78，然后，在a2单元 格中输入公式：=dx(a1)，确认后即可将a1所表示的小写数字金额转换为大写的数字金额，并在a2单元格中显示出来。怎么样，方便吧？
关于EXCEL小数位四舍五入的问题
将单元格格式设置为数字，保留一位小数就自动四舍五入到角了。但我在这里要提醒你的是，像工资单一类的表格，最好到 工具/选项/重新计算中，选中“以显示精度为准”，不然的话汇总出来有可能产生最后一位数有误差的现象。
注意：使用时，EXCEL会出现“启用宏”？点击确定。还有请将安全级别设置为“中”，就可以了。
2009-09-14 18:05
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 = application.worksheetfunction.text(yuan, "[dbnum2]")
cnjiao = application.worksheetfunction.text(jiao, "[dbnum2]")
cnfen = application.worksheetfunction.text(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
end if
if fen <> 0 and jiao = 0 then
dx = d1 & cnjiao & cnfen & "分"
if yuan = 0 then
dx = cnfen & "分"
end if
end if
end function
输 入完成后，关闭“visual basic编辑器”返回工作表。现在，我们可测试一下这个函数。首先，在a1单元格中输入一个小写数字的金额，例如123456.78，然后，在a2单元 格中输入公式：=dx(a1)，确认后即可将a1所表示的小写数字金额转换为大写的数字金额，并在a2单元格中显示出来。怎么样，方便吧？
关于EXCEL小数位四舍五入的问题
将单元格格式设置为数字，保留一位小数就自动四舍五入到角了。但我在这里要提醒你的是，像工资单一类的表格，最好到 工具/选项/重新计算中，选中“以显示精度为准”，不然的话汇总出来有可能产生最后一位数有误差的现象。
注意：使用时，EXCEL会出现“启用宏”？点击确定。还有请将安全级别设置为“中”，就可以了。
Excel自动转换数字大小写a
excel中 大小写数字的转换
js大小写转换
数字大小写互换
excel大小写切换
巧用EXCEL公式将数字转换成为货币大写
Excel中区分大小写的查找
Excel新增按钮快速更改大小写
在Excel中将文本转换为数字的七种方法--太平洋电脑网Pconline-[Excel]
word?2007英文大小写转换功能的使用方法
Excel数字小写金额转换汉字大写金额公式的简单设置
在Excel中将文本转换为数字的七种方法
在Excel中将文本转换为数字的七种方法-应用技能1
Excel数字小写金额转换汉字大写金额公式的简单设置 - 如水博客
excel转换word
Excel函数应用之工程函数：在不同的数字系统间进行数值转换的函数
将数字转换为序数
Excel动画教程：行列快速转换
Excel转换成word方法
Excel电子表格人民币自动大写
excel 自动填时间日期
*Excel自动生成员工简历表
Excel VBA 自动填充公式
用AP9932GM做手机充电器自动极性转换