Yn yr erthygl hon byddaf yn dangos dwy ffordd gyflym a rhad ac am ddim i chi drosi rhifau arian cyfred i eiriau Saesneg yn Excel 2019, 2016, 2013 a fersiynau eraill.

Mae Microsoft Excel yn wych rhaglen i gyfrifo hyn a'r llall. Fe'i datblygwyd i ddechrau i brosesu araeau data mawr. Fodd bynnag, mae hefyd yn caniatáu creu cofnodion cyfrifeg fel anfonebau, gwerthusiadau neu fantolenni yn gyflym ac yn effeithiol.

Mewn dogfennau talu solet mwy neu lai mae angen dyblygu gwerthoedd rhifol gyda'u ffurf geiriau. Mae'n llawer anoddach ffugio rhifau teipiedig na'r rhai a ysgrifennwyd â llaw. Gall rhai swindler geisio gwneud 8000 allan o 3000, tra ei bod bron yn amhosibl rhoi "wyth" yn lle "tri" yn gyfrinachol.

Felly yr hyn sydd ei angen arnoch chi yw nid trosi rhifau i eiriau yn Excel yn unig (e.e. 123.45 i "cant dau ddeg tri, pedwar deg pump"), ond sillafu'n ddoleri a sent (e.e. $29.95 fel "dau ddeg naw o ddoleri a naw deg naw sent"), bunnoedd a cheiniogau ar gyfer GBP, ewros ac ewros ar gyfer EUR, ac ati

Nid oes gan hyd yn oed y fersiynau diweddaraf o Excel offeryn adeiledig ar gyfer sillafu rhifau, heb sôn am fersiynau cynharach. Ond dyna pryd mae Excel yn dda iawn. Gallwch bob amser wella ei ymarferoldeb gan ddefnyddio fformiwlâu yn eu holl

cyfuniadau, macros VBA, neu ychwanegion trydydd parti.

Isod fe welwch ddwy ffordd i drosi rhifau o ffigurau i eiriau

Ac, o bosibl, efallai y bydd angen i chi wneud hynnytrosi Geiriau i Rifau yn Excel

Nodyn. Os ydych chi'n chwilio am y trosiad rhif i destun , sy'n golygu eich bod am i Excel weld eich rhif fel testun, mae'n beth ychydig yn wahanol. Ar gyfer hyn, gallwch ddefnyddio'r ffwythiant TESTUN neu ychydig o ffyrdd eraill a ddisgrifir yn Sut i newid rhifau i destun yn Excel.

SpellNumber VBA macro i drosi rhifau i eiriau

Fel yr wyf wedi crybwyll eisoes , Nid oedd Microsoft eisiau ychwanegu offeryn ar gyfer y dasg hon. Fodd bynnag, pan welsant faint o ddefnyddwyr oedd ei angen, fe wnaethant greu a chyhoeddi'r macro VBA arbennig ar eu gwefan. Mae'r macro yn gwneud yr hyn y mae ei enw SpellNumber yn ei awgrymu. Mae'r holl macros eraill y deuthum ar eu traws yn seiliedig ar god Microsoft.

Gallwch ddod o hyd i'r macro a grybwyllir fel "fformiwla rhif sillafu". Fodd bynnag, nid fformiwla ydyw, ond ffwythiant macro, neu i fod yn fwy manwl gywir Swyddogaeth ddiffiniedig Excel User (UDF).

Mae'r dewis rhif sillafu yn gallu ysgrifennu doleri a sent. Os oes angen arian cyfred gwahanol arnoch, gallwch newid " doler " a " cent " gydag enw eich un.

Os nad ydych chi'n foi craff â VBA , isod fe welwch gopi o'r cod. Os nad ydych chi eisiau neu os nad oes gennych amser i ddatrys hyn, defnyddiwch y datrysiad hwn os gwelwch yn dda.

