بۇ ماقالىدە سىزگە Excel 2019 ، 2016 ، 2013 ۋە باشقا نەشىرلىرىدىكى پۇل نومۇرىنى ئىنگلىزچە سۆزگە ئايلاندۇرۇشنىڭ تېز ھەم ھەقسىز ئىككى ئۇسۇلىنى كۆرسىتىپ ئۆتىمەن.

Microsoft Excel ناھايىتى ياخشى پروگرامما بۇنى ۋە بۇنى ھېسابلايدۇ. ئۇ دەسلەپتە چوڭ سانلىق مەلۇمات ئامبىرىنى بىر تەرەپ قىلىش ئۈچۈن ياسالغان. قانداقلا بولمىسۇن ، ئۇ يەنە تالون ، باھالاش ياكى كىرىم-چىقىم جەدۋىلىگە ئوخشاش بوغالتىرلىق خاتىرىسىنى تېز ۋە ئۈنۈملۈك قۇرالايدۇ. قولدا يېزىلغان سانلارغا قارىغاندا ، يېزىلغان سانلارنى يالغاندىن ياساش تېخىمۇ تەس. بەزى ئالدامچىلار 3000 دىن 8000 نى سىناپ باقسا بولىدۇ ، ھالبۇكى مەخپىي ھالدا «ئۈچ» نى «سەككىز» گە ئالماشتۇرۇش مۇمكىن ئەمەس. «يۈز يىگىرمە ئۈچ ، قىرىق بەش») ، ئەمما دوللار ۋە سىنتلارنى يېزىڭ (مەسىلەن 29.95 دوللار «يىگىرمە توققۇز دوللار ۋە توقسان توققۇز سىنت») ، GBP نىڭ فوندستېرلىڭ ۋە پېنسىيە پۇلى ، ياۋرو ۋە ياۋرو قاتارلىقلار.

Excel نىڭ ئەڭ يېڭى نەشرىدىمۇ ئىملا نومۇرى قاچىلانغان قورال يوق ، ئىلگىرىكى نەشرىنى دېمەيلا قويايلى. ئەمما ئۇ ۋاقىتتا Excel ھەقىقەتەن ياخشى بولغان ۋاقىت. سىز ئۇلارنىڭ بارلىق

بىرىكمىسى ، VBA ماكرولىرى ياكى ئۈچىنچى تەرەپ قوشۇمچە دېتاللىرىدىكى فورمۇلا ئارقىلىق ئۇنىڭ ئىقتىدارىنى ھەر ۋاقىت ياخشىلىيالايسىز.

تۆۋەندە ساننى ئۆزگەرتىشنىڭ ئىككى خىل ئۇسۇلىنى تاپالايسىز. سۆزلەرگە سانلار

بەلكىم ، سىز ئېھتىياجلىق بولۇشىڭىز مۇمكىنExcel دىكى سۆزلەرنى سانغا ئايلاندۇرۇش

ئەسكەرتىش. ئەگەر سىز نومۇرىنى تېكىستكە ئايلاندۇرۇش نى ئىزدەۋاتقان بولسىڭىز ، يەنى Excel نىڭ نومۇرىڭىزنى تېكىست سۈپىتىدە كۆرۈشىنى ئۈمىد قىلسىڭىز ، بۇ سەل ئوخشىمايدىغان ئىش. بۇنىڭ ئۈچۈن سىز Excel دىكى سانلارنى تېكىستكە قانداق ئۆزگەرتىشتە تەسۋىرلەنگەن TEXT ئىقتىدارىنى ياكى باشقا بىر قانچە خىل ئۇسۇلنى قوللانسىڭىز بولىدۇ. ، مىكروسوفت بۇ ۋەزىپە ئۈچۈن قورال قوشۇشنى خالىمىدى. قانداقلا بولمىسۇن ، ئۇلار قانچىلىك ئابونتنىڭ ئۇنىڭغا ئېھتىياجلىق ئىكەنلىكىنى كۆرۈپ ، تور بېكىتىدە ئالاھىدە VBA ماكرونى بارلىققا كەلتۈردى ۋە ئېلان قىلدى. ماكرو ئۇنىڭ ئىسمى SpellNumber كۆرسەتكەننى قىلىدۇ. مەن ئۇچراتقان باشقا ماكرولارنىڭ ھەممىسى مىكروسوفتنىڭ كودىنى ئاساس قىلغان.

