په دې مقاله کې به زه تاسو ته د اسعارو شمیرې په Excel 2019, 2016, 2013 او نورو نسخو کې د انګلیسي کلمو بدلولو لپاره دوه ګړندۍ او وړیا لارې وښیم.

د مایکروسافټ ایکسل خورا ښه دی د دې او هغه د محاسبې لپاره پروګرام. دا په پیل کې د لوی ډیټا صفونو پروسس کولو لپاره رامینځته شوی و. په هرصورت، دا د حساب ورکولو ریکارډونه لکه رسیدونه، ارزونه یا بیلانس پاڼې په چټکه او اغیزمنه توګه رامینځته کوي.

په ډیرو یا لږو قوي تادیاتو اسنادو کې دا اړینه ده چې شمیرې ارزښتونه د دوی د کلمې بڼه سره نقل کړي. د ټایپ شوي شمیرو غلطول د لاس په واسطه لیکل شوي په پرتله خورا سخت دي. ځینې ​​غله کولی شي هڅه وکړي چې له 3000 څخه 8000 جوړ کړي، پداسې حال کې چې دا تقریبا ناشونی دی چې په پټه توګه "درې" د "اتو" سره بدل کړئ.

نو هغه څه چې تاسو ورته اړتیا لرئ یوازې په Excel کې د کلمو شمیرې بدلولو ته اړتیا نلري (د مثال په توګه 123.45 ته. "یو سل او دوه ویشت، پنځه څلویښت")، مګر ډالر او سینټ ولیکئ (د مثال په توګه $29.95 د "نهه ویشت ډالر او نهه نوي سینټ")، پونډ او پینس د GBP لپاره، یورو او یورو سینټ د یورو لپاره، او داسې نور.

حتی د Excel وروستۍ نسخې د املا شمیرو لپاره جوړ شوی وسیله نلري، نه د پخوانیو نسخو یادونه. مګر دا هغه وخت دی کله چې ایکسل واقعیا ښه وي. تاسو کولی شئ تل د دې ټولو

ترکیبونو ، VBA میکروز ، یا دریمې ډلې اضافو کې د فورمولونو په کارولو سره د دې فعالیت ښه کولی شئ. د کلمو ارقام

او، احتمالا، تاسو اړتیا لرئپه Excel

نوټ کې ټکي شمیرو ته بدل کړئ. که تاسو د متن تبادلې ته شمیره په لټه کې یاست ، پدې معنی چې تاسو غواړئ Excel ستاسو شمیره د متن په توګه وګورئ، دا یو څه توپیر لري. د دې لپاره، تاسو کولی شئ د TEXT فنکشن یا یو څو نورې لارې وکاروئ چې په Excel کې متن ته د شمیرو بدلولو څرنګوالی کې تشریح شوي.

SpellNumber VBA میکرو ترڅو شمیرې په کلمو بدل کړي

لکه څنګه چې ما مخکې وویل ، مایکروسافټ نه غوښتل د دې کار لپاره وسیله اضافه کړي. په هرصورت، کله چې دوی ولیدل چې څومره کاروونکي ورته اړتیا لري، دوی په خپل ویب پاڼه کې ځانګړي VBA میکرو رامینځته او خپاره کړل. میکرو هغه څه کوي چې د هغې نوم SpellNumber وړاندیز کوي. نور ټول میکرو چې ما ولیدل د مایکروسافټ کوډ پراساس دي.

تاسو کولی شئ هغه میکرو ومومئ چې د "سپیل نمبر فارمول" په توګه یاد شوي. په هرصورت، دا یو فارمول نه دی، مګر یو میکرو فنکشن دی، یا ډیر دقیق وي د ایکسل کارن تعریف شوی فنکشن (UDF).

د سپیل نمبر اختیار د ډالرو او سینټونو لیکلو توان لري. که تاسو مختلف اسعارو ته اړتیا لرئ، تاسو کولی شئ د خپل نوم سره " ډالر " او " سینټ " بدل کړئ.

که تاسو د VBA پوه سړی نه یاست ، لاندې به تاسو د کوډ یوه کاپي ومومئ. که تاسو اوس هم نه غواړئ یا وخت نه لرئ چې دا حل کړئ، مهرباني وکړئ دا حل وکاروئ.