1. Agorwch y gweithlyfr lle mae angen sillafu'r rhifau.
2. Pwyswch Alt +F11 i agor ffenestr y golygydd Visual Basic.
3. Os oes gennych nifer o lyfrau wedi'u hagor, gwiriwch fod y llyfr gwaith angenrheidiol yn weithredol gan ddefnyddioy rhestr o brosiectau yng nghornel chwith uchaf y golygydd (amlygir un o elfennau'r llyfr gwaith gyda glas).
4. Yn newislen y golygydd ewch i Mewnosod -> Modiwl .
5. Dylech weld ffenestr o'r enw YourBook - Module1. Dewiswch yr holl god yn y ffrâm isod a'i gludo i'r ffenestr hon.

   Opsiwn Penodol 'Prif Swyddogaeth Swyddogaeth Rhif Sillafu( ByVal MyNumber) Dim Dollars, Sent, Temp Dim DegolPlace, Cyfrwch ReDim Place(9) Fel Llinynnol Man(2) = " Mil " Lle(3) = " Miliwn " Place(4) = " Biliwn " Place(5) = " Triliwn " MyNumber = Trim (Str(FyNumber))) DecimalPlace = InStr(FyNumber, "." ) If DecimalPlace > 0 Yna Cents = GetTens(Chwith(Canol(FyNumber, DecimalPlace + 1)) & _ "00" , 2)) MyNumber = Trimio(Chwith(FyNumber, DegolPlace - 1)) Diwedd Os Cyfrwch = 1 Gwnewch Tra FyNumber"" Temp = GetHundreds(Iawn(FyNumber, 3)) Os Tymheredd" "" Yna Dollars = Tymheredd & Lle(Cyfrif) & Doleri Os Len(FyRhif) > 3 Yna FyNumber = Chwith(FyNumber, Len(FyNumber) - 3) Arall FyNumber =" Diwedd Os Cyfrif = Cyfrif + 1 Dolen Dewiswch Achos Doler Achos" Dolers = "Dim Doler" Achos "Un" Doler = "Un Doler" Achos Arall Dollars = Doleri & " Dollars " Diwedd Dewis Dewiswch Achos Sentrau Achos " " Cents = " a Dim Sent " Achos " Un " Cents = " ac Un Gent " Case Else Cents = " a " & Cents & " Sent " Diwedd Dewiswch SpellNumber = Doleri & Swyddogaeth Diwedd Cents GetHundreds(ByVal MyNumber) Dim Canlyniad Fel Llinyn Os Val(MyNumber) = 0 Yna Gadael Swyddogaeth MyNumber = I'r Dde( "000" & MyNumber, 3) ' Trosi lle cannoedd. Os yw Canolbarth(FyNrif, 1, 1) "0" Yna Canlyniad = GetDigit(Canol(FyRhif, 1, 1)) & " Hundred " Diwedd Os ' Trosi'r lle degau a rhai. Os Canolbarth(FyNrif, 2, 1) "0" Yna Canlyniad = Canlyniad & GetTens(Mid(FyNumber, 2)) Arall Canlyniad = Canlyniad & GetDigit(Mid(MyNumber, 3)) Diwedd Os GetHundreds = Canlyniad Swyddogaeth Diwedd Swyddogaeth GetTens(TensText) Dim Canlyniad Fel String Result = "" ' Dileu gwerth y ffwythiant dros dro. Os yw Val(Chwith(TensText, 1)) = 1 Yna ' Os yw gwerth rhwng 10-19… Dewiswch Achos Val(TensText) Achos 10: Canlyniad = "Deg" Achos 11: Canlyniad = "Un ar ddeg" Achos 12: Canlyniad = "Deuddeg " Achos 13: Canlyniad = " Tri ar ddeg " Achos 14: Canlyniad = " Pedwar ar bymtheg " Achos 15: Canlyniad = " Pymtheg " Achos 16: Canlyniad = " Un ar bymtheg " Achos 17: Canlyniad = " Dau ar bymtheg " Achos 18: Canlyniad = " Deunaw " Achos 19: Canlyniad = "Pedwar ar bymtheg" Achos Arall Diwedd Dewiswch Arall ' Os yw gwerth rhwng 20-99… Dewiswch Achos Val(Chwith(TensText, 1)) Achos 2: Canlyniad = " Ugain " Achos 3: Canlyniad = " Tri deg " Achos 4: Canlyniad = " Pedwar deg " Achos 5: Canlyniad = " Hanner deg " Achos 6: Canlyniad = " Chwe deg " Achos 7: Canlyniad = " Saith deg " Achos 8: Canlyniad = " Wythdeg " Achos 9: Canlyniad = " Naw deg " Achos Diwedd Arall Dewis Canlyniad = Canlyniad & GetDigit _ (Right(TensText, 1)) ' Adalw rhai lle. Diwedd Os GetTens = Canlyniad Swyddogaeth Diwedd Swyddogaeth GetDigit(Digit) Dewiswch AchosVal(Digit) Achos 1: GetDigit = "Un" Achos 2: GetDigit = "Dau" Achos 3: GetDigit = "Tri" Achos 4: GetDigit = "Pedwar" Achos 5: GetDigit = "Pump" Achos 6: GetDigit = " Chwech" Achos 7: GetDigit = "Saith" Achos 8: GetDigit = "Wyth" Achos 9: GetDigit = "Naw" Achos Arall : GetDigit = " Diwedd Dewis Diwedd Swyddogaeth