سىز «ئىملا فورمۇلا» دەپ ئاتالغان ماكرونى تاپالايسىز. قانداقلا بولمىسۇن ، ئۇ بىر فورمۇلا ئەمەس ، بەلكى ماكرو ئىقتىدار ياكى تېخىمۇ ئېنىق قىلىپ ئېيتقاندا Excel ئىشلەتكۈچى بەلگىلىگەن ئىقتىدار (UDF).

ئىملا تاللانمىسى دوللار ۋە سېنت يازالايدۇ. ئەگەر سىز باشقا پۇلغا ئېھتىياجلىق بولسىڭىز ، ئىسمىڭىزنىڭ ئىسمى بىلەن " دوللار " ۋە " cent " نى ئۆزگەرتەلەيسىز.

ئەگەر سىز VBA ئەقىللىق يىگىت بولمىسىڭىز ، تۆۋەندە كودنىڭ كۆپەيتىلگەن نۇسخىسىنى تاپالايسىز. ئەگەر بۇنى رەتلەشنى خالىمىسىڭىز ياكى ۋاقتىڭىز بولمىسا ، بۇ ھەل قىلىش چارىسىنى ئىشلىتىڭ.

1. سانلارنى يېزىشقا ئېھتىياجلىق بولغان خىزمەت دەپتىرىنى ئېچىڭ. + F11 Visual Basic تەھرىرلىگۈچ كۆزنىكىنى ئاچىدۇ.
2. ئەگەر سىزدە بىر قانچە كىتاب ئېچىلغان بولسا ، لازىملىق خىزمەت دەپتىرىنىڭ ئاكتىپلانغانلىقىنى تەكشۈرۈڭ.تەھرىرلىگۈچنىڭ سول ئۈستى بۇرجىكىدىكى تۈرلەر تىزىملىكى (خىزمەت دەپتىرىدىكى ئېلېمېنتلارنىڭ بىرى كۆك رەڭ بىلەن گەۋدىلىنىدۇ).
3. تەھرىرلىگۈچ تىزىملىكىدە قىستۇر - & gt; بۆلەك .
4. سىزنىڭ كىتابىڭىز - Module1 دېگەن كۆزنەكنى كۆرۈشىڭىز كېرەك. تۆۋەندىكى رامكىدىكى بارلىق كودلارنى تاللاڭ ۋە بۇ كۆزنەككە چاپلاڭ.

   تاللاش ئېنىق 'ئاساسلىق ئىقتىدار فۇنكسىيەسى SpellNumber (ByVal MyNumber) دىم دوللار ، سىنت ، Temp Dim ئونلۇق ئورۇن ، سان ReDim ئورنى (9) تىزىلغان ئورۇن (2) = "مىڭ" ئورۇن (3) = "مىليون" ئورۇن (4) = "مىليارد" ئورۇن (5) = "تىرىليون" MyNumber = بېزەك (Str (MyNumber)) DecimalPlace = InStr (MyNumber, ".") ئەگەر DecimalPlace & gt; 0 ئاندىن Cents = GetTens (سول (Mid (MyNumber, DecimalPlace + 1) & amp; _ "00", 2)) MyNumber = بېزەك = GetH يۈزلەر (ئوڭ (MyNumber, 3)) ئەگەر Temp "" ئۇنداقتا دوللار = Temp & amp; ئورۇن (سان) & amp; دوللار ئەگەر Len (MyNumber) & gt; 3 ئاندىن MyNumber = سول (MyNumber, Len (MyNumber) - 3) Else MyNumber = "" ئاخىرلاشسا ھېسابلاش = ھېسابلاش + 1 ئايلانما دېلو دېلوسى دېلوسى "" دوللار = "دوللار يوق" دېلو "بىر" دوللار = "بىر دوللار" دېلو باشقا دوللار = دوللار & amp; "دوللار" ئاخىرقى تاللاش دېلوسىنى تاللاش دېلوسىنى تاللاڭ "" Cents = "ۋە" Cents "Case" One "Cents =" ۋە بىر Cent "Case Else Cents =" ۋە "& amp; Cents & amp; "Cents" End SpellNumber = دوللار & amp; Cents End فۇنكسىيەسى GetH يۈزلەر (ByVal MyNumber) Dim نەتىجىسى ئەگەر Val (MyNumber) = 0 بولسا چېكىنىش فۇنكسىيەسى MyNumber = ئوڭ ("000" & amp; MyNumber, 3) 'يۈزلىگەن جاينى ئۆزگەرتىڭ. ئەگەر Mid (MyNumber, 1, 1) "0" ئۇنداقتا نەتىجە = GetDigit (Mid (MyNumber, 1, 1)) & amp; «يۈز» ئاخىرلاشسا «ئونلار ۋە ئورۇنلارنى ئايلاندۇرۇڭ. ئەگەر Mid (MyNumber, 2, 1) "0" ئۇنداقتا نەتىجە = نەتىجە & amp; GetTens (Mid (MyNumber, 2)) باشقا نەتىجە = نەتىجە & amp; GetDigit (Mid (MyNumber, 3)) ئاخىرلاشسا GetH يۈزلەر = نەتىجىنىڭ ئاخىرقى ئىقتىدار فۇنكسىيەسى GetTens (TensText) Dim نەتىجىسى تىزما نەتىجىسى = "" 'ۋاقىتلىق ئىقتىدار قىممىتىنى بىكار قىلىڭ. ئەگەر Val (سول (TensText, 1)) = 1 ئۇنداقتا 'ئەگەر 10-19 ئارىلىقىدىكى قىممەت بولسا Case Case Val (TensText) نى تاللاڭ 10: نەتىجە = "ئون" دېلو 11: نەتىجە = "ئون بىر" دېلو 12: نەتىجە = "ئون ئىككى «13-دېلو: نەتىجە =« 13 »دېلو 14: نەتىجە =« ئون تۆت »دېلو 15: نەتىجە =« ئون بەش »دېلو 16: نەتىجە =« ئون ئالتە »دېلو 17: نەتىجە =« ئون يەتتە »دېلو 18: نەتىجە =« ئون سەككىز »دېلو 19. نەتىجە = "قىرىق" دېلو 5: نەتىجە = "ئەللىك" 6-دېلو: نەتىجە = "ئاتمىش" دېلو 7: نەتىجە = "يەتمىش" دېلو 8: نەتىجە = "سەككىزىنچى" دېلو 9: نەتىجە = "توقسان" دېلو باشقا تاللاش نەتىجىسى. = نەتىجە & amp; GetDigit _ (ئوڭ (TensText, 1)) 'ئورۇننى ئېلىڭ. ئەگەر GetTens = نەتىجىنىڭ ئاخىرقى ئىقتىدار ئىقتىدارى GetDigit (رەقەم) نى تاللاڭVal (Digit) دېلو 1: GetDigit = "بىر" دېلو 2: GetDigit = "ئىككى" دېلو 3: GetDigit = "ئۈچ" دېلو 4: GetDigit = "تۆت" دېلو 5: GetDigit = "بەش" دېلو 6: GetDigit = " ئالتە "دېلو 7: GetDigit =" يەتتە "دېلو 8: GetDigit =" سەككىز "دېلو 9: GetDigit =" توققۇز "دېلو باشقىلىرى: GetDigit =" "ئاخىرقى تاللاش ئاخىرقى ئىقتىدار

