Энэ нийтлэлд би Excel 2019, 2016, 2013 болон бусад хувилбарууд дээр валютын тоог англи үг болгон хөрвүүлэх хурдан бөгөөд үнэ төлбөргүй хоёр аргыг танд үзүүлэх болно.

Microsoft Excel бол гайхалтай програм юм. энэ тэрийг тооцоолох програм. Энэ нь анх том өгөгдлийн массивыг боловсруулахад зориулагдсан. Гэсэн хэдий ч энэ нь нэхэмжлэх, үнэлгээ, тайлан баланс гэх мэт нягтлан бодох бүртгэлийн бүртгэлийг хурдан бөгөөд үр дүнтэй гаргах боломжийг олгодог.

Их бага хэмжээний төлбөрийн баримт бичигт тоон утгыг үгийн хэлбэрээр хуулбарлах шаардлагатай байдаг. Бичсэн тоонуудыг гараар бичсэнээс хавьгүй хэцүү. Зарим луйварчин 3000-аас 8000 болгох гэж оролддог бол "гурав"-ыг "найм"-аар нууцаар солих нь бараг боломжгүй юм.

Тиймээс танд зөвхөн Excel-д тоог үг болгон хувиргах биш (жишээ нь: 123.45 "нэг зуун хорин гурав, дөчин тав"), гэхдээ доллар, цент (жишээ нь: 29.95 долларыг "хорин есөн доллар ерэн есөн цент" гэж), фунт, пенсийг GBP, евро болон евроцентээр евро гэх мэтээр бичнэ.

Excel-ийн хамгийн сүүлийн хувилбаруудад ч гэсэн өмнөх хувилбаруудыг дурдахад тоон үсгийн зөв бичих хэрэгсэл байдаггүй. Гэхдээ тэр үед Excel үнэхээр сайн байдаг. Та тэдгээрийн бүх

нийлбэр, VBA макро эсвэл гуравдагч талын нэмэлтүүд дэх томьёо ашиглан түүний функцийг үргэлж сайжруулах боломжтой.

Доор та тоонуудыг хөрвүүлэх хоёр аргыг олох болно. тоонуудыг үг болгон хувиргах

Мөн магадгүй танд хэрэгтэй байж магадгүйExcel дээр үгийг тоо болгон хөрвүүлэх

Тайлбар. Хэрэв та тоо текст рүү хөрвүүлэх -г хайж байгаа бол Excel таны дугаарыг текст хэлбэрээр харагдуулахыг хүсэж байгаа бол энэ нь арай өөр зүйл юм. Үүний тулд та TEXT функц эсвэл Excel дээрх тоог хэрхэн текст болгон өөрчлөх талаар тайлбарласан өөр хэд хэдэн аргыг ашиглаж болно.

Тоонуудыг үг болгон хувиргах SpellNumber VBA макро

Миний өмнө дурдсанчлан , Майкрософт энэ даалгаварт хэрэгсэл нэмэхийг хүсээгүй. Гэсэн хэдий ч, тэд хичнээн хэрэглэгчдэд хэрэгтэй байгааг хараад тэд тусгай VBA макро үүсгэж, вэбсайтдаа нийтэлсэн. Макро нь SpellNumber нэрээр нь хэлж өгдөг. Миний тааралдсан бусад бүх макронууд нь Microsoft-ын код дээр үндэслэсэн болно.

Та "sellnumber formula" гэж дурдсан макро олж болно. Гэхдээ энэ нь томьёо биш, харин макро функц юм, эсвэл илүү нарийвчлалтай Excel-ийн хэрэглэгчийн тодорхойлсон функц (UDF).

Үсгийн дугаар сонголт нь доллар, цент бичих чадвартай. Хэрэв танд өөр валют хэрэгтэй бол " доллар " болон " цент "-г өөрийн нэрээр сольж болно.

Хэрэв та VBA-г сайн мэддэг хүн биш бол , доороос та кодын хуулбарыг олох болно. Хэрэв та үүнийг цэгцлэхийг хүсэхгүй байгаа эсвэл завгүй хэвээр байгаа бол энэ шийдлийг ашиглана уу.