6. Pwyswch Ctrl+S i gadw'r llyfr gwaith wedi'i ddiweddaru.

   Bydd angen i chi ail gadw eich llyfr gwaith. Pan geisiwch gadw'r llyfr gwaith gyda macro fe gewch y neges " Ni ellir cadw'r nodweddion canlynol yn y llyfr gwaith di-facro "

   

   Cliciwch Rhif. Pan welwch chi deialog newydd, dewiswch yr opsiwn Cadw fel. Yn y maes " Cadw fel math " dewiswch yr opsiwn " Gweithlyfr macro-alluogi Excel ". eich taflenni gwaith

   Nawr gallwch ddefnyddio'r swyddogaeth Rhif Sillafu yn eich dogfennau Excel. Rhowch =SpellNumber(A2) yn y gell lle mae angen i chi gael y rhif wedi'i ysgrifennu mewn geiriau. Yma A2 yw cyfeiriad y gell gyda'r nifer neu'r swm.

   Yma gallwch weld y canlyniad:

   Voila!

   Copïwch y swyddogaeth Rhif Sillafu yn gyflym i gelloedd eraill.

   Os ydych angen trosi'r tabl cyfan, nid 1 gell yn unig, gosod cyrchwr eich llygoden i gornel dde isaf y gell gyda'r fformiwla nes ei fod yn troi'n groes fach ddu:

   Cliciwch ar y chwith a'i lusgo ar draws y colofn i lenwi'r fformiwla. Rhyddhewch y botwm i weld y canlyniadau:

   Gweld hefyd: Sut i dynnu yn Excel: celloedd, colofnau, canrannau, dyddiadau ac amseroedd

   Nodyn. Os gwelwch yn ddacadwch mewn cof os ydych yn defnyddio SpellNumber gyda dolen i gell arall, bydd y swm ysgrifenedig yn cael ei ddiweddaru bob tro y bydd y rhif yn y gell ffynhonnell yn cael ei newid.

   Gallwch hefyd roi'r rhif yn syth i'r ffwythiant, ar gyfer enghraifft, =SpellNumber(29.95) (29.95 - heb ddyfynodau a'r arwydd Doler).

   Gweld hefyd: Sut i atodi ffeil o URL i e-bost Outlook gyda Thempledi E-bost a Rennir

   Anfanteision defnyddio macro i sillafu rhifau yn Excel

   Yn gyntaf, rhaid i chi wybod VBA i addasu'r cod yn ôl eich anghenion. Mae angen gludo'r cod ar gyfer pob llyfr gwaith, lle rydych chi'n bwriadu ei newid. Fel arall, bydd angen i chi greu ffeil templed gyda macros a ffurfweddu Excel i lwytho'r ffeil hon ar bob cychwyn.

   Prif anfantais defnyddio macro yw os byddwch yn anfon y llyfr gwaith at rywun arall, ni fydd y person hwn gweler y testun oni bai bod y macro wedi'i gynnwys yn y llyfr gwaith. A hyd yn oed os yw wedi'i ymgorffori, byddant yn cael rhybudd bod macros yn y llyfr gwaith.

   Sillafu rhifau i eiriau gan ddefnyddio ategyn arbennig

   Ar gyfer defnyddwyr Excel sydd angen sillafu symiau'n gyflym ond nad oes ganddyn nhw amser i ddysgu VBA neu ddarganfod atebion, rydyn ni wedi creu teclyn arbennig sy'n gallu cyflawni'r trosi swm-i-eiriau yn gyflym ar gyfer ychydig o arian cyfred poblogaidd. Cwrddwch â'r ategyn Sillafu Rhif sydd wedi'i gynnwys gyda'r datganiad diweddaraf o'n Ultimate Suite for Excel.

   Yn ogystal â bod yn barod i'w ddefnyddio, mae'r offeryn yn hyblyg iawn o ran trosi symiau i destun:

   • Gallwch ddewis un o'rarian cyfred canlynol: USD, EUR, GBP, BIT, AUD.
   • Sillafu'r rhan ffracsiynol mewn cents, ceiniogau, neu bitcents.
   • Dewiswch unrhyw gas testun ar gyfer y canlyniad: llythrennau bach, ACHOS UCHAF , Teitl Achos, neu Brawddeg.
   • Sillafu'r rhan degol mewn gwahanol ffyrdd.
   • Cynnwys neu hepgor sero cents.

   Mae'r ychwanegyn yn cefnogi pob un modern fersiynau gan gynnwys Excel 365, Excel 2029, Excel 2016, Excel 2013, ac Excel 2010. Mae croeso i chi archwilio galluoedd eraill ar dudalen gartref y cynnyrch sydd wedi'i gysylltu uchod.

   A nawr, gadewch i ni weld y cyfleustodau sillafu rhif hwn ar waith :

   1. Dewiswch gell wag ar gyfer y canlyniad.
   2. Ar y tab Ablebits , yn y grŵp Utilities , cliciwch Rhif Sillafu .
   3. Yn y ffenestr ddeialog Sillafu Rhif sy'n ymddangos, ffurfweddwch y pethau canlynol:
      • Ar gyfer y blwch Dewiswch eich rhif , dewiswch y gell sy'n cynnwys y swm yr ydych am ei ysgrifennu fel testun.
      • Nodwch y ar hyn o bryd , caseg llythyren a'r ffordd y degol dylid sillafu rhan o'r rhif.
      • Diffiniwch a ddylid cynnwys sero cents ai peidio.
      • Dewiswch a ydych am fewnosod y canlyniad fel gwerth neu fformiwla.
   4. Ar waelod y ffenestr ymgom, rhagolwg y canlyniad. Os ydych chi'n hapus â'r ffordd mae'ch rhif wedi'i ysgrifennu, cliciwch Sillafu . Fel arall, rhowch gynnig ar osodiadau gwahanol.

   Mae'r sgrinlun isod yn dangos y rhagosodiaddewisiadau a'r rhif wedi'i sillafu yn B2. Sylwch ar fformiwla (yn fwy manwl gywir, swyddogaeth a ddiffinnir gan y defnyddiwr) yn y bar fformiwla:

   A dyma ddangosiad cyflym o sut y gellir sillafu arian cyfred arall:

   Awgrymiadau a nodiadau:

   • Oherwydd bod yr ychwanegiad Rhif Sillafu wedi'i gynllunio i ymdrin ag achosion defnydd go iawn megis anfonebau a dogfennau ariannol eraill, dim ond un rhif <6 y gall drosi>ar y tro.
   • I sillafu colofn o rifau , mewnosodwch fformiwla yn y gell gyntaf, ac yna copïwch y fformiwla i lawr.
   • Os oes siawns bod efallai y bydd eich data ffynhonnell yn newid yn y dyfodol, mae'n well mewnosod y canlyniad fel fformiwla , felly mae'n diweddaru'n awtomatig wrth i'r rhif gwreiddiol newid.
   • Wrth ddewis y canlyniad fel fformiwla opsiwn, mewnosodir swyddogaeth wedi'i diffinio gan y defnyddiwr (UDF) arferiad. Os ydych chi'n bwriadu rhannu eich llyfr gwaith gyda rhywun sydd heb yr Ultimate Suite wedi'i osod, cofiwch amnewid fformiwlâu gyda gwerthoedd cyn eu rhannu.

   Cefn trosi - geiriau Saesneg yn rhifau

   A dweud y gwir , Ni allaf ddychmygu pam y gallai fod ei angen arnoch. Rhag ofn… :)

   Mae'n ymddangos bod Excel MVP, Jerry Latham, wedi creu swyddogaeth ddiffiniedig Excel User (UDF) fel WordsToDigits . Mae'n trosi geiriau Saesneg yn ôl i rif.

   Gallwch lawrlwytho llyfr gwaith Jerry's WordsToDigits i weld y cod UDF. Yma fe welwch hefyd ei enghreifftiau o sut i ddefnyddio'rswyddogaeth.

   Gallwch weld sut mae'r ffwythiant yn gweithio ar y ddalen " Cofnodion Sampl ", lle byddwch hefyd yn gallu rhoi eich enghreifftiau eich hun. Os ydych yn bwriadu defnyddio WordsToDigits yn eich dogfennau, a fyddech cystal â chael eich hysbysu bod cyfyngiadau ar y swyddogaeth hon. Er enghraifft, nid yw'n adnabod ffracsiynau a gofnodwyd mewn geiriau. Fe welwch yr holl fanylion ar y daflen " Gwybodaeth ". 3>