WPS论坛表格好帖推荐
如何将excel中的阿拉伯数字转为大写的中文数字
一键分享：
在财务应用中，经常需要这个操作，下面的函数实现了这个方法:Function Money(Number As Currency)Dim i, j, k, m, leng As Integer&计数器Dim Zero As Integer一&连续零标识Dim Tnumber As String&存储数字字符申，计算效组长度Dim Num() As String_&定义数组Dim Numl(3) As String&存偏万元以下数字Dim Num2(l) As String&存储拆分后的数字Dim Cha(8)，Chal (9)，Cha2(4) As String&存储转化后的汉字Dim Zcha As String&连接后的字符串Dim Flag, Flagl As Boolean&正负标志Flag一TrueFlagl一FalseZero一0，.&&如果大于一亿，!P1不处理********白If (Number&) Or (Number&一) ThenMsgBox (&Sorry,数据超过一亿.暂不处理。&)MsgBox&&顺便问一下，你真有那么多钱吗?.，Money一&Sorry!-ElseIf (Number一0) ThenMoney二零元核.ElseIf (Number(0) ThenNumber一Number .t一1)Flag一FalseEnd If，二白.食奋自小数点后超过两位，则截断奋*.*&If《《(Number一Int(Number))* 100一Int((Number一Int(Number)》* 100))&0)ThenTnumber一CStr(Int(Number * 100)/100)ElseTnumber一CStr(Number)End If，&奋&.山奋&处理四舍五入&奋&奋白.&击&二&白，自，&&If(((Number一Int(Number))* 100一Int《(Number一Int(Number))*100))&-0.5) ThenTnumber二CStr((CCur(Tnumber))+0.01)End IfNumber一CCur(Tnumber)，&奋白食.食由暇新分配敌组空间奋&奋.&击白奋&奋.奋*&*ReDim Num(Len(Tnumber)一1) As String，介奋&**合*将字符串分开存储至数组中二*&.&For i .0 To Len(Tnumber)一1Num(i)一Mid(Tnumber, i+1, 1)Next i，.*.*.白白定义所需字符.&&** ..&&*.Dim M1ArrArray(&&壹&，.贰&，&叁&，.肆&，.伍&，.陆&，，.柒.，.捌&，.玖弓11拾&，&佰一，&仟.，&万&，.亿&)如何将Word2010中的阿拉伯数字转换成大写数字
作者：佚名
字体：[ ] 来源：互联网 时间：06-28 11:12:13
如果用户需要将Word2010文档中的阿拉伯数字转换成人民币大写数字，则可以借助Word2010提供的编号功能实现。
操作步骤如下所述：
第1步，打开Word2010文档窗口，选中需要转换成人民大写数字的阿拉伯数字。
第2步，切换到&插入&功能区，在&符号&分组中单击&编号&按钮，如图所示。
图&单击&编号&按钮
第3步，打开&编号&对话框，在&编号类型&列表中选中人民币大写样式的编号类型，并单击&确定&按钮，如图所示。
图&编号对话框
第4步，返回Word2010文档，用户可以看到转换后的人民币大写数字中&万&字为繁体。直接将其修改成简体即可，如图所示。
图&转换后的人民币大写数字
大家感兴趣的内容
12345678910
最近更新的内容如果给一个-99999……99999的汉语数字，如何将其转换成我们熟悉的阿拉伯数字？比如“一千一百一十一”怎么变成我们常见的1111，再比如“负九千零九”怎么变成-9009？下面我写的一个方法，就可以简单的实现这个功能
- (NSString *)arabicNumberalsFromChineseNumberals:(NSString *)arabic{
& & NSMutableDictionary * mdic =[[NSMutableDictionary
alloc]init];
& & [mdic setObject:[NSNumber
numberWithInt:<span style="color:#ff]
forKey:@&万&];
& & [mdic setObject:[NSNumber
numberWithInt:<span style="color:#ff]
forKey:@&千&];
& & [mdic setObject:[NSNumber
numberWithInt:<span style="color:#ff]
forKey:@&百&];
& & [mdic setObject:[NSNumber
numberWithInt:10]
forKey:@&十&];
& & [mdic setObject:[NSNumber
numberWithInt:9]
forKey:@&九&];
& & [mdic setObject:[NSNumber
numberWithInt:8]
forKey:@&八&];
& & [mdic setObject:[NSNumber
numberWithInt:7]
forKey:@&七&];
& & [mdic setObject:[NSNumber
numberWithInt:6]
forKey:@&六&];
& & [mdic setObject:[NSNumber
numberWithInt:5]
forKey:@&五&];
& & [mdic setObject:[NSNumber
numberWithInt:4]
forKey:@&四&];
& & [mdic setObject:[NSNumber
numberWithInt:3]
forKey:@&三&];
& & [mdic setObject:[NSNumber
numberWithInt:2]
forKey:@&二&];
& & [mdic setObject:[NSNumber
numberWithInt:2]
forKey:@&两&];
& & [mdic setObject:[NSNumber
numberWithInt:1]
forKey:@&一&];
& & [mdic setObject:[NSNumber
numberWithInt:0]
forKey:@&零&];
//& & NSLog(@&%@&,mdic);
& & BOOL flag=YES;//yes表示正数，no表示负数
& & NSString * s=[arabic
substringWithRange:NSMakeRange(0,
isEqualToString:@&负&]){
& & & & flag=NO;
& & int i=0;
& & if(!flag){
& & & & i=1;
& & int sum=0;//和
& & int num[20];//保存单个汉字信息数组
& & for(int i=0;i&20;i&#43;&#43;){//将其全部赋&#20540;为<span style="color:#
& & & & num[i]=0;
& & int k=0;//用来记录数据的个数
& & //如果是负数，正常的数据从第二个汉字开始，否则从第一个开始
& & for(;i&[arabic
length];i&#43;&#43;){
& & & & NSString * key=[arabic
substringWithRange:NSMakeRange(i,
& & & & int tmp=[[mdic
valueForKey:key] intValue];
& & & & num[k&#43;&#43;]=
& & //将获得的所有数据进行拼装
& & for(int i=0;i&k;i&#43;&#43;){
& & & & if(num[i]&10&&num[i&#43;1]&=10){
& & & & & & sum&#43;=num[i]*num[i&#43;1];
& & & & & & i&#43;&#43;;
& & & & }else{
& & & & & & sum&#43;=num[i];
& & NSMutableString * result=[[NSMutableString
alloc]init];;
& & if(flag){//如果正数
& & & & NSLog(@&%d&,sum);
& & & & result=[NSMutableString
stringWithFormat:@&%d&,sum];
& & }else{//如果负数
& & & & NSLog(@&-%d&,sum);
& & & & result=[NSMutableString
stringWithFormat:@&-%d&,sum];
& & return
最后如果数据超出题目最开始的范围，具体怎么处理，我还没有考虑清楚，如果哪位大神能帮我把这个方法超过十万以上的功能不全，感激不尽……
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：1158次
排名：千里之外}