人民币大写在线转换器不过强大的百度可以帮助你百

日期：2019-12-17 21:31:54编辑：风尘浪子返回首页：QQ名字

谈到在线，大家都了解，有朋友问如何在word中转换成横向页面，当然了，还有人问银行人民币大写规则，这到底怎么回事呢？事实上怎样在excel中筛选想要的数据呢，下面是小编分享的人民币大写在线转换器，希望能帮到大家。

人民币大写在线转换器

Private Sub Command1_Click()

Dim lon As Long

Dim ll As Long

Dim number As Long

Dim Bn() As Variant

Dim An() As Variant

Dim isO As Long

Bn() = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")

An() = Array("", "拾", "佰", "仟", "万", "拾", "佰", "仟")

If Val(Text1.Text) >= 10000000 Then

MsgBox "暂时不能换超过仟万位"

Exit Sub

End If

number = Val(Text1.Text)

lon = 1

ll = 1

While number >= 10

number = number / 10

lon = lon + 1

ll = ll * 10

Wend

number = Val(Text1.Text)

Text2 = ""

For i = 1 To lon

If (number \ ll) <> 0 Then

Text2 = Text2 & Bn(number \ ll)

Text2 = Text2 & An(lon - i)

isO = 1

Else

If isO = 1 Then

If (lon - i) Mod 4 = 0 Then

If Right(Text2, 1) = "零" Then

Text2 = Left(Text2, Len(Text2.Text) - 1) & An(lon - i)

isO = 1

End If

Else

Text2 = Text2 & Bn(number \ ll)

isO = 0

End If

Else

If (lon - i) Mod 4 = 0 Then

If Right(Text2, 1) = "零" Then

Text2 = Left(Text2, Len(Text2.Text) - 1) & An(lon - i)

isO = 1

End If

number = number Mod ll

ll = ll / 10

Next i

End Sub

（不明白Q我）

不知道WORD中有没有这个功能，不过强大的百度可以帮助你

百度“转换人民币大写”，就能找到“人民币大写在线转换工具”，输入数值转换后拷贝回WORD即可。

自动生成人民币大写的条件公式是什么？

1、在电脑中打开EXCEL表格，在表格中A2中输入数字金额，在B1中输入大写金额的条目。

2、在B2表格中输入下列公示。

=IF(A2=0,"",IF(A2<0,"负","")&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(A2)),"[DBNum2]")&"元"&TEXT(RIGHT(TEXT(A2,".00"),2),"[DBNum2]0角0分"),"零角零分","整"),"零分","整"),"零","零"),"零元零",""))

3、输入完成后按回车键，则自动生成了对应的大写金额。

4、将鼠标放置在如图所示的表格右下角，使鼠标形状变为黑色实心加号。

5、下拉至需要的区域，则其他列的数字金额均自动生成为中文大写金额。

C++人民币大写转换的一道题

#include "stdafx.h"

#include <string>

#include <iostream>

#include <algorithm>

using namespace std;

// 将数字对应的中文返回

string GetCName(int nVal, int nUnit)

{

// 根据当前位置判断额度与单位

string ArrCName[] = {"零", "壹", "贰", "参", "肆", "伍", "陆", "柒", "捌", "玖"};

string ArrUnit[] = {"元", "拾", "佰", "仟", "万", "舍", "佰", "仟"};

// 合并

string strTemp;

if (nVal == 0) // 防止出现零万零佰等情况，还有很多其它情况

strTemp = ArrCName[nVal];

else

strTemp = ArrCName[nVal] + ArrUnit[nUnit];

return strTemp;

}

int main()

{

int nVal; // 阿拉伯

string strVal; // 中文

cout<<"请输出额度：";

cin>>nVal;

// 把数据与10相取并取余逐位判断

int nUnit=0; // 单位仟，万什么的

while (nVal != 0)

{

int nRemainder; // 余数

nRemainder = nVal%10;

nVal = nVal / 10;

strVal = GetCName(nRemainder, nUnit++) + strVal;

}

cout<<strVal<<endl;

return 0;

}

我没有直接用你的代码，而是新写了一段，我觉得这个题还是比较有意思的

转换到中文后还会有很多种情况我就没有一一进行判断，像1000001会出现很多零呀什么，你自己来做吧，对防错也没有进行处理，有需要自己加，主要是交流思路

人民币大写规则，万后的零要写吗，人民币大写转换器

这个数目是怎么读的就怎么写，有些零是不用读出来的也就不用写，但如果写小写就要直接写出来。

如何在ORACLE中实现人民币大写的转换

不知道WORD中有没有这个功能，不过强大的百度可以帮助你百度“转换人民币大写”，就能找到“人民币大写在线转换工具”，输入数值转换后拷贝回WORD即可。

如何在Excel中自动生成人民币大写

可以通过输入法和公式的方式进行大写的转换，具体操作步骤如下：

工具/原材料

excel2016版、电脑。

1、打开电脑找到并点击excel2016版表格软件；

2、打开表格软件以后，可以通过在输入数字前加“v”的方式自动选择大写的金额；

3、选中B列的单元格以后，在编辑栏里输入下列公式：=IF(A1=0,"",IF(A1<0,"负","")&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(A1)),"[DBNum2]")&"元"&TEXT(RIGHT(TEXT(A1,".00"),2),"[DBNum2]0角0分"),"零角零分","整"),"零分","整"),"零角","零"),"零元零",""))

4、输入公式以后，此时同时按“ctrl+回车键”即可对B列的单元格进行公式的填充即可。

怎样在EXCEL中数字转人民币大写

工具：excel2010

1、打开excel文档，如下图所示

2、在B2单元格输入如下公式：

=IF(TRIM(B1)="","",IF(B1=0,"",IF(B1<0,"负",)&IF(INT(B1),TEXT(INT(ABS(B1)),"[dbnum2]")&"元",)&IF(INT(ABS(B1)*10)-INT(ABS(B1))*10,TEXT(INT(ABS(B1)*10)-INT(ABS(B1))*10,"[dbnum2]")&"角",IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)<0.1,,"零")))&IF(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),TEXT(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),"[dbnum2]")&"分","整")))