虛擬貨幣代碼byc
1. 百特幣是啥
百特幣（Bytecoin），又名位元組幣，縮寫為BYC，演算法採用SHA256，就像一個位元組等於八個比特一樣，總數量也是比特幣的八倍，共1.68億個。百特幣的貨幣符號是β。百特幣每個塊產生的貨幣數量為100個，平均5分鍾出一個礦，每840000個塊後產生數量減半，即約8年後將產生總量的一半，之後每過8年新產生數量又減半。難度每2016個塊（平均一個星期）調整一次。
2. vb 模擬鍵盤↓向下鍵 (人民幣求解)
使用PostMessage。支持最小化。
'API申明
Private Declare Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'向下鍵常數申明
Private Const WM_KEYDOWN = &H100
』請在代碼中加入以下補充部分
Private Function MakeKeyLparam(ByVal VirtualKey As Long, ByVal flag As Long) As Long
Dim s As String
Dim Firstbyte As String 'lparam參數的24-31位
If flag = WM_KEYDOWN Then '如果是按下鍵
Firstbyte = "00"
Else
Firstbyte = "C0" '如果是釋放鍵
End If
Dim Scancode As Long '獲得鍵的掃描碼
Scancode = MapVirtualKey(VirtualKey, 0)
Dim Secondbyte As String 'lparam參數的16-23位，即虛擬鍵掃描碼
Secondbyte = Right("00" & Hex(Scancode), 2)
s = Firstbyte & Secondbyte & "0001" '0001為lparam參數的0-15位，即發送次數和其它擴展信息
MakeKeyLparam = Val("&H" & s)
End Function
『以下為替換你原本使用sendkeys的地方的代碼
Dim chwnd as string
chwnd = FindWindow(vbNullString, "XXX") '獲得窗口句柄,XXX處為你需要發送指令的窗口標題，標題要求一摸一樣，如果不是很明確的標題的話，追問教你取標題的方法
PostMessage chwnd, WM_KEYDOWN, vbKeyDown, MakeKeyLparam(vbKeyDown, WM_KEYDOWN)
3. 在Office Excel中人民幣大寫無元角分如何解決
a、單擊「工具」--「宏」--「Visual Basic 編輯器」
b、單擊「Visual Basic 編輯器」菜單欄「運行」--「運行宏」
c、輸入宏名，如 "zh" ,單擊「創建」
d、鍵入以下代碼：
'a1為數字小寫單元格，a2為中文大寫單元格
Const strN = "零壹貳叄肆伍陸柒捌玖"
Const strG = "拾佰仟萬億"
Const intN = "0123456789"
Dim Zero_Count As Long '讀零計數
Private Function GetN(ByVal N As Long) As String
GetN = Mid(strN, N + 1, 1)
End Function
Private Function GetG(ByVal G As Long) As String
Select Case G
Case 1
GetG = ""
Case 2, 6
GetG = Mid(strG, 1, 1)
Case 3, 7
GetG = Mid(strG, 2, 1)
Case 4, 8
GetG = Mid(strG, 3, 1)
Case 5
GetG = Mid(strG, 4, 1)
Case 9
GetG = Mid(strG, 5, 1)
End Select
End Function
Private Function ReadLongNumber(ByVal LongX As String) As String
Dim numberx As String
Dim l As Long '長度
Dim m As Long '多餘位數
Dim c As Long '循環次數
Dim i As Long, j As Long '標志
Dim CurN As String
numberx = LongX
l = Len(numberx)
Do Until l < 9
m = l Mod 8
If m = 0 Then m = 8
CurN = Left(numberx, m)
If ReadIntNumber(CurN) <> "零" Then
ReadLongNumber = ReadLongNumber & ReadIntNumber(CurN) & "億"
Else
ReadLongNumber = ReadLongNumber & "億"
End If
numberx = Right(numberx, Len(numberx) - m)
l = Len(numberx)
Loop
ReadLongNumber = ReadLongNumber & ReadIntNumber(numberx)
If Len(ReadLongNumber) > 2 And Right(ReadLongNumber, 1) = "零" Then '去尾 零
ReadLongNumber = Left(ReadLongNumber, Len(ReadLongNumber) - 1)
End If
If Mid(ReadLongNumber, 1, 2) = "壹拾" Then
'掐頭 壹拾
ReadLongNumber = Right(ReadLongNumber, Len(ReadLongNumber) - 1)
Mid(ReadLongNumber, 1, 1) = "拾"
End If
Zero_Count = 0
End Function
Private Function ReadIntNumber(ByVal numberx As String) As String
Dim l As Long '長度
Dim m As Long '多餘位數
Dim c As Long '循環次數
Dim i As Long, j As Long '標志
Dim CurN As String
If Val(numberx) = 0 Then ReadIntNumber = GetN(0): Exit Function
l = Len(numberx)
If l > 8 Then Exit Function
m = l Mod 9
CurN = Right(numberx, m)
For i = Len(CurN) To 1 Step -1
If GetN(Int(Mid(CurN, i, 1))) = "零" And Zero_Count = 1 Then
If GetG(Len(CurN) - i + 1) = "萬" Then
If (Not (Val(Left(CurN, Len(CurN) - 5)) = 0)) Then
ReadIntNumber = GetG(Len(CurN) - i + 1) & ReadIntNumber
End If
End If
Else
If GetN(Int(Mid(CurN, i, 1))) = "零" Then
ReadIntNumber = GetN(Int(Mid(CurN, i, 1))) & ReadIntNumber
If GetG(Len(CurN) - i + 1) = "萬" Then
If (Not (Val(Left(CurN, Len(CurN) - 5)) = 0)) Then ReadIntNumber = GetG(Len(CurN) - i + 1) & ReadIntNumber
End If
Zero_Count = 1
Else
ReadIntNumber = GetG(Len(CurN) - i + 1) & ReadIntNumber
ReadIntNumber = GetN(Int(Mid(CurN, i, 1))) & ReadIntNumber
Zero_Count = 0
End If
End If
Next i
'Loop
If Len(ReadIntNumber) > 2 And Right(ReadIntNumber, 1) = "零" Then
'去尾 零
ReadIntNumber = Left(ReadIntNumber, Len(ReadIntNumber) - 1)
End If
If Mid(ReadIntNumber, 1, 2) = "壹拾" Then
'掐頭 壹拾
ReadIntNumber = Right(ReadIntNumber, Len(ReadIntNumber) - 1)
Mid(ReadIntNumber, 1, 1) = "拾"
End If
End Function
Public Function ReadNumber(ByVal numberx As String) As String
Dim LongX As String
Dim PointX As String
Dim LongLong As Long
Dim bFS As Boolean '負數
If Not IsNumeric(numberx) Then
ReadNumber = ""
Exit Function
End If
If CDbl(numberx) < 0 Then
numberx = -numberx
bFS = True
End If
numberx = CStr(Format(numberx, "General Number"))
LongLong = InStr(1, numberx, ".")
If LongLong <> 0 Then
ReadNumber = ReadLongNumber(Left(numberx, LongLong - 1))
ReadNumber = ReadNumber & "點" & ReadSmallNumber(Right(numberx, Len(numberx) - LongLong))
Else
ReadNumber = ReadLongNumber(numberx)
End If
If bFS = True Then
ReadNumber = "負" & ReadNumber
End If
End Function
Private Function ReadSmallNumber(SmallNumber As String) As String
Dim i As Long
For i = 1 To Len(SmallNumber)
ReadSmallNumber = ReadSmallNumber & GetN(Mid(SmallNumber, i, 1))
Next i
End Function
Private Function ReadSmallNumberToRMB(SmallNumber As String) As String
ReadSmallNumberToRMB = GetN(Mid(SmallNumber, 1, 1)) & "角" & GetN(Mid(SmallNumber, 2, 1)) & "分"
End Function
Public Function ReadNumberToRMB(ByVal numberx As String) As String
Dim LongX As String
Dim PointX As String
Dim LongLong As Long
Dim bFS As Boolean '負數
If Not IsNumeric(numberx) Then
ReadNumberToRMB = ""
Exit Function
End If
If CDbl(numberx) < 0 Then
numberx = -numberx
bFS = True
End If
numberx = CStr(Format(numberx, "#.00"))
LongLong = InStr(1, numberx, ".")
If Right(numberx, Len(numberx) - LongLong) <> "" Then
ReadNumberToRMB = ReadLongNumber(Left(numberx, LongLong - 1))
ReadNumberToRMB = ReadNumberToRMB & "元" & ReadSmallNumberToRMB(Right(numberx, Len(numberx) - LongLong))
Else
ReadNumberToRMB = ReadLongNumber(numberx)
End If
If bFS = True Then
ReadNumberToRMB = "負" & ReadNumberToRMB
End If
End Function
Sub zh()
Range("a2") = ReadNumberToRMB(Range("a1"))
End Sub
4. 請問什麼是幣種代碼各種幣種的代碼是什麼
幣種代碼即是貨幣代碼指一國貨幣在交易中為了方便而使用的代碼。一般以三個大寫的英文字母表示，其中前兩個字一般代表國名，後一個字一般代表貨幣名。
各種幣種的代碼是全世界150多個國家及地區其中大約有30種貨幣屬於交易活躍的貨幣。單以這30種貨幣來說，每一種貨幣對其它貨幣一共有29種匯率，就會有435種不同匯率。
常見的幣種代碼：人民幣 CNY(RMB)、美元 USD、日元JPY、歐元EUR、英鎊 GBP、德國馬克 DEM、瑞士法郎CHF、法國法郎FRF、加拿大元CAD、澳大利亞元AUD、港幣 HKD。
(4)虛擬貨幣代碼byc擴展閱讀：
目前世界外匯市場上重要外匯之間的基本格局是：
大多數貨幣之間的基本定價關系仍以美元為主，美元的國際地位是與美國強大的發展實力和國際匯率制度形成與發展的歷史相聯系的。
日本經濟的飛躍和相當實力使日元地位得以穩固和擴張。歐元是一個新生兒，歐洲區統一政策的強大後勁及其內在經濟實力決定了歐元必將成為21世紀與美元、日元統領外匯市場風騷的重要貨幣。
為了防範外匯風險，目前亞洲各國中央銀行已經控制了世界外匯儲備的一半。中國大陸的外匯儲備已有3.82萬億美元，日本、中國台灣、中國香港緊隨其後。亞洲各國的增長趨勢正在使國際貨幣體系的權力平衡格局向著有利於亞洲的方向發展。
5. 虛擬貨幣詐騙集團慣用手法
首先，我想向大家解釋一下虛擬貨幣的原理。以比特幣為例，它是密碼學貨幣，其原理是給出不可逆演算法的解，經過不可逆演算法的運算，能得出這個解的原值，就是一個比特幣。由於演算法的不可逆性，你無法從解中反推出原值，所以你能做的只有拿不同的值一個個試，即所謂「挖礦」。
這里給大家舉一個「XX幣」的演算法例子：原值為一個三位數：abc，加密演算法後得出密碼，第一位為（a+15）^(b+2)/c後取小數點後第一位，第二位為c開（b+1）次方+5.25*a後取小數點後第一位，第三位為（c+25）乘以（b+43）後除以a的a次方，再取小數點後第一位。由此，得出加密後的數據xyz。問題是，您就算知道xyz，同時知道密碼的演算法，您依然沒辦法由xyz倒求出原值abc，唯一的辦法是拿各種數據一個個套，直到有一個解為xyz（假設我們的演算法每一個abc都只能求出唯一的xyz）。那麼，由於xyz是三位數，其值域為0-999，共有1000個可能，我們選出其中的10個，比如990-999，作為驗證「XX幣」的有效值，能求出這10個解的abc的原值，就是「XX幣」。
由於990到999隻有10個數，因此能夠算出這10個數的原值也只有10個，也就是說XX幣總共只有10個，沒人能夠多變出一個來。這就保證了XX幣總量恆定，不會「通貨膨脹」，保證其總額不變的是數學規律，沒人有辦法更改，就彷彿沒人能在1到10之間變出第11個整數一樣。而挖出礦的人，要證明他對某個XX幣的持有權，只要公布經過演算法計算後得出的那個值，比如996，就可以在不泄露XX幣的真值的前提下確認他對該XX幣的所有權。
所以，判斷一個虛擬貨幣是否靠譜，第一點就要看它是否公布了演算法或者說源代碼。因為演算法是保證其總額不變和持有人所有權的根本前提。
其次，這個貨幣必須可以自由交易。自由交易的意思是，在任何時間，與任何人，以任何數量交易。這個道理更簡單了，如果國家突然規定，你手裡的人民幣只能去指定的商店買東西，每月只能買一次，每次不得花費超過你持有人民幣總額的5%，那你還不跳起來造反？
第三，這個貨幣必須有第三方交易平台。大家都知道，虛擬幣本身沒什麼價值，大家願意花那個錢買它才有價值。有第三方交易平台起碼代表大家認同它。試想，假如你的單位告訴你，以後工資不發人民幣，改發白條，所有人必須拿著白條到單位會計那，按照當日單位規定的兌換率兌換。你難道會覺得你們單位欣欣向榮嗎？
6. 什麼是瑞波幣XRP
簡介：由瑞博公司發行的一種協議幣，瑞波網路的基礎貨幣，它可以在整個瑞波網路中流通，總數量為1000億，並且隨著交易的增多而逐漸減少，瑞波幣是ripple系統中唯一的通用貨幣，其不同於ripple系統中的其他貨幣，瑞波幣的運營公司為RippleLabs(其前身為OpenCoin)。
發行時間：2011年
最大供給量：100，000，000，000XRP
目前流通總量：39，029，011，631XRP
交易量份額：目前佔加密貨幣市場的10.1%。
市值：$44，270，765，264
7. 百特幣這個用手機挖礦，一天能挖幾元錢
不好說是幾元，我只知道一天我能挖8000個左右吧。不過摺合人民幣只有0.1CNY（人民幣）
8. 在Excel2000忠如何將數字轉換成人民幣大寫
我給你一個方法將此復制下來粘貼到Excel單元格內就可以了。
=IF(ROUND(A5,2)<0,"無效數值","人民幣"&IF(ROUND(A5,2)=0,"零元",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分")))
還有以下方法：Excel將小寫金額轉換成人民幣的大寫金額
1、如何自定義：
打開EXCEL,新建一個文件Book1,按ALT+F11進入VBA編程環境,選中這個BOOK1文件,插入模塊,將下面的源代碼復制到右邊的模塊代碼區內,然後將此BOOK1保存,保存類型一定選載入宏,文件名嘛可自由發揮,我就填"中文大寫",確定OK!然後回到EXCEL,工具--載入宏-找到"中文大寫",打勾確定,我們這個自定義函數就可以象內置函數樣使用了!--->=rmbdx(123456.78),爽吧!
2、例子:
A、直接在函數內輸入數值的（請注意參數的用法，默認用法是不用輸入）
=rmbdx(123456.78)--->壹拾貳萬叄仟肆佰伍拾陸元柒角捌分
=rmbdx(123456.78,0)--->壹拾貳萬叄仟肆佰伍拾陸元柒角捌分
=rmbdx(123456.78,1)--->壹拾貳萬叄仟肆佰伍拾陸元柒角捌分
=rmbdx(56.78)--->伍拾陸元柒角捌分
=rmbdx(0.78)--->柒角捌分
=rmbdx(0.784)--->柒角捌分
=rmbdx(0.785,1)--->柒角玖分
=rmbdx(0.02,1)--->貳分
B、引用某單元格數值進行轉換的
假設你的D3單元格的數據（也可以是求和或其它公式得出的結果）需要轉換，大寫格式放在D4單元格，則D4輸入公式：=rmbdx(d3)即可
C、其它形如=rmbdx(SUM(C4:C6))的也可以，用法象內置函數，請靈活使用
3、源代碼：
Functionrmbdx(value,Optionalm=0)
』中文大寫源代碼,By對面男孩、redwin
』支持負數,支持小數點後的第三位數是否進行四捨五入處理
』默認參數為0,即不將小數點後的第三位數進行四捨五入處理
』2002-10-11--2002-10-13
OnErrorResumeNext
Dima
DimjfAsString』定義角分位
Dimj』定義角位
Dimf』定義分位
Ifvalue<0Then』處理正負數的情況
a="負"
Else
a=""
EndIf
IfIsNumeric(value)=FalseThen』判斷待轉換的value是否為數值
rmbdx="需轉換的內容非數值"
Else
value=Abs(CCur(value))
』當參數m不輸入(默認為0)或為0時,小數點後的第三數不進行四捨五入處理
』當參數m為1或其它數值時,小數點後的第三數進行四捨五入處理
Ifm=0Then
jf=Fix((value-Fix(value))*100)
value=Fix(value)+jf/100
Else』厘位進行四捨五入實踐很少用到,但還是要照顧到
value=Application.WorksheetFunction.Round(value,2)』-->這句是關鍵!只用round有bug
jf=Round((value-Fix(value))*100,0)
EndIf
Ifvalue=0Orvalue=""Then』當待轉換數值為0或空時,不進行轉換
rmbdx=""
Else
strrmbdx=Application.WorksheetFunction.Text(Int(value),"[DBNum2]")&"元"』轉換整數位
IfInt(value)=0Then
strrmbdx=""
EndIf
IfInt(value)<>valueThen
Ifjf>9Then』判斷小數位
j=Left(jf,1)
f=Right(jf,1)
Else
j=0
f=jf
EndIf
Ifj<>0Andf<>0Then』角分位都有時
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角"_
&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
』處理出現零幾分的情況
IfInt(value)=0Andj=0Andf<>0Then
jf=Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Ifj=0Then』有分無角時
jf="零"&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Iff=0Then』有角無分時
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角整"
EndIf
EndIf
EndIf
EndIf
strrmbdx=strrmbdx&jf』組裝
Else
strrmbdx=strrmbdx&"整"
EndIf
rmbdx=a&strrmbdx』最後成型了,各位MM滿意了吧
EndIf
EndIf
EndFunction
9. 人民幣100代碼有x開頭的么
有啊，以下是2005版100元的冠號列表
05100冠號投放進度(截至2010年1月28日)
1 一 6 AD AE AG AH AI AJ 2004年7月--2006年1月 AA——JJ
2 二 6 UA UB UC UD UE UF 2005年4月--2006年12月 PA——ZJ
3 三 7 HS HT HU HW HX HY HZ 2006年3月--2008年1月 AP——JZ
4 四 7 XS XT XU XW XX XY XZ 2007年4月--2008年7月 PP——ZZ
5 五 6 UO YK YL YM YN YO 2008年2月--至今 PK——ZO
6 六 3 MS MY MZ 2008年8月--至今 KP——OZ
7 七 1 JM 2009年2月--至今 AK——JO
第一大組(99種)
AA AB AC AD AE □ AG AH AI AJ
BA BB BC BD BE BF BG BH BI BJ
CA CB CC CD CE CF CG CH CI CJ
DA DB DC DD DE DF DG DH DI DJ
EA EB EC ED EE EF EG EH EI EJ
FA FB FC FD FE FF FG FH FI FJ
GA GB GC GD GE GF GG GH GI GJ
HA HB HC HD HE HF HG HH HI HJ
IA IB IC ID IE IF IG IH II IJ
JA JB JC JD JE JF JG JH JI JJ
第二大組(100種)
PA PB PC PD PE PF PG PH PI PJ
QA QB QC QD QE QF QG QH QI QJ
RA RB RC RD RE RF RG RH RI RJ
SA SB SC SD SE SF SG SH SI SJ
TA TB TC TD TE TF TG TH TI TJ
UA UB UC UD UE UF UG UH UI UJ
WA WB WC WD WE WF WG WH WI WJ
XA XB XC XD □ XF XG XH XI XJ
YA YB YC YD YE YF YG YH YI YJ
ZA ZB ZC ZD ZE ZF ZG ZH ZI ZJ
第三大組(99種)
AP AQ AR AS AT AU AW AX AY AZ
BP BQ BR BS BT □ BW BX BY BZ
CP □ CR CS CT CU CW CX CY CZ
DP DQ DR DS DT DU DW DX DY DZ
EP EQ ER ES ET EU EW EX EY EZ
FP FQ FR FS FT FU FW FX FY FZ
GP GQ GR GS GT GU GW GX GY GZ
HP HQ HR HS HT HU HW HX HY HZ
IP IQ IR IS IT IU IW IX IY IZ
JP JQ JR JS JT JU JW JX JY JZ
第四大組(97種)
PP PQ PR PS PT PU PW PX PY PZ
QP QQ QR QS QT QU QW QX □ QZ
RP RQ RR RS RT RU RW RX RY RZ
SP SQ SR SS ST SU SW SX SY SZ
TP TQ TR TS TT TU TW TX TY □
UP UQ UR US UT UU.UWUX UY UZ
WP WQ WR WS WT WU WW WX WY WZ
XP XQ XR XS XT XU XW XX XY XZ
YP YQ YR YS YT YU YW YX YY YZ
□ ZQ ZR ZS ZT ZU ZW ZX ZY ZZ
第五大組(44種)
PK PL □ □ □ QK QL QM QN QO
RK RL RM RN RO SK SL SM SN SO
TK TL TM TN TO UK UL UM UN UO
WK WL WM WN WO XK XL XM □ XO
□ YL □ YN YO ZK ZL ZM ZN ZO
第六大組(45種)
KP KQ KR KS KT KU KW KX KY
LP LQ LR LS LT LU LW LX □ LZ
MP MQ MR MS □ MU □ MX MY MZ
NP NQ □ NS NT NU NW NX NY NZ
OM OQ OR OS OT OU OW OX OY OZ
第七大組(26種)
□ □ □ □ □ BK □ □ □ □
CK CL □ □ □ DK DL DM □ DO
EK EL EM EN EO FK FL FM FN FO
GK GL □ □ □ □ HL HM HN □ □
□ □ IM IN □ □ JL □ □ □ JO
第八大組(3種)
KF MG NI
05100補票冠號(29.種)：AC.AD AE AH AI UE UF UG UH UI UJ HT HU HW HY HZ XT XU XW XX XY XZ YLYN MX MY MZ JL JO
05100. 已發現投放513個冠號(含AA)
10. excel中人民幣小寫轉大寫的函數怎麼寫
我給你一個方法將此復制下來粘貼到Excel單元格內就可以了。
=IF(ROUND(A5,2)<0,"無效數值","人民幣"&IF(ROUND(A5,2)=0,"零元",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分")))
還有以下方法：Excel將小寫金額轉換成人民幣的大寫金額
1、如何自定義：
打開EXCEL,新建一個文件Book1,按ALT+F11進入VBA編程環境,選中這個BOOK1文件,插入模塊,將下面的源代碼復制到右邊的模塊代碼區內,然後將此BOOK1保存,保存類型一定選載入宏,文件名嘛可自由發揮,我就填"中文大寫",確定OK!然後回到EXCEL,工具--載入宏-找到"中文大寫",打勾確定,我們這個自定義函數就可以象內置函數樣使用了!--->=rmbdx(123456.78),爽吧!
2、例子:
A、直接在函數內輸入數值的（請注意參數的用法，默認用法是不用輸入）
=rmbdx(123456.78)--->壹拾貳萬叄仟肆佰伍拾陸元柒角捌分
=rmbdx(123456.78,0)--->壹拾貳萬叄仟肆佰伍拾陸元柒角捌分
=rmbdx(123456.78,1)--->壹拾貳萬叄仟肆佰伍拾陸元柒角捌分
=rmbdx(56.78)--->伍拾陸元柒角捌分
=rmbdx(0.78)--->柒角捌分
=rmbdx(0.784)--->柒角捌分
=rmbdx(0.785,1)--->柒角玖分
=rmbdx(0.02,1)--->貳分
B、引用某單元格數值進行轉換的
假設你的D3單元格的數據（也可以是求和或其它公式得出的結果）需要轉換，大寫格式放在D4單元格，則D4輸入公式：=rmbdx(d3)即可
C、其它形如=rmbdx(SUM(C4:C6))的也可以，用法象內置函數，請靈活使用
3、源代碼：
Functionrmbdx(value,Optionalm=0)
』中文大寫源代碼,By對面男孩、redwin
』支持負數,支持小數點後的第三位數是否進行四捨五入處理
』默認參數為0,即不將小數點後的第三位數進行四捨五入處理
』2002-10-11--2002-10-13
OnErrorResumeNext
Dima
DimjfAsString』定義角分位
Dimj』定義角位
Dimf』定義分位
Ifvalue<0Then』處理正負數的情況
a="負"
Else
a=""
EndIf
IfIsNumeric(value)=FalseThen』判斷待轉換的value是否為數值
rmbdx="需轉換的內容非數值"
Else
value=Abs(CCur(value))
』當參數m不輸入(默認為0)或為0時,小數點後的第三數不進行四捨五入處理
』當參數m為1或其它數值時,小數點後的第三數進行四捨五入處理
Ifm=0Then
jf=Fix((value-Fix(value))*100)
value=Fix(value)+jf/100
Else』厘位進行四捨五入實踐很少用到,但還是要照顧到
value=Application.WorksheetFunction.Round(value,2)』-->這句是關鍵!只用round有bug
jf=Round((value-Fix(value))*100,0)
EndIf
Ifvalue=0Orvalue=""Then』當待轉換數值為0或空時,不進行轉換
rmbdx=""
Else
strrmbdx=Application.WorksheetFunction.Text(Int(value),"[DBNum2]")&"元"』轉換整數位
IfInt(value)=0Then
strrmbdx=""
EndIf
IfInt(value)<>valueThen
Ifjf>9Then』判斷小數位
j=Left(jf,1)
f=Right(jf,1)
Else
j=0
f=jf
EndIf
Ifj<>0Andf<>0Then』角分位都有時
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角"_
&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
』處理出現零幾分的情況
IfInt(value)=0Andj=0Andf<>0Then
jf=Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Ifj=0Then』有分無角時
jf="零"&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Iff=0Then』有角無分時
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角整"
EndIf
EndIf
EndIf
EndIf
strrmbdx=strrmbdx&jf』組裝
Else
strrmbdx=strrmbdx&"整"
EndIf
rmbdx=a&strrmbdx』最後成型了,各位MM滿意了吧
EndIf
EndIf
EndFunction