1. د کار کتاب خلاص کړئ چیرې چې تاسو د شمیرو املا کولو ته اړتیا لرئ.
12> Alt فشار ورکړئ +F11 د بصری اساسی مدیر کړکۍ خلاصولو لپاره.
2. که تاسو څو کتابونه خلاص کړی وي، وګورئ چې د اړتیا وړ کاري کتاب په کارولو سره فعال دی.د ایډیټر په پورتنۍ ښي کونج کې د پروژو لیست (د کار کتاب یو له عناصرو څخه یو په نیلي سره روښانه شوی)
12>د مدیر مینو کې داخل کړئ -> موډل ته لاړ شئ
3. تاسو باید د YourBook - Module1 په نوم یوه کړکۍ وګورئ. لاندې چوکاټ کې ټول کوډ غوره کړئ او دې کړکۍ ته یې پیسټ کړئ.

   اختیار واضح 'د مین فنکشن فنکشن سپیل نمبر( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place (9) د سټینګ ځای په توګه (2) = "زره" ځای (3) = "میلیون" ځای(4) = "میلیون" ځای(5) = "ټریلیون" MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ".") که DecimalPlace > 0 بیا Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) پای که شمیره = 1 ترسره کړئ پداسې حال کې چې MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) که Temp "" نو ډالر = Temp & ځای (شمیره) & ډالر که Len(MyNumber) > 3 بیا MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" پای که شمیره = شمیره + 1 لوپ د قضیې ډالر قضیه وټاکئ "" ډالر = "هیڅ ډالر" قضیه "یو" ډالر = "یو ډالر" قضیه نور ډالر = ډالر او amp; "ډالر" پای وټاکئ د قضیې سینټ کیس غوره کړئ "" سینټ = "او نه سینټ" قضیه "یو" سینټ = "او یو سینټ" قضیه بل سینټ = "او" & سینټ & "سینټ" پای د SpellNumber = ډالر او amp; د سینټ پای فنکشن فنکشن GetHundreds(ByVal MyNumber) د سټرینګ په توګه کمه پایله که Val(MyNumber) = 0 نو بیا Exit Function MyNumber = Right("000" & MyNumber, 3) ' د سلګونو ځای بدل کړئ. که Mid(MyNumber, 1, 1) "0" نو بیا پایله = GetDigit(Mid(MyNumber, 1, 1)) & "سل" پای که د لسونو او یو ځای بدل کړئ. که منځنی (MyNumber, 2, 1) "0" نو بیا پایله = پایله & GetTens(Mid(MyNumber, 2)) بله پایله = پایله & GetDigit(Mid(MyNumber, 3)) End که GetHundreds = پایله پای فنکشن فنکشن GetTens(TensText) ډیم پایلې د سټینګ پایلې په توګه = "" ' د لنډمهاله فعالیت ارزښت له منځه یوسي. که Val(Left(TensText, 1)) = 1 بیا ' که ارزښت د 10-19 تر منځ وي… د Case Val(TensText) Case 10 وټاکئ: پایله = "لس" قضیه 11: پایله = "یوولس" قضیه 12: پایله = "دوولس" قضيه 13: نتيجه = "ديارلس" قضيه 14: نتيجه = "څلورلس" قضيه 15: نتيجه = "پنځلس" قضيه 16: نتيجه = "شپږم" قضيه 17: پايله = "اوولس" قضيه 18: نتيجه = "اتلس" قضيه 19: پایله = "نولس" قضیه بله پای ته ورسوئ ' که ارزښت د 20-99 ترمنځ وي… د قضیې Val(Left(TensText, 1)) قضیه 2: پایله = "۲۰" قضیه 3: پایله = "دیرش" قضیه 4: پایله = "څلویښت" قضیه 5: پایله = "پنځوس" قضیه 6: پایله = "شپیته" قضیه 7: پایله = "اویا" قضیه 8: پایله = "اته" قضیه 9: پایله = "نوي" قضیه بله پای پایله غوره کړئ = پایله & 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 = "" د پای فنکشن انتخاب پای

4. Ctrl+S فشار ورکړئ د تازه شوي کاري کتاب خوندي کولو لپاره.

   تاسو به خپل کاري کتاب بیا خوندي کولو ته اړتیا ولرئ. کله چې تاسو د میکرو سره د کاري کتاب خوندي کولو هڅه کوئ نو تاسو به پیغام ترلاسه کړئ " لاندې ځانګړتیاوې د میکرو څخه پاک کاري کتاب کې خوندي کیدی نشي "

   

   نمبر کلیک وکړئ کله چې تاسو وګورئ یو نوی ډیالوګ، د انتخاب په توګه خوندي کول غوره کړل. په ساحه کې " Save as type " انتخاب غوره کړئ " Excel macro-enabled workbook ".

   