1. Тоонуудыг зөв бичих шаардлагатай ажлын номыг нээнэ үү.
2. Alt товчийг дарна уу. Visual Basic засварлагчийн цонхыг нээхийн тулд +F11.
3. Хэрэв танд хэд хэдэн ном нээсэн бол шаардлагатай ажлын дэвтэр идэвхтэй байгаа эсэхийг шалгана уу.засварлагчийн зүүн дээд буланд байгаа төслүүдийн жагсаалт (ажлын номын аль нэг элементийг цэнхэр өнгөөр ​​тодруулсан).
4. Засварлагч цэснээс Оруулах -> Модуль руу очно уу. .
5. Та YourBook - Module1 нэртэй цонхыг харах ёстой. Доорх хүрээн дэх бүх кодыг сонгоод энэ цонхонд буулгана уу.

   Сонголт тодорхой 'Үндсэн функц функц SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim Decimal Place, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million" Газар(4) = " Тэрбум " Газар(5) = " Их наяд " MyNumber = Тайрах(Str(MyNumber)) Аравтын орон = InStr(MyNumber, "." ) Хэрэв Аравтын орон > 0 Дараа нь Cents = GetTens(Зүүн(Дунд(Миний тоо, Аравтын орон + 1) & _ "00" , 2)) MyNumber = Таслах(Зүүн(MyNumber, Аравтын орон - 1)) Төгсгөл тоо = 1 MyNumber "" Temp үед хийх = GetHundreds(Баруун(MyNumber, 3)) Хэрэв Temp "" Дараа нь доллар = Temp & Газар(тоо) & AMP; доллар бол Len(MyNumber) > 3 Дараа нь MyNumber = Left(MyNumber, Len(MyNumber) - 3) Бусад MyNumber = "" End If Count = Count + 1 Loop Сонгох Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else доллар = доллар & AMP; " Dollars " End Select Case Cents Case "" Cents = " and No Cents " Case "One" Cents = " and One Cent " Case Else Cents = " болон " & AMP; цент & AMP; "Цент" Төгсгөл сонгох SpellNumber = доллар & AMP; Cents End Function GetHundreds(ByVal MyNumber) Хэрэв Val(MyNumber) = 0 бол үр дүн бүдгэрнэ, MyNumber = Right ("000" & Amp; MyNumber, 3) функцээс гарна ' Зуутын байрыг хөрвүүлнэ. Хэрэв Дунд(MyNumber, 1, 1) "0" бол Үр дүн = GetDigit(Mid(MyNumber, 1, 1)) & " Зуун " Төгсгөл ' Арав ба нэгийн оронг хөрвүүлнэ. Хэрэв Дунд(MyNumber, 2, 1) "0" бол Үр дүн = Үр дүн & AMP; GetTens(Дунд(MyNumber, 2)) Бусад үр дүн = Үр дүн & AMP; GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Үр дүн Төгсгөл Функц Функц GetTens(TensText) Dim Үр дүн мөрийн үр дүн = "" ' Түр зуурын функцийн утгыг хасна. Хэрэв Val(Left(TensText, 1)) = 1 Дараа нь ' Хэрэв утга 10-19 хооронд байвал... Val(TensText) Тохиолдол 10-ыг сонгоно уу: Үр дүн = "Арван" Тохиолдол 11: Үр дүн = "Арван нэгэн" Тохиолдол 12: Үр дүн = "Арван хоёр " Тохиолдол 13: Үр дүн = "Арван гурав" Тохиолдол 14: Үр дүн = "Арван дөрөв" Тохиолдол 15: Үр дүн = "Арван тав" Тохиолдол 16: Үр дүн = "Арван зургаа" Тохиолдол 17: Үр дүн = "Арван долоо" Тохиолдол 18: Үр дүн = "Арван найман" Тохиолдол 19: Үр дүн = "Арван есөн" Тохиолдол 20-99 хооронд байвал өөрөөр сонгоно уу... Тохиолдол Val(Зүүн(TensText, 1)) Тохиолдол 2: Үр дүн = "Хорин" Тохиолдол 3: Үр дүн = "Гучин" Тохиолдол 4: Үр дүн = "Дөчин" Тохиолдол 5: Үр дүн = "Тавин" Тохиолдол 6: Үр дүн = "Жаран" Тохиолдол 7: Үр дүн = "Далан" Тохиолдол 8: Үр дүн = "Наян" Тохиолдол 9: Үр дүн = "Ерэн" Тохиолдол Өөрөөр дуусна Үр дүнг сонгох = Үр дүн & AMP; GetDigit _ (Баруун(TensText, 1)) ' Нэгийн байршлыг татаж авна уу. Төгсгөл бол GetTens = Үр дүн Төгсгөлийн функц функц GetDigit(Digit) Тохиолдол сонгоно ууVal(Digit) Тохиолдол 1: GetDigit = "Нэг" Тохиолдол 2: GetDigit = "Хоёр" Тохиолдол 3: GetDigit = "Гурван" Тохиолдол 4: GetDigit = "Дөрөв" Тохиолдол 5: GetDigit = "Таван" Тохиолдол 6: GetDigit = " Зургаан" Тохиолдол 7: GetDigit = "Долоон" Тохиолдол 8: GetDigit = "Найман" Тохиолдол 9: GetDigit = "Есөн" Тохиолдол : GetDigit = "" Төгсгөл сонгох төгсгөлийн функц

