談到在線,大家都了解,有朋友問如何在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
End If
End If
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]")&"分","整")))
3、效果如下
怎么用Excel將小寫金額轉換成人民幣的大寫金額
可以先將小寫金額所在的單元格選中,然后設置單元格格式為中文大寫數字。
1、打開Excel文檔,用鼠標將所有小寫金額所在的單元格選中,然后右擊被選中的單元格,點擊“從下拉列表中選擇...”按鈕:
2、在打開的單元格格式設置窗口中,點擊分類下面的“特殊”按鈕,然后點擊類型里面的“中文大寫數字”按鈕:
3、設置完成后,這時所有的小寫金額都會轉換成大寫金額,然后將Excel文檔進行保存即可:
Excel中將人民幣小寫轉大寫的公式?
工具/原材料
excel2018版、電腦。
1、打開電腦找到并雙擊打開excel2018新建工作表格;
2、雙擊打開excel新建工作表格以后,為了示范在A1輸入好數字,在復制粘貼到B1中;
3、編輯數字并選中B1后,點擊鼠標右鍵選擇”設置單元格格式“的命令;
4、在彈出的對話框中點擊特殊,并在右邊的界面選擇人民幣大寫點擊確定;
5、設置并確定好以后,此時B1的單元格就自動的轉換為大寫;
6、也可以在單元格內直接輸入v+數字,如:”v365874.51“選擇大寫的金額即可完成。