په SpellNumber macro وکاروئ ستاسو کاري پاڼې

اوس تاسو کولی شئ په خپل Excel اسنادو کې فنکشن SpellNumber وکاروئ. =SpellNumber(A2) حجرې ته دننه کړئ چیرې چې تاسو اړتیا لرئ په کلمو کې لیکل شوي شمیر ترلاسه کړئ. دلته A2 د شمیر یا مقدار سره د حجرې پته ده.

دلته تاسو پایله لیدلی شئ: > تاسو اړتیا لرئ چې ټول جدول بدل کړئ، نه یوازې 1 حجره، خپل د موږک کرسر د فارمول سره د حجرې ښکته ښیې کونج ته ځای په ځای کړئ تر هغه چې دا په یو کوچني تور کراس بدل شي:

کیڼ کلیک وکړئ او په ټوله کې یې کش کړئ. د فورمول ډکولو لپاره کالم. د پایلو د لیدلو لپاره تڼۍ خوشې کړئ:

یادونه. مهربانيپه یاد ولرئ چې که تاسو د بلې حجرې سره د لینک سره SpellNumber وکاروئ، نو لیکل شوي مجموعه به هرکله چې د سرچینې حجره کې شمیره بدله شي تازه کیږي.

تاسو کولی شئ شمیره په مستقیم ډول فنکشن ته داخل کړئ، د دې لپاره د مثال په توګه، =SpellNumber(29.95) (29.95 - د نرخ نښه او د ډالر نښه پرته).

په Excel کې د شمیرو املا کولو لپاره د میکرو کارولو زیانونه

لومړی، تاسو باید د VBA په اړه پوه شئ چې کوډ د خپل مطابق تعدیل کړئ. اړتیاوې دا اړینه ده چې د هر کاري کتاب لپاره کوډ پیسټ کړئ، چیرې چې تاسو یې د بدلولو پلان لرئ. که نه نو، تاسو اړتیا لرئ چې د مایکرو سره د ټیمپلیټ فایل جوړ کړئ او په هر پیل کې دا فایل پورته کولو لپاره Excel ترتیب کړئ.

د میکرو کارولو اصلي زیان دا دی که تاسو د کار کتاب بل چا ته لیږئ، دا سړی به نه وي. متن وګورئ پرته لدې چې میکرو په کاري کتاب کې جوړ شوی وي. او حتی که دا جوړ شوی وي، دوی به یو خبرتیا ترلاسه کړي چې په کاري کتاب کې میکرو شتون لري.

د ځانګړي اضافې په کارولو سره په کلمو کې شمیرې املا کړئ

د Excel کاروونکو لپاره چې اړتیا لري په چټکۍ سره سمې املا وکړي مګر د VBA زده کولو یا د کار د حل لپاره وخت نه لري، موږ یو ځانګړی وسیله جوړه کړه چې کولی شي په چټکۍ سره د څو مشهورو اسعارو لپاره د کلمو تبادله ترسره کړي. مهرباني وکړئ د املا شمیره اضافه کړئ چې زموږ د Excel لپاره د الټیمیټ سویټ وروستي خپریدو سره شامل دي.

د کارونې لپاره د چمتو کیدو سربیره، وسیله په متن کې د مقدارونو په بدلولو کې واقعیا انعطاف وړ ده:

• تاسو کولی شئ یو له دې څخه غوره کړئلاندې اسعارو: USD, EUR, GBP, BIT, AUD.
• فرقې برخه په سینټ، پیسو، یا بټ سینټ کې ولیکئ.
• د پایلې لپاره د متن هر ډول قضیه غوره کړئ: ټیټه قضیه، پورته کیسه , د سرلیک قضیه، یا د جملې قضیه.
• د لسیزې برخې په بیلابیلو لارو املا کړئ.
• صفر سینټ شامل کړئ یا لرې کړئ.

اضافه د ټولو عصري ملاتړ کوي نسخې پشمول د Excel 365, Excel 2029, Excel 2016, Excel 2013, and Excel 2010. مهرباني وکړئ د محصول په کور پاڼه کې چې پورته تړل شوي نور وړتیاوې وپلټئ.