6. Ctrl+S дарна уу. шинэчлэгдсэн ажлын номыг хадгалах.

   Та ажлын дэвтэрээ дахин хадгалах шаардлагатай. Та ажлын дэвтрийг макро ашиглан хадгалахыг оролдох үед " Дараах функцуудыг макрогүй ажлын дэвтэрт хадгалах боломжгүй " гэсэн мессеж гарч ирнэ.

   

   Үгүй дээр дарна уу. шинэ харилцах цонхонд Save as сонголтыг сонгоно. " Төрөл болгон хадгалах " талбараас " Excel-ийн макро идэвхжүүлсэн ажлын ном " сонголтыг сонгоно уу.

   

SpellNumber макрог ашиглах таны ажлын хуудас

Одоо та Excel-ийн баримт бичигт SpellNumber функцийг ашиглаж болно. Үгээр бичигдсэн тоог авах шаардлагатай нүдэнд =SpellNumber(A2) -г оруулна уу. Энд A2 нь тоо эсвэл дүн бүхий нүдний хаяг юм.

Та үр дүнг эндээс харж болно:

Voila!

SpellNumber функцийг бусад нүднүүдэд хурдан хуулна уу.

Хэрэв та Зөвхөн нэг нүд биш хүснэгтийг бүхэлд нь хөрвүүлэх шаардлагатай тул хулганы курсорыг нүдний баруун доод буланд томьёогоор байрлуулж жижиг хар загалмай болгон хувиргана:

Хулганы зүүн товчийг дараад нүдэн дээр чирнэ үү. баганад томьёог бөглөнө үү. Үр дүнг харахын тулд товчлуурыг суллана уу:

Тайлбар. ГуйяХэрэв та SpellNumber-г өөр нүд рүү холбосон холбоосоор ашиглавал эх нүдэн дэх тоо өөрчлөгдөх бүрт бичсэн нийлбэр шинэчлэгдэх болно гэдгийг санаарай.

Мөн та функцэд дугаарыг шууд оруулж болно. жишээ нь, =SpellNumber(29.95) (29.95 - хашилт болон Долларын тэмдэггүй).

Excel дээр тоо бичихийн тулд макро ашиглахын сул тал

Юуны өмнө та кодыг өөрийн хүссэнээр өөрчлөхийн тулд VBA-г мэддэг байх ёстой. хэрэгцээ. Өөрчлөхөөр төлөвлөж буй ажлын ном бүрийн кодыг оруулах шаардлагатай. Үгүй бол та макро бүхий загвар файл үүсгэж, энэ файлыг эхлүүлэх бүртээ Excel-ийг тохируулах шаардлагатай болно.

Макро ашиглахын гол сул тал бол хэрэв та ажлын номыг өөр хүнд илгээх юм бол энэ хүн үүнийг хийхгүй. Ажлын дэвтэрт макро суулгаагүй бол текстийг үзнэ үү. Хэдийгээр энэ нь суурилагдсан байсан ч ажлын дэвтэрт макро байгаа гэсэн анхааруулга авах болно.

Тусгай нэмэлт ашиглан тоонуудыг үгээр бичих

Нийтлэлийг хурдан бичих шаардлагатай ч VBA-г сурах эсвэл шийдвэрлэх арга замыг олох цаг байхгүй Excel-ийн хэрэглэгчдэд зориулж бид тусгай хэрэгсэл бүтээсэн. Энэ нь цөөн хэдэн алдартай валютуудын дүнг үг рүү хөрвүүлэх ажлыг хурдан гүйцэтгэх боломжтой. Excel-д зориулсан Ultimate Suite-н хамгийн сүүлийн хувилбарт орсон Spell Number нэмэлттэй танилцана уу.

Хэрэглэхэд бэлэн байхаас гадна уг хэрэгсэл нь хэмжээг текст болгон хөрвүүлэхэд үнэхээр уян хатан байдаг:

• Та дараахаас аль нэгийг нь сонгож болно.дараах валютууд: USD, EUR, GBP, BIT, AUD.
• Бутархай хэсгийг цент, пенни эсвэл битцентээр бичнэ үү.
• Үр дүнгийн хувьд ямар ч том том том үсгийг сонгоно уу: жижиг үсгээр, ТОМ ТОГТООМЖ , Гарчиг эсвэл Өгүүлбэрийн том жижиг үсэг.
• Аравтын бутархайг өөр өөр аргаар бичнэ үү.
• Тэг цент оруулах эсвэл хасах.

Нэмэлт нь орчин үеийн бүх тоог дэмждэг. Excel 365, Excel 2029, Excel 2016, Excel 2013, Excel 2010 зэрэг хувилбарууд. Дээрх линкээр орсон бүтээгдэхүүний нүүр хуудаснаас бусад боломжуудтай танилцана уу.

Одоо энэ тооны зөв бичих хэрэгслийг хэрхэн ажиллаж байгааг харцгаая. :

1. Үр дүнгийн хувьд хоосон нүдийг сонгоно уу.
2. Ablebits табын Utilities бүлэг дэх дээр товшино уу. Үсгийн дугаар .
3. Харагдах Ассан тоо харилцах цонхонд дараах зүйлсийг тохируулна уу:
   • Дугаараа сонгоно уу талбарт , текст болгон бичихийг хүсэж байгаа нүдээ сонгоно уу.
   • Хүссэн одоогоор , үсгийн том жижиг болон аравтын тоог зааж өгнө үү. тооны хэсгийг зөв бичих ёстой.
   • Тэг цент оруулах эсэхээ тодорхойл.
   • Үр дүнг утга эсвэл томьёо болгон оруулахыг сонгоно уу.
4. Харилцах цонхны доод хэсэгт үр дүнг урьдчилан харах . Хэрэв та дугаараа бичсэнд сэтгэл хангалуун байвал Үсгийн үсэг дээр дарна уу. Үгүй бол өөр тохиргоо хийж үзнэ үү.

Доорх дэлгэцийн агшинд анхдагч тохиргоог харуулж байнасонголтууд болон B2 үсгийн тоо. Томъёоны мөрөнд байгаа томьёог (илүү нарийвчлалтай, хэрэглэгчийн тодорхойлсон функц) анхаарна уу:

Мөн энэ нь бусад валютыг хэрхэн зөв бичихийг хурдан харуулсан жишээ юм:

Зөвлөмж ба тэмдэглэл:

• Үсгийн дугаар нэмэлт нь нэхэмжлэх болон бусад санхүүгийн баримт зэрэг бодит хэрэглээний тохиолдлуудыг зохицуулахад зориулагдсан тул зөвхөн нэг тоог <6 хөрвүүлэх боломжтой>нэг удаад.
• тооны баганыг зөв бичихийн тулд эхний нүдэнд томьёо оруулаад дараа нь томьёог доош хуулна.
• Хэрэв ийм боломж байгаа бол. Таны эх өгөгдөл ирээдүйд өөрчлөгдөж магадгүй тул үр дүнг томъёогоор оруулах нь хамгийн сайн арга бөгөөд анхны дугаар өөрчлөгдөхөд автоматаар шинэчлэгдэх болно.
• үр дүнг томьёо болгон сонгохдоо сонголт, захиалгат хэрэглэгчийн тодорхойлсон функц (UDF)-г оруулсан байна. Хэрэв та ажлын дэвтрээ Ultimate Suite суулгаагүй хүнтэй хуваалцахаар төлөвлөж байгаа бол хуваалцахаасаа өмнө томьёог утгуудаар солихоо мартуузай.

Урвуу хөрвүүлэлт - Англи үгийг тоо болгон хувиргах

Үнэнийг хэлэхэд , Танд яагаад хэрэгтэй байгааг би төсөөлж ч чадахгүй байна. Зүгээр л... :)

Excel MVP, Жерри Латхэм WordsToDigits шиг Excel хэрэглэгчийн тодорхойлсон функцийг (UDF) бүтээсэн бололтой. Энэ нь англи үгийг дахин тоо руу хөрвүүлдэг.

Та Jerry's WordsToDigits ажлын номыг татаж авч UDF кодыг харах боломжтой. Эндээс та түүний хэрхэн ашиглах жишээг олох болнофункц.

Та функц хэрхэн ажилладагийг " Жижийн бичилтүүд " хуудаснаас харж болно, энд мөн өөрийн жишээнүүдийг оруулах боломжтой. Хэрэв та WordsToDigits-ийг баримт бичигтээ ашиглахаар төлөвлөж байгаа бол энэ функцэд хязгаарлалт байгаа гэдгийг мэдэгдэнэ үү. Жишээлбэл, үгэнд орсон бутархайг танихгүй. Та бүх мэдээллийг " Мэдээлэл " хуудаснаас олох болно.