问题的提出:现在各种办公软件用得很多,但尽管这样,EXCEL在企业办公上仍然被广泛应用着,比如做统计报表,做产品清单,做合同等等。当做合同时,我们可以用EXCEL自动生成合同金额,但这金额是阿拉伯数字。而合同中往往要写上金额的中文大写。怎么办,许多人只好用打字输入把中文大写金额填入。如果能制作一个宏(EXCEL中的宏是用VB编写的),读取阿拉伯数字,输出相应的中文大写,那就能给工作带来方便。
本题要求:用VB遍写一个EXCEL的宏,功能是读取阿拉伯数字,输出相应的中文大写。要求当宏执行时,在E

展开全部
收起
5回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 亚当思密达

    12人对此回答表示赞同

    上传哪里,呵呵,写Mail吧

    展开
    12
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 一桶冰水

    11人对此回答表示赞同

    帮你写了个宏,执行时,完全满足你的要求。
    第三次改了一下,还有什么问题,欢迎提出:
    Sub Zh()
    Dim S, i As Integer, K(), E As String, Sw As Integer, U As String
    d = Array("零", "壹", "贰", "叁", "肆", "伍", "陆",
    展开
    11
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 钱可为

    8人对此回答表示赞同

    留个email,我自己早就有个这类的东西,你可以在excel表里像普通函数一样使用的函数来转换它。
    展开
    8
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Willow

    6人对此回答表示赞同

    不用vba
    只要设 A2=A1
    设置A2的格式
    格式->单元格->数字->特殊—>中文大写数字
    在A1输入阿拉伯数字即可

    或者:
    A2=TEXT(A1,"[DBNum2][$-804]G/通用格式")& IF((A1-INT(A1))>0,"元","元整")
    展开
    6
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Asher

    4人对此回答表示赞同

    这是一个完整的宏:
    Sub 宏1()
    '
    ' 宏1 Macro

    On Error GoTo Doerr

    Dim CN(9) As String
    Dim CU(15) As String
    Dim Temp As String, strNum As String
    Dim CM As String
    Dim tFirst As String, tEnd As String
    D
    展开
    4
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部