او اوس، راځئ چې د دې شمیرې املا کارونې په عمل کې وګورو :

1. د پایلې لپاره یو خالي حجره وټاکئ.
2. په Ablebits ټب کې، په Utilities گروپ کې، کلیک وکړئ د املا شمیره .
3. په سپیل نمبر ډیالوګ کړکۍ کې چې څرګندیږي ، لاندې شیان تنظیم کړئ:
   12>د د خپل شمیره انتخاب کړئ بکس , هغه حجره غوره کړئ چې هغه مقدار پکې وي چې تاسو یې غواړئ د متن په توګه ولیکل شئ.
4. غوښتنه وکړئ اوس مهال ، د لیک کیسه او د سیمال لاره د شمیرې برخه باید املا وشي.
5. دا تعریف کړئ چې ایا صفر سینټ شامل کړئ یا نه.
6. غوره کړئ چې پایله د ارزښت یا فورمول په توګه داخل کړئ.
7. د ډیالوګ کړکۍ په ښکته برخه کې، څیړنه پایله. که تاسو د هغه طریقې څخه خوښ یاست چې ستاسو شمیره لیکل کیږي، کلیک وکړئ املا . که نه نو، مختلف ترتیبات هڅه وکړئ.

لاندې سکرین شاټ ډیفالټ ښیيانتخابونه او املا شمیره په B2 کې. مهرباني وکړئ په فورمول بار کې یو فورمول (په دقیقه توګه، د کارونکي لخوا ټاکل شوی فعالیت) وګورئ:

او دا یو ګړندۍ مظاهره ده چې څنګه نور اسعارو لیکل کیدی شي:

لارښوونې او یادښتونه:

• ځکه چې د املا شمیره اضافه کول د ریښتیني ژوند کارولو قضیې لکه رسیدونو او نورو مالي اسنادو اداره کولو لپاره ډیزاین شوي ، دا یوازې یو شمیر <6 بدلولی شي په یو وخت کې.
• د د شمیرو کالم املا کولو لپاره، په لومړي حجره کې یو فورمول داخل کړئ، او بیا فورمول لاندې کاپي کړئ.
• که چیرې امکان شتون ولري چې ستاسو د سرچینې ډاټا ممکن په راتلونکي کې بدلون ومومي، دا غوره ده چې نتیجه د فورمول په توګه داخل کړئ ، نو دا په اتوماتيک ډول تازه کیږي لکه څنګه چې اصلي شمیره بدلیږي.
• کله چې نتیجه د فورمول په توګه غوره کړئ اختیار، یو دودیز د کارونکي لخوا ټاکل شوی فنکشن (UDF) داخل شوی. که تاسو پلان لرئ چې خپل کاري کتاب له هغه چا سره شریک کړئ چې الټیمیټ سویټ نصب نه کړي، په یاد ولرئ چې د شریکولو دمخه د ارزښتونو سره فورمولونه بدل کړئ.

د تبادلې برعکس - انګلیسي کلمې په شمیرو

په ریښتیا سره ، زه تصور نشم کولی چې تاسو ولې ورته اړتیا لرئ. یوازې په دې حالت کې… :)

داسې ښکاري چې ایکسل MVP، جیري لیتم، د Excel یوزر تعریف شوی فنکشن (UDF) د WordsToDigits په توګه رامینځته کړی. دا انګلیسي کلمې بیرته په شمیره بدلوي.

تاسو کولی شئ د UDF کوډ لیدلو لپاره د جیري د WordsToDigits کاري کتاب ډاونلوډ کړئ. دلته به تاسو د هغه مثالونه هم ومومئ چې څنګه کارول کیږيفعالیت

تاسو کولی شئ وګورئ چې فنکشن څنګه په پاڼه کې کار کوي " د نمونې ننوتنې "، چیرې چې تاسو کولی شئ خپل مثالونه هم دننه کړئ. که تاسو په خپلو اسنادو کې د WordsToDigits کارولو پلان لرئ، مهرباني وکړئ خبر شئ چې دا فعالیت محدودیتونه لري. د مثال په توګه، دا په کلمو کې داخل شوي برخې نه پیژني. تاسو به ټول معلومات په " معلومات " پاڼه کې ومومئ.