5. Ctrl + S نى بېسىڭ يېڭىلانغان خىزمەت دەپتىرىنى ساقلاش.

   خىزمەت دەپتىرىڭىزنى قايتا ساقلىشىڭىز كېرەك. خىزمەت دەپتىرىنى ماكرو ئارقىلىق ساقلىماقچى بولسىڭىز ، « تۆۋەندىكى ئىقتىدارلارنى ماكروسىز خىزمەت دەپتىرىدە ساقلىغىلى بولمايدۇ »

   

   ياق. يېڭى دىئالوگ ، «ساقلاش» نى تاللىدى. « تىپى سۈپىتىدە ساقلاش « تاللاشنى تاللاڭ » Excel ماكرو قوزغىتىلغان خىزمەت دەپتىرى ».

   

SpellNumber ماكرونى ئىشلىتىڭ. خىزمەت جەدۋىلىڭىز

ھازىر Excel ھۆججىتىڭىزدە SpellNumber ئىقتىدارىنى ئىشلىتەلەيسىز. =SpellNumber(A2) نى كاتەكچىگە كىرگۈزۈڭ ، بۇ يەردە سۆز بىلەن يېزىلغان ساننى ئېلىشىڭىز كېرەك. بۇ يەردە A2 سان ياكى سان بىلەن كاتەكچىنىڭ ئادرېسى.

