| 【办公 | 您所在的位置：网站首页 › vba大写金额代码 › 【办公 |
【办公
|
2019.03.15更新：已经将个人做好的完整docm 代码附在文后，先上图。
记录几个开发过程中遇到的难点和注意点。 Word中添加ActiveX控件，如输入框，需要放置在 文本框 中，或者放置在 正文流中。本docm因需要和背景底图搭配，所以需要调整 Activek输入框控件的上下和左右位置，几次使用 放置文本框的办法没有成功。最后是放置在 空白的正文流中去的。如何调整 正文流中的 ActiveX输入控件的上下位置和左右位置。 上下位置：粗调，打多个换行符。若要精确调整，设置上面的行的行距为固定值，1磅。左右位置：粗调，直接打多个空格。微调，设置字体大小为1，使劲打空格。控件的宽度和高度调节：“开发工具”-激活“设计模式”，选中控件，点击“属性”，修改Width和 Height，分别对应宽度和高度。控件的事件：在“设计模式”下，双击该控件，VB编辑器会自动为我们生成 Change 事件。如果要手动编写 其它事件代码，则需要 在VB编辑器界面，代码编写区域的顶部的左侧（控件名称列表）和右侧（事件列表），分别选择 控件 和 事件名称。选择后，VB编辑器的代码编写区域会自动出现事件函数代码。VB语法：VB语法较奇葩。有C语言经验的要避免利用C经验去想当然。提几个：赋值与比较均是单等号 = ，不等于是 或>54321 For J = 1 To shuzilong MyinputB = Mid(MyinputA, J, 1) & MyinputB Next '1把阿拉伯数字转为大写， 54321， 5->伍 '2将数字和对应位置的单位拼接，伍肆叁贰壹，伍->伍分 '3拼接时翻转回来， 肆角伍分 '注意0：从 shuzi2 得到单位，而不是从 Place ' 12.10->1210->0121-> 整 壹角 贰元 壹拾 ' 10.88->1088->8801->捌分 捌角 元 壹拾 ' 30800.25->3080025->5200803->..贰角 元 零 捌佰 零 叁万 ' ->叁万 零 捌佰 零 元 贰角... For J = 1 To shuzilong Temp = Val(Mid(MyinputB, J, 1)) If Temp = 0 Then MyinputC = Mid(shuzi2, J, 1) & MyinputC Else MyinputC = Mid(shuzi1, Temp, 1) & Mid(Place, J, 1) & MyinputC End If Next '细节：处理零 '10.46 壹拾零元... -> 壹拾元 '10 1234.56 壹拾零万... -> 壹拾万 '10 1234 5678.56壹拾零亿... -> 壹拾亿 '30800.25 上一步得到：叁万 零 捌佰 零 元 贰角伍分 ' 注意并不是：叁万 零仟 捌佰 零拾 零元 贰角伍分 '30800.25 叁万零捌佰(零)元.. -> 叁万零捌佰 元.. shuzilong = Len(MyinputC) For J = 1 To shuzilong - 1 If Mid(MyinputC, J, 1) = "零" Then Select Case Mid(MyinputC, J + 1, 1) Case "零", "元", "万", "亿", "整": MyinputC = left(MyinputC, J - 1) & Mid(MyinputC, J + 1, 30) J = J - 1 End Select End If Next '贰亿万... -> 贰亿... shuzilong = Len(MyinputC) For J = 1 To shuzilong - 1 If Mid(MyinputC, J, 1) = "亿" And Mid(MyinputC, J + 1, 1) = "万" Then MyinputC = left(MyinputC, J) & Mid(MyinputC, J + 2, 30) Exit For End If Next mychange = qianzhui & Trim(MyinputC) End Function最后我把自己的完整 docm 带有VB代码的完整文件（程序）附上，内有注释。请使用盗版 office 打开（笑），请勿使用正版WPS。最优适配Office2007，其它高于Office2007的均可使用，只是样式不再对齐。Office2003不支持。 CSDN站内下载。我不想要金币的，不知道怎么取消金币，我上传的时候没有选需要金币。
参考资料： 1. Office VBA 对象参考 |
【本文地址】
公司简介
联系我们