bfs虛擬貨幣

1. 以色列國家用的貨幣叫什麼名字，和人民幣是怎麼兌換的

以色列的貨幣是以色列謝克爾（Israel Shekel，以IS表示）。1美圓＝約100謝克爾，1謝克爾＝100New Agorot。
貨幣的種類，紙幣有IS1、5、10、50、100元，硬幣有New Agorotl、5、10元，以及IS1/2、1、5、10元。可在機場(24小時營業)或市區的銀行兌換錢幣

六、物價與供應

以色列貨幣謝克和人民幣的比價大約為1：2。當地物價水平較中國高，肉類30—90謝克/公斤，魚類16-90謝克/公斤，蔬菜2.5-10謝克/公斤。當地物品供應齊全，各種常用商品都可以買到

2. 在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