بۇ يەردە نەتىجىنى كۆرەلەيسىز:

Voila!

SpellNumber ئىقتىدارىنى تېزلىكتە باشقا ھۈجەيرىلەرگە كۆچۈرۈڭ.

ئەگەر سىز جەدۋەلنى پەقەت 1 كاتەكچىگە ئايلاندۇرۇپ ، چاشقىنەك نۇر بەلگىسىنى فورمۇلا بىلەن كاتەكچىنىڭ ئوڭ ئوڭ بۇلۇڭىغا قويۇڭ ، ئۇ كىچىك قارا كرېستكە ئايلانغۇچە:

سول تەرەپنى چېكىپ سۆرەپ كىرىڭ فورمۇلانى تولدۇرىدىغان ئىستون. نەتىجىنى كۆرۈش ئۈچۈن كۇنۇپكىنى قويۇپ بېرىڭ:

ئەسكەرتىش. كەچۈرۈڭئېسىڭىزدە تۇتۇڭ ، ئەگەر SpellNumber نى باشقا كاتەكچىگە ئۇلانسىڭىز ئىشلەتسىڭىز ، ھەر قېتىم ئەسلى كاتەكچىدىكى سان ئۆزگەرتىلگەندە يېزىلغان سومما يېڭىلىنىدۇ.

سىز بۇ ساننى بىۋاسىتە ئىقتىدارغا كىرگۈزەلەيسىز ، چۈنكى مەسىلەن ، =SpellNumber(29.95) (29.95 - تىرناق بەلگىسى ۋە دوللار بەلگىسى يوق). ئېھتىياج. ئۇنى ئۆزگەرتىشنى پىلانلىغان ھەر بىر خىزمەت دەپتىرىنىڭ كودىنى چاپلاش كېرەك. بولمىسا ، سىز ماكرو بىلەن قېلىپ ھۆججىتى قۇرۇپ ، Excel نى ھەر بىر باشلىنىشتا بۇ ھۆججەتنى يۈكلىشىڭىز كېرەك.

ماكرو ئىشلىتىشنىڭ ئاساسلىق كەمچىلىكى خىزمەت دەپتىرىنى باشقىلارغا ئەۋەتسىڭىز ، بۇ ئادەم ئۇنداق قىلمايدۇ ئەگەر ماكرو خىزمەت دەپتىرىگە قۇرۇلمىسا ، تېكىستنى كۆرۈڭ. ئۇنىڭ ئىچىگە ئورۇنلاشتۇرۇلغان تەقدىردىمۇ ، ئۇلار خىزمەت دەپتىرىدە ماكرو بارلىقى توغرىسىدا ئاگاھلاندۇرۇش بېرىدۇ.

ئالاھىدە قوشۇش ئارقىلىق رەقەملەرنى سۆزگە يېزىڭ

تېز سۈرئەتتە ئىملا يېزىشقا ئېھتىياجلىق ، ئەمما VBA ئۆگىنىشكە ياكى خىزمەت ۋاقتىنى تېپىشقا ئۈلگۈرمەيدىغان Excel ئىشلەتكۈچىلىرى ئۈچۈن بىز ئالاھىدە قورال قۇردۇق. ئۇ بىر قانچە ئاممىباب پۇلغا مىقداردىن سۆزگە ئايلىنىشنى تېز ئىجرا قىلالايدۇ. Excel ئۈچۈن Ultimate Suite نىڭ ئەڭ يېڭى تارقىتىلىشى بىلەن ئىملا نومۇرىنى قوشۇڭ.

ئىشلىتىشكە تەييارلانغاندىن باشقا ، قورالنى تېكىستكە ئايلاندۇرۇشتا ھەقىقەتەن جانلىق:

• سىز بۇنىڭ بىرىنى تاللىيالايسىزتۆۋەندىكى پۇللار: USD ، EUR ، GBP ، BIT ، AUD. ، ماۋزۇ دېلوسى ياكى جۈملە دېلوسى.
• ئونلۇق قىسمىنى ئوخشىمىغان ئۇسۇللار بىلەن يېزىڭ. Excel 365 ، Excel 2029 ، Excel 2016 ، Excel 2013 ۋە Excel 2010 قاتارلىق نۇسخىلىرى بار. يۇقىرىدا ئۇلانغان مەھسۇلاتنىڭ باش بېتىدىكى باشقا ئىقتىدارلارنى تەكشۈرۈپ بېقىڭ. :

1. نەتىجىگە ئېرىشىش ئۈچۈن بوش كاتەكچىنى تاللاڭ. ئىملا نومۇرى .
2. كۆرۈنگەن تۆكۈلۈش نومۇرى سۆزلىشىش كۆزنىكىدە ، تۆۋەندىكى ئىشلارنى تەڭشەڭ: ، تېكىست سۈپىتىدە يازماقچى بولغان مىقدارنى ئۆز ئىچىگە ئالغان كاتەكچىنى تاللاڭ. ساننىڭ قىسمى يېزىلىشى كېرەك.
3. نۆل سېنتنى ئۆز ئىچىگە ئېلىش ياكى قوشماسلىقنى بەلگىلەڭ.
4. سۆزلىشىش كۆزنىكىنىڭ ئاستىدا ، ئالدىن كۆرۈش نەتىجىنى. ئەگەر نومۇرىڭىزنىڭ يېزىلىشىدىن خۇشال بولسىڭىز ، ئىملا نى بېسىڭ. بولمىسا ، ئوخشىمىغان تەڭشەكلەرنى سىناپ بېقىڭ.

تۆۋەندىكى ئېكران سۈرىتى سۈكۈتنى كۆرسىتىدۇتاللاش ۋە B2 دىكى ئىملا نومۇرى. فورمۇلا ستونىدىكى فورمۇلاغا (تېخىمۇ ئېنىق قىلىپ ئېيتقاندا ، ئىشلەتكۈچى بەلگىلىگەن ئىقتىدارغا) دىققەت قىلىڭ:

ھەمدە بۇ باشقا پۇللارنىڭ قانداق يېزىلىدىغانلىقىنى تېز كۆرسىتىپ بېرىدۇ:

كۆرسەتمە ۋە ئىزاھات:

سىز Jerry نىڭ WordsToDigits خىزمەت دەپتىرىنى چۈشۈرۈپ UDF كودىنى كۆرەلەيسىز. بۇ يەردىن ئۇنىڭ قانداق ئىشلىتىش توغرىسىدىكى مىساللىرىنى تاپالايسىزfunction.

« ئۈلگە تۈرلىرى » جەدۋىلىدە بۇ ئىقتىدارنىڭ قانداق ئىشلەيدىغانلىقىنى كۆرەلەيسىز ، بۇ يەردە سىز ئۆزىڭىزنىڭ مىساللىرىنىمۇ كىرەلەيسىز. ئەگەر ھۆججەتلىرىڭىزدە WordsToDigits نى ئىشلىتىشنى ئويلىسىڭىز ، بۇ ئىقتىدارنىڭ چەكلىمىسى بارلىقىنى ئۇقتۇرۇڭ. مەسىلەن ، ئۇ سۆزگە كىرگۈزۈلگەن بۆلەكلەرنى ئېتىراپ قىلمايدۇ. بارلىق تەپسىلاتلارنى « ئۇچۇر » جەدۋىلىدىن تاپالايسىز.