Prikaz brojeva kao riječi u Excelu

Ako ste ikada trebali prikazati broj ispisan kao tekst, vjerojatno ste otkrili da Excel ne nudi takvu funkciju. Kada se Excel ne isporuči, često je moguće ispraviti nedostatak pomoću VBA. Evo VBA funkcije, nazvane SPELLDOLLARS , koju možete koristiti u formulama radnog lista.

Excel primjeri

Evo nekoliko primjera SPELLDOLLARS-a.

VBA kod

Za korištenje ovog koda pritisnite Alt+F11 da aktivirate Visual Basic Editor. Zatim odaberite Umetanje → Modul za umetanje novog VBA modula. Kopirajte kod i zalijepite ga u novi modul.

Funkcija SPELLDOLLARS(ćelija) kao varijanta
' Vraća vrijednost, napisanu riječima
  Prigušeni dolari kao žica, centi kao žica
  Dim TextLen koliko dugo, Pos kao dugo
  Dim Temp As String
  Dim iHundreds As Long, iTens As Long, iOnes As Long
  Prigušeni kao varijanta, tinejdžeri kao varijanta, desetke kao varijanta
  Dim Units (2 do 5) kao niz
  Dim bHit kao Boolean, NegFlag kao Boolean
' Je li to nebrojena ili prazna ćelija?
  Ako nije Numerička(ćelija) Ili ćelija = ““ Onda
    SPELLDOLLARS = CVERr(xlErrValue)
    Izlazna funkcija
  Završi ako
' Je li negativan?
  Ako je ćelija < 0="" then="" negflag="True" cell="Abs(cell)" end="" if="" dollars="Format(cell," “###0.00”)="" textlen="Len(Dollars)" -="" 3="" '="" is="" it="" too="" large?="" if="" textlen=""> 15 Zatim
    SPELLDOLLARS = CVERr(xlErrNum)
    Izlazna funkcija
  Završi ako
' Odradite dio s centi
  Centi = desno (dolari, 2) & “/100 dolara”
  Ako je ćelija < 1="" then="" spelldollars="Cents" exit="" function="" end="" if="" dollars="Left(Dollars," textlen)="" ones="Niz( ““," “jedan”,="" "dva",="" "tri",="" "četiri",="" _="" "pet",="" "šest",="" "sedam",="" "osam",="" "devet")="" teens="Niz("Deset"," "jedanaest",="" "dvanaest",="" "trinaest",= "" "četrnaest",="" _="" "petnaest",="" "šesnaest",="" "sedamnaest",="" "osamnaest",="" "devetnaest")="" desetice= "Niz(““," ““,="" "dvadeset",="" "trideset",="" "četrdeset",="" "pedeset",="" _="""šezdeset",="" "sedamdeset",="" "osamdeset",="" "devedeset")="" units(2)=""Tisuću"" jedinica(3)=""Milion"" jedinica( 4)="“Billion"" units(5)=""Trilijun"" temp="""" for="" pos="15" to="" 3="" step="" -3="" if="" textlen="">= Pos - 2 Zatim
      bHit = Netočno
      Ako TextLen >= Pos Onda
        iHundreds = Asc(Mid$(Dolari, TextLen - Poz + 1, 1)) - 48
        Ako je iHundreds > 0 Tada
          Temp = Temp & “ “ & Ones (iHundreds) & “ Hundred”
          bHit = Istina
        Završi ako
    Završi ako
    iTens = 0
    iOnes = 0
    Ako je TextLen >= Pos - 1 Onda
      iTens = Asc(Mid$(Dolari, TextLen - Poz + 2, 1)) - 48
    Završi ako
    Ako je TextLen >= Pos - 2 Tada
      iOnes = Asc(Mid$(Dolari, TextLen - Poz + 3, 1)) - 48
    Završi ako
    Ako je iTens = 1 Tada
      Temp = Temp & “ “ & Teens (iOnes)
      bHit = Istina
    Drugo
      Ako je iTens >= 2 Tada
        Temp = Temp & “ “ & Deseci (iTens)
        bHit = Istina
      Završi ako
      Ako je iOnes > 0 Tada
        Ako je iTens >= 2 Tada
          Temp = Temp & “-”
        Drugo
          Temp = Temp & “ “
        Završi ako
        Temp = Temp & Ones (iOnes)
        bHit = Istina
      Završi ako
    Završi ako
    Ako je bHit i poz > 3 onda
      Temp = Temp & “ “ & jedinice (Poz 3)
    Završi ako
  Završi ako
  Sljedeća poz
 SPELLDOLLARS = Trim(Temp) & “ i “ & Cents
 Ako je NegFlag onda SPELLDOLLARS = “(“ & SPELLDOLLARS & “)”
Završna funkcija