Shfaqja e numrave si fjalë në Excel

Nëse ju është dashur ndonjëherë të shfaqni një numër të shkruar si tekst, me siguri keni zbuluar se Excel nuk ofron një funksion të tillë. Kur Excel nuk arrin të ofrojë, shpesh është e mundur të korrigjohet mangësia duke përdorur VBA. Këtu është një funksion VBA, i quajtur SPELLDOLLARS , që mund ta përdorni në formulat e fletëve të punës.

Shembuj Excel

Këtu janë disa shembuj të SPELLDOLLARS.

Shfaqja e numrave si fjalë në Excel

Kodi VBA

Për të përdorur këtë kod, shtypni Alt+F11 për të aktivizuar Visual Basic Editor. Pastaj zgjidhni Insert → Module për të futur një modul të ri VBA. Kopjoni kodin dhe ngjisni atë në modulin e ri.

Funksioni SPELLDOLLARS(qelizë) si variant
' Rikthen një vlerë, të shkruar me fjalë
  Dollarë të zbehtë si varg, cent si varg
  Teksti i zbehtë për sa kohë, pos për sa kohë
  Dim Temp si varg
  Zbeh iQindra për sa kohë, i dhjetë për sa kohë, iOnes për aq kohë
  Dim Ones As Variant, Adoleshentët Si Variant, Dhjetra Si Variant
  Njësitë e zbehta (2 deri në 5) si varg
  Dim bHit Si Boolean, NegFlag Si Boolean
A është një qelizë jo-numërore apo boshe?
  Nëse nuk është numerike (qeliza) Ose qeliza = "" Atëherë
    SPELLDOLLARS = CVERr(xlErrVlera)
    Funksioni i daljes
  Fundi Nëse
'A është negative?
  Nëse qeliza < 0="" then="" negflag="E vërtetë" qelizë="Abs(qeliza)" fund="" if="" dollarë="Format(qelizë," "###0.00")="" textlen="Len(Dollarë)" -="" 3="" '="" is="" it="" too="" large?="" if="" textlen=""> 15 Pastaj
    SPELLDOLLARS = CVERr(xlErrNum)
    Funksioni i daljes
  Fundi Nëse
Bëj pjesën cent
  Cent = E drejta (Dollarë, 2) & "/100 Dollarë"
  Nëse qeliza < 1="" then="" spelldollars="Cents" exit="" funksion="" end="" if="" dollars="Left(Dollarë," textlen)="" ones="Array( ""," "një", "" "dy", "" "tre", "" "katër", "" _="" "pesë", "" "gjashtë", "" “shtatë”,="" "tetë",="" "nëntë")="" teens="Array("Dhjetë"," "eleven",="" "dymbëdhjetë",="" "trembëdhjetë",= "" "katërmbëdhjetë",="" _="" "pesëmbëdhjetë",="" "gjashtëmbëdhjetë",="" "shtatëmbëdhjetë",="" "tetëmbëdhjetë",="" "nëntëmbëdhjetë")="" dhjetëra = "Array(""," "",="" "twenty",="" "trity",="" "dyzet",="" "fifty",="" _="""sixty",="" "seventy",="" "ighty",="" "nentety")="" units(2)=""Thousand"" units(3)=""Million"" units( 4)=""Miliard"" njësi(5)=""Trilion"" temp="""" for="" pos="15" to="" 3="" step="" -3="" if="" textlen="">= Pos - 2 Pastaj
      bHit = E rreme
      If TextLen >= Pos Atëherë
        iHundreds = Asc(Mid$(Dollarë, TextLen - Pos + 1, 1)) - 48
        Nëse iHundreds > 0 Pastaj
          Temp = Temp & " " & Ones (iHundreds) & " Hundred"
          bHit = E vërtetë
        Fundi Nëse
    Fundi Nëse
    iTens = 0
    iOnes = 0
    Nëse TextLen >= Pos - 1 Atëherë
      iTens = Asc(Mid$(Dollarë, TextLen - Pos + 2, 1)) - 48
    Fundi Nëse
    Nëse TextLen >= Pos - 2 Pastaj
      iOnes = Asc(Mid$(Dollarë, TextLen - Pos + 3, 1)) - 48
    Fundi Nëse
    Nëse iTens = 1 Atëherë
      Temp = Temp & " " & Adoleshentët (iOnes)
      bHit = E vërtetë
    Përndryshe
      Nëse iTens >= 2 Atëherë
        Temp = Temp & “ “ & Tens (iTens)
        bHit = E vërtetë
      Fundi Nëse
      Nëse iOnes > 0 Atëherë
        Nëse iTens >= 2 Atëherë
          Temp = Temp & "-"
        Përndryshe
          Temp = Temp & ""
        Fundi Nëse
        Temp = Temp & Ones (iOnes)
        bHit = E vërtetë
      Fundi Nëse
    Fundi Nëse
    Nëse bHit Dhe Pos > 3 Pastaj
      Temp = Temp & " " & Njësitë (Pos 3)
    Fundi Nëse
  Fundi Nëse
  Pozicioni tjetër
 SPELLDOLLARS = Trim(Temp) & “dhe “ & Cents
 Nëse NegFlag Atëherë SPELLDOLLARS = "(" & SPELLDOLLARS & ")"
Funksioni i Fundit

Leave a Comment

Si të shkruani shënime në OneNote 2013 në Android

Si të shkruani shënime në OneNote 2013 në Android

Mësoni si të shkruani shënime në OneNote 2013 në Android me krijimin, hapjen dhe regjistrimin e shënimeve. Aplikoni strategji efektive për menaxhimin e shënimeve tuaja.

Formatimi i numrave në një varg teksti në Excel

Formatimi i numrave në një varg teksti në Excel

Mësoni si të formatoni numrat në një varg teksti në Excel për të përfshirë informacione të sakta dhe tërheqëse për raportet tuaja.

Si të fshini qelizat dhe të dhënat në Excel 2010

Si të fshini qelizat dhe të dhënat në Excel 2010

Në Excel 2010, fshini të dhënat apo formatin e qelizave lehtësisht me disa metoda të thjeshta. Mësoni si të menaxhoni përmbajtjen e qelizave me opsione të ndryshme.

Formatimi i elementeve të grafikut të Excel 2007

Formatimi i elementeve të grafikut të Excel 2007

Zhvilloni aftësitë tuaja në formatimin e elementeve të grafikut në Excel 2007 përmes metodave të thjeshta dhe efikase.

Si të rreshtoni dhe justifikoni tekstin në Word 2010

Si të rreshtoni dhe justifikoni tekstin në Word 2010

Mësoni se si të rreshtoni dhe justifikoni tekstin në Word 2010 me opsione të ndryshme rreshtimi dhe justifikimi për të përmirësuar formatimin e dokumenteve tuaja.

Excel 2019: Si të krijoni makro Excel për të automatizuar komandat

Excel 2019: Si të krijoni makro Excel për të automatizuar komandat

Mësoni si të krijoni makro në Excel 2019 për të automatizuar komandat dhe thjeshtuar detyrat tuaja.

Si të përdorni vizoren për të vendosur skeda në Word 2016

Si të përdorni vizoren për të vendosur skeda në Word 2016

Mënyra vizuale dhe e shpejtë për të vendosur një ndalesë skedash në Word 2016 është përdorimi i vizores. Zbulo disa këshilla dhe truke për përdorimin e skedave në këtë program.

Formatimi i boshtit X dhe boshtit Y në grafikët e Excel 2007

Formatimi i boshtit X dhe boshtit Y në grafikët e Excel 2007

Mësoni si të formula boshtet X dhe Y në Excel 2007, duke përfshirë mundësitë e ndryshimit të formatimeve për grafikët e ndryshëm.

Statistika të thjeshta në analizën e të dhënave në Excel

Statistika të thjeshta në analizën e të dhënave në Excel

Eksploroni se si Excel mund t

Gjetja dhe zëvendësimi i të dhënave në Excel 2007

Gjetja dhe zëvendësimi i të dhënave në Excel 2007

Mësoni se si të përdorni veçorinë Find and Replace të Excel 2007 për të gjetur dhe zëvendësuar të dhëna në mënyrë efikase. Kjo udhëzues është e përshtatshme për të gjithë përdoruesit që dëshirojnë të rrisin produktivitetin e tyre.