Kako hitro pretvoriti številke valut v besede v Excelu?
Recimo, da imate v Excelu nabor številk valut, ki jih želite pretvoriti v besedilo besed, in ali imate kakšne hitre trike za hitro rešitev? Zdaj vam ta vadnica predstavlja nekaj preprostih načinov pretvorbe številk valut v angleške besede hkrati v Excelu.
Črke valut črkujte v besede z dolgim VBA
Črke valut črkujte v besede s priročno funkcijo Številke v besede
Črke valut črkujte v besede z dolgim VBA
V Excelu ne morete hitro pretvoriti številk v angleške besede, razen VBA.
1. Pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za uporabo okno.
2. klik Vstavi > Moduli in pod VBA prilepite novo Moduli okno.
VBA: Pretvorite številke valut v angleške besede.
Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
xHundred = ""
xValue = Right(pNumber, 3)
If Val(xValue) <> 0 Then
xValue = Right("000" & xValue, 3)
If Mid(xValue, 1, 1) <> "0" Then
xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
End If
If Mid(xValue, 2, 1) <> "0" Then
xHundred = xHundred & GetTens(Mid(xValue, 2))
Else
xHundred = xHundred & GetDigit(Mid(xValue, 3))
End If
End If
If xHundred <> "" Then
Dollars = xHundred & arr(xIndex) & Dollars
End If
If Len(pNumber) > 3 Then
pNumber = Left(pNumber, Len(pNumber) - 3)
Else
pNumber = ""
End If
xIndex = xIndex + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(pTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
3. Nato shranite to kodo in zaprite okno, da se vrnete na delovni list, in izberite prazno celico, vnesite to formulo = SpellNumberToEnglish (A2) (A2 so številke valut) in pritisnite Vnesite , nato povlecite ročico za polnjenje navzdol, da uporabite to formulo za celice, ki jih potrebujete. Oglejte si posnetke zaslona:
Črke valut črkujte v besede s priročno funkcijo črkovanja številk
Če morate številke običajno pretvoriti v besede, zgornja metoda ne sme biti dober in priročen način za vas. Lahko pa uporabite Številke v besede funkcija za hitro pretvorbo številk valut v angleške besede ali kitajske besede, če jih imate Kutools za Excel.
Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. |
po brezplačna namestitev Kutools za Excel, naredite spodaj:
1. Izberite številke valut in kliknite Kutools > vsebina > Številke v besede. Oglejte si posnetek zaslona:
2. V Ljubljani Številke do valutnih besed pogovorno okno, preverite Angleščina or Chinese možnost, kot jo potrebujete. Oglejte si posnetek zaslona:
3. klik Ok or Uporabi. Nato so izbrane številke valut pretvorjene v besede.
Številke valut v angleške besede
Številke valut v kitajske besede
Opomba: številke valut lahko kopirate in prilepite na drug delovni list, preden uporabite Številke za besede
Pretvori številko valute v besede
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!