郯国故城项目规划:excel大小写切换

　　本文所涉及到的Excel函数如下，点击可查阅具体的函数用法。

　　1、ABS(number)
　　2、CONCATENATE(Text1，Text……)
　　3、INT(number)
　　4、TEXT(value,format_text)
　　5、自定义函数　　一、内置函数法

　　如图1所示，我们来将C12单元格中的数值转换为中文大写形式，并将结果保存在D12单元格中。 将结果保存在D12单元格中。

　　公式含义解析：分别确定统计结果的元、角、分的数值，并将其转换为中文大写格式。

　　2、选中E10单元格，输入公式：=E13&"元"&F13&"角"&G13&"分"，或者：=CONCATENATE(E13,"元",F13,"角",G13,"分")。

　　公式含义解析：将E13至G13单元格中的文本组合为一个整体，并在相应位置加上单位“元、角、分”文字。

　　3、再次选中E12单元格，执行“格式→条件格式”命令，打开“条件格式”对话框（如图1）。　按“条件1”下面的下拉按钮，选中“公式”选项，在后面的方框中输入“=$C$12<0”（如图2），再按“格式”按钮，在随后弹出的“单元格格式”对话框中（如图3），将“字体”颜色设置为红色，确定退出。

　　4、选中C12单元格，执行“格式→单元格”命令，打开“单元格格式”对话框（如图4），切换到“数字”标签下，选中“分类”下面的“货币”选项后，再选中右边“负数”下面的红色选项，确定退出。

　　注意：经过以上两步操作后，当C12中的数值小于零时，大、小写结果均以红色显示，与财务要求相一致。

　　5、选中13行，右击鼠标，在随后弹出的快捷菜单中，选“隐藏”选项，将13行隐藏起来，不影响正常打印效果。　　至此，转换工作结束，效果参见图1所示。
 　二、自定义函数法

　　显然上面的转换方法比较麻烦。其实，我们可以事先自定义一个函数，然后再用自定义的函数来转换。 　　1、执行“工具→宏→Visual Basic编辑器”命令，进入“Visual Basic编辑”窗口（如图5）。执行“插入→模块”命令，插入一个模块（如“模块1”），双击“模块1”在窗口右边展开“模块1（代码）”编辑窗口，输入如下代码。
Function dxje(q)
　　　ybb = Round(q * 100) '将输入的数值扩大100倍，进行四舍五入
　　　y = Int(ybb / 100) '截取出整数部分
　　　j = Int(ybb / 10) - y * 10 '截取出十分位
　　　f = ybb - y * 100 - j * 10 '截取出百分位
　　　zy = Application.WorksheetFunction.Text(y, "[dbnum2]") '将整数部分转为中文大写
　　　zj = Application.WorksheetFunction.Text(j, "[dbnum2]") '将十分位转为中文大写
　　　zf = Application.WorksheetFunction.Text(f, "[dbnum2]") '将百分位转为中文大写
　　　dxje = zy & "元" & "整"
　　　d1 = zy & "元"
　　　If f <> 0 And j <> 0 Then
　　　　dxje = d1 & zj & "角" & zf & "分"
　　　　If y = 0 Then
　　　　　dxje = zj & "角" & zf & "分"
　　　　End If
　　　End If
　　　If f = 0 And j <> 0 Then
　　　　dxje = d1 & zj & "角" & "整"
　　　　If y = 0 Then
　　　　　dxje = zj & "角" & "整"
　　　　End If
　　　End If
　　　If f <> 0 And j = 0 Then
　　　　dxje = d1 & zj & zf & "分"
　　　　If y = 0 Then
　　　　　dxje = zf & "分"
　　　　End If
　　　End If
　　　If q = "" Then
　　　　dxje = 0 '如没有输入任何数值为0
　　　End If
　　End Function

　　注意：①上面代码中英文单引号“'”后面的字符可以不输入，只是用来解释代码的含义。②代码中“dxje”是自定义函数名称，你可以修改为其他字符。

　　2、输入完成后，关闭VBA编辑窗口返回工作表状态。

　　3、如果要转换C2单元格的数值，并将结果保存的D2单元格中（如图6），只要在D2单元格中输入公式：=dxje(C2)，确认即可（参见图6）。

　　注意：通常情况下，自定义的函数只适应于定制的工作簿中，如果要在其它工作簿中使用，请将其制作为加载宏，然后加载一下即可。