هن آرٽيڪل ۾ مان توهان کي ڏيکاريندس ڪرنسي نمبرن کي انگريزي لفظن ۾ بدلائڻ جا ٻه تڪڙو ۽ مفت طريقا Excel 2019, 2016, 2013 ۽ ٻين ورزن ۾.

Microsoft Excel هڪ بهترين آهي. هن ۽ انهي جي حساب ڪرڻ لاء پروگرام. اهو شروعاتي طور تي وڏي ڊيٽا جي صفن کي پروسيس ڪرڻ لاء تيار ڪيو ويو. بهرحال، اهو اڪائونٽنگ رڪارڊ ٺاهڻ جي اجازت ڏئي ٿو جهڙوڪ انوائس، تشخيص يا بيلنس شيٽ جلدي ۽ مؤثر طريقي سان.

وڌيڪ يا گهٽ مضبوط ادائگي جي دستاويزن ۾ اهو ضروري آهي ته عددي قدرن کي انهن جي لفظ فارم سان نقل ڪيو وڃي. ٽائيپ ٿيل انگن کي غلط ڪرڻ تمام ڏکيو آهي، انهن جي ڀيٽ ۾ جيڪي هٿ سان لکيل آهن. ڪجهه ٺڳي ڪندڙ 3000 مان 8000 ٺاهڻ جي ڪوشش ڪري سگهن ٿا، جڏهن ته ڳجهي طور تي ”ٽي“ کي ”اٺ“ سان تبديل ڪرڻ تقريباً ناممڪن آهي.

تنهنڪري جيڪو توهان کي گهرجي اهو صرف انگن کي ايڪسل ۾ لفظن ۾ تبديل ڪرڻ نه آهي (مثال طور 123.45 کان "هڪ سئو ٽيويهه، چاليهه پنجين")، پر اُچاريو ڊالر ۽ سينٽ (مثال طور $29.95 جيئن "ويهه نو ڊالر ۽ ننهن سينٽ")، پائونڊ ۽ پينس GBP لاءِ، يورو ۽ يورو سينٽ لاءِ EUR وغيره.

جيتوڻيڪ Excel جي جديد ورزن ۾ اسپيلنگ نمبرن لاءِ بلٽ ان ٽول نه آهي، نه ته اڳئين ورزن جو ذڪر ڪرڻ لاءِ. پر اهو آهي جڏهن Excel واقعي سٺو آهي. توھان ھميشه ان جي ڪارڪردگيءَ کي بھتر ڪري سگھوٿا فارمولن کي استعمال ڪندي انھن جي سڀني

جمنن، VBA ميڪرو، يا ٽئين پارٽي جي اضافو. انگن اکرن تائين

۽، ممڪن طور تي، توهان کي ضرورت هجيايڪسل ۾ لفظن کي نمبرن ۾ تبديل ڪريو

نوٽ. جيڪڏھن توھان ڳولي رھيا آھيو نمبر ڏانھن ٽيڪسٽ ڪنورشن ، جنھن جو مطلب آھي توھان چاھيو ٿا ته Excel توھان جو نمبر متن جي طور تي ڏسي، اھو ڪجھ مختلف آھي. ان لاءِ، توھان استعمال ڪري سگھو ٿا TEXT فنڪشن يا ڪجھ ٻيا طريقا جيڪي بيان ڪيا ويا آھن ڪيئن ڪجي نمبرن کي ايڪسل ۾ ٽيڪسٽ ۾ تبديل ڪرڻ لاءِ.

اسپيل نمبر VBA ميڪرو نمبرن کي لفظن ۾ تبديل ڪرڻ لاءِ

جيئن مون اڳ ۾ ئي ذڪر ڪيو آھي. , Microsoft هن ڪم لاء هڪ اوزار شامل ڪرڻ نه چاهيو. تنهن هوندي، جڏهن انهن ڏٺو ته ڪيترا صارفين ان جي ضرورت آهي، انهن ٺاهي ۽ شايع ڪيو خاص VBA ميڪرو پنهنجي ويب سائيٽ تي. ميڪرو اهو ڪري ٿو جيڪو ان جو نالو SpellNumber تجويز ڪري ٿو. ٻيا سڀ ميڪرو جيڪي مون کي مليا آهن اهي Microsoft ڪوڊ تي ٻڌل آهن.

توهان ميڪرو ڳولي سگهو ٿا جنهن جو ذڪر ”اسپيل نمبر فارمولا“ آهي. بهرحال، اهو هڪ فارمولا ناهي، پر هڪ ميڪرو فنڪشن، يا وڌيڪ صحيح هجڻ لاءِ Excel User defined function (UDF).

اسپيل نمبر آپشن ڊالر ۽ سينٽ لکڻ جي قابل آهي. جيڪڏھن توھان کي مختلف ڪرنسي جي ضرورت آھي، توھان تبديل ڪري سگھو ٿا " ڊالر " ۽ " سينٽ " پنھنجي ھڪڙي جي نالي سان.

جيڪڏھن توھان VBA ڄاڻندڙ ماڻھو نه آھيو ، هيٺ توهان ڪوڊ جي ڪاپي ڳوليندا. جيڪڏھن توھان اڃا نٿا چاھيو يا توھان وٽ ھن کي ترتيب ڏيڻ جو وقت نه آھي، مھرباني ڪري ھي حل استعمال ڪريو.

1. ورڪ بڪ کوليو جتي توھان کي انگ اکر ڪرڻ جي ضرورت آھي.
12> Alt کي دٻايو +F11 کي کولڻ لاءِ Visual Basic ايڊيٽر ونڊو.
2. جيڪڏهن توهان ڪيترائي ڪتاب کوليا آهن، چيڪ ڪريو ته گهربل ورڪ بڪ فعال آهي استعمال ڪندي.پروجيڪٽ جي فهرست ايڊيٽر جي مٿين کاٻي ڪنڊ ۾ (ڪم ڪتاب جي عناصرن مان ھڪڙو نيري رنگ سان نمايان ٿيل آھي).
3. ايڊيٽر مينيو ۾ وڃو Insert -> Module .
4. توهان کي هڪ ونڊو ڏسڻ گهرجي جنهن جو نالو YourBook - Module1. ھيٺ ڏنل فريم ۾ سڀ ڪوڊ چونڊيو ۽ ان کي ھن ونڊو ۾ پيسٽ ڪريو.

   آپشن واضح 'مکيه فنڪشن فنڪشن اسپيل نمبر( ByVal MyNumber) ڊِم ڊالرز، سينٽ، ٽئمپ ڊِم ڊيسيمل پلیس، ڳڻيو ريڊيم جڳه (9) اسٽرنگ جڳ جي طور تي (2) = "هزار" جاءِ (3) = "مليون" جڳھ(4) = "بلين" جڳھ (5) = "ٽريلين" MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber، ".") جيڪڏھن DecimalPlace > 0 پوءِ سينٽ = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do while MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" پوءِ ڊالر = Temp & جڳھ (ڳڻپ) & ڊالر If Len(MyNumber) > 3 پوءِ MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Case Dollars Case چونڊيو "" Dollars = "No Dollars" Case "One" Dollars = "One Dollars" Case Else Dollars = ڊالر ۽ amp; "ڊالرز" آخر چونڊيو ڪيس سينٽ ڪيس چونڊيو "" سينٽ = "۽ ڪو به سينٽ" ڪيس "هڪ" سينٽ = "۽ هڪ سينٽ" ڪيس ايلس سينٽ = "۽" ۽ "& سينٽ & "سينٽ" آخر چونڊيو SpellNumber = ڊالر ۽ amp; سينٽ جي آخر ۾ فنڪشن فنڪشن GetHundreds(ByVal MyNumber) Dim Result as String if Val(MyNumber) = 0 پوءِ Exit Function MyNumber = Right("000" & MyNumber, 3)' سؤ جڳھ کي تبديل ڪريو. جيڪڏهن Mid(MyNumber, 1, 1) "0" پوءِ نتيجو = GetDigit(Mid(MyNumber, 1, 1)) & "سو" ختم ڪريو جيڪڏھن 'ڏھن ۽ ھڪڙي جڳھ کي تبديل ڪريو. جيڪڏهن وچ (منهنجو نمبر، 2، 1) "0" پوءِ نتيجو = نتيجو ۽ amp؛ GetTens(Mid(MyNumber, 2)) ٻيو نتيجو = نتيجو ۽ amp; GetDigit(Mid(MyNumber, 3)) End If GetHundreds = نتيجو ختم ڪريو فنڪشن فنڪشن GetTens(TensText) Dim Result As String Result = "" ' عارضي فنڪشن جي قيمت کي ختم ڪريو. جيڪڏهن Val(Left(TensText, 1)) = 1 پوءِ 'جيڪڏهن قدر 10-19 جي وچ ۾ آهي... ڪيس Val(TensText) ڪيس 10 چونڊيو: نتيجو = "ڏهه" ڪيس 11: نتيجو = "يارنهن" ڪيس 12: نتيجو = "ٻارنهن" ڪيس 13: نتيجو = "تيرن" ڪيس 14: نتيجو = "چوڏهن" ڪيس 15: نتيجو = "پندرهن" ڪيس 16: نتيجو = "سوله" ڪيس 17: نتيجو = "ستر" ڪيس 18: نتيجو = "اٺ" ڪيس 19: نتيجو = "Nineteen" Case Else End Else 'جيڪڏهن قيمت 20-99 جي وچ ۾ آهي… چونڊيو ڪيس Val(Left(TensText, 1)) Case 2: نتيجو = "Twenty" Case 3: Result = "Twenty" ڪيس 4: نتيجو = "چاليهه" ڪيس 5: نتيجو = "پنجاهه" ڪيس 6: نتيجو = "سٺ" ڪيس 7: نتيجو = "ستر" ڪيس 8: نتيجو = "اٺ" ڪيس 9: نتيجو = "نائون" ڪيس ٻيو آخر نتيجو چونڊيو = نتيجو & GetDigit _ (Right(TensText, 1)) ' retrive ones place. End If GetTens = نتيجو ختم ڪريو فنڪشن فنڪشن GetDigit(Digit) چونڊيو ڪيسVal(Digit) ڪيس 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "چار" ڪيس 5: GetDigit = "پنج" ڪيس 6: GetDigit = " ڇهه" ڪيس 7: GetDigit = "ست" ڪيس 8: GetDigit = "اٺ" ڪيس 9: GetDigit = "نون" ڪيس ٻيو: GetDigit = "" آخر چونڊيو آخر فنڪشن

5. Ctrl+S کي دٻايو اپڊيٽ ٿيل ورڪ بڪ کي بچائڻ لاءِ.

   توهان کي پنهنجي ڪم بڪ کي ٻيهر بچائڻو پوندو. جڏهن توهان ڪم بڪ کي ميڪرو سان محفوظ ڪرڻ جي ڪوشش ڪندا ته توهان کي نياپو ملندو " هيٺيون خاصيتون محفوظ نه ٿيون ڪري سگهجن macro-free workbook ۾ "

   

   نمبر تي ڪلڪ ڪريو. هڪ نئون ڊائلاگ، چونڊيو محفوظ ڪريو اختيار. فيلڊ ۾ " Save as type " اختيار چونڊيو " Excel macro-enabled workbook ".

   

استعمال ڪريو SpellNumber macro ۾ توهان جي ورڪ شيٽس

هاڻي توهان فنڪشن استعمال ڪري سگهو ٿا اسپيل نمبر پنهنجي Excel دستاويزن ۾. سيل ۾ =SpellNumber(A2) داخل ڪريو جتي توھان کي لفظن ۾ لکيل نمبر حاصل ڪرڻ جي ضرورت آھي. هتي A2 نمبر يا رقم سان سيل جو پتو آهي.

هتي توهان نتيجو ڏسي سگهو ٿا:

Voila!

جلدي نقل ڪريو SpellNumber فنڪشن کي ٻين سيلن ڏانهن.

جيڪڏهن توهان سڄي ٽيبل کي تبديل ڪرڻ جي ضرورت آهي، نه رڳو 1 سيل، پنهنجي ماؤس جي ڪرسر کي سيل جي هيٺين ساڄي ڪنڊ تي فارمولا سان رکو جيستائين اهو هڪ ننڍڙي ڪارو ڪراس ۾ تبديل نه ٿئي:

کاٻي پاسي ڪلڪ ڪريو ۽ ان کي ڇڪيو فارمولا ڀرڻ لاءِ ڪالم. نتيجا ڏسڻ لاءِ بٽڻ دٻايو:

نوٽ. مهرباني ڪريذهن ۾ رکو ته جيڪڏهن توهان SpellNumber ڪنهن ٻئي سيل جي لنڪ سان استعمال ڪريو ٿا، ته هر دفعي ماخذ سيل ۾ نمبر تبديل ٿيڻ تي لکيل رقم اپڊيٽ ڪيو ويندو.

توهان نمبر سڌو سنئون فنڪشن ۾ داخل ڪري سگهو ٿا. مثال طور، =SpellNumber(29.95) (29.95 - بغير ڪوٽا جي نشانين ۽ ڊالر جي نشاني جي).

ايڪسل ۾ انگن کي اسپيل ڪرڻ لاءِ ميڪرو استعمال ڪرڻ جا نقصان

سڀ کان پهريان، توهان کي پنهنجي مطابق ڪوڊ کي تبديل ڪرڻ لاءِ VBA ڄاڻڻ گهرجي. ضرورتون. اهو ضروري آهي ته هر ڪم بڪ لاء ڪوڊ پيسٽ ڪريو، جتي توهان ان کي تبديل ڪرڻ جو ارادو ڪيو. ٻي صورت ۾، توهان کي ميڪرو سان هڪ ٽيمپليٽ فائل ٺاهڻ جي ضرورت پوندي ۽ هر شروع ۾ هن فائل کي لوڊ ڪرڻ لاءِ ايڪسل کي ترتيب ڏيڻو پوندو.

ميڪرو استعمال ڪرڻ جو بنيادي نقصان اهو آهي ته جيڪڏهن توهان ڪم بڪ ڪنهن ٻئي ڏانهن موڪليندا، اهو شخص نه ڪندو. ٽيڪسٽ ڏسو جيستائين ميڪرو ڪم بڪ ۾ نه ٺھي. ۽ جيتوڻيڪ اهو ٺهيل آهي، انهن کي هڪ خبرداري ملندي ته ڪم بڪ ۾ ميڪرو موجود آهن.

Special Add-in استعمال ڪندي انگن کي لفظن ۾ اسپيل ڪريو

Exel استعمال ڪندڙن لاءِ جن کي جلدي رقم جي اسپيل ڪرڻ جي ضرورت آهي پر وٽن VBA سکڻ يا ڪم جي حل جو اندازو لڳائڻ جو وقت ناهي، اسان هڪ خاص اوزار ٺاهيو آهي جيڪي چند مشهور ڪرنسي لاءِ رقم کان لفظن جي تبادلي کي جلدي انجام ڏئي سگھن ٿا. مھرباني ڪري ملو اسپيل نمبر ايڊ-ان شامل آھي اسان جي الٽيميٽ سوٽ فار ايڪسل جي تازي رليز سان.

استعمال لاءِ تيار ٿيڻ کان علاوه، اوزار مقدار کي متن ۾ تبديل ڪرڻ ۾ واقعي لچڪدار آهي:

اضافو سڀني جديد کي سپورٽ ڪري ٿو نسخن ۾ شامل آهن Excel 365, Excel 2029, Excel 2016, Excel 2013, and Excel 2010. مھرباني ڪري ٻين صلاحيتن کي ڳوليو پراڊڪٽ جي ھوم پيج تي جيڪو مٿي ڏنل آھي.

۽ ھاڻي، اچو ته ڏسو ھن نمبر جي اسپيلنگ يوٽيلٽي عمل ۾ :

1. نتيجي لاءِ خالي سيل چونڊيو.
2. تي Ablebits ٽئب تي، Utilities گروپ ۾، ڪلڪ ڪريو اسپيل نمبر .
3. اسپيل نمبر ڊائلاگ ونڊو ۾ جيڪو ظاهر ٿئي ٿو، هيٺ ڏنل شيون ترتيب ڏيو:
   • جي لاءِ پنهنجو نمبر چونڊيو باڪس , سيل چونڊيو جنهن ۾ رقم شامل هجي جنهن ۾ توهان لکڻ چاهيو ٿا.
   • واضح ڪريو گهربل في الحال ، ليٽر ڪيس ۽ طريقو ڊيسيمل حصو نمبر جو اسپيل هجڻ گهرجي.
   • وضاحت ڪريو ته صفر سينٽ شامل ڪرڻ يا نه.
   • چوو ته ڇا نتيجو داخل ڪرڻ لاءِ قدر يا فارمولا.
4. ڊائيلاگ ونڊو جي تري ۾، پريو نتيجو. جيڪڏھن توھان خوش آھيو توھان جو نمبر لکڻ جي طريقي سان، ڪلڪ ڪريو اسپيل . ٻي صورت ۾، ڪوشش ڪريو مختلف سيٽنگون.

هيٺ ڏنل اسڪرين شاٽ ڊفالٽ ڏيکاري ٿوB2 ۾ چونڊون ۽ اسپيل نمبر. مھرباني ڪري فارمولا بار ۾ ھڪ فارمولا (وڌيڪ صحيح طور تي، صارف جي بيان ڪيل فنڪشن) کي ڏسو:

۽ ھي ھڪڙو تڪڙو مظاهرو آھي ته ٻين ڪرنسي کي ڪيئن اسپيل ڪري سگھجي ٿو:

تجويزون ۽ نوٽس:

• ڇاڪاڻ ته اسپيل نمبر اضافو حقيقي زندگي جي استعمال جي ڪيسن جهڙوڪ انوائسز ۽ ٻين مالي دستاويزن کي سنڀالڻ لاءِ ٺاهيو ويو هو، اهو صرف بدلي سگهي ٿو هڪ نمبر هڪ وقت ۾.
• هڪ نمبرن جي ڪالمن کي اسپيل ڪرڻ لاءِ، پهرين سيل ۾ هڪ فارمولا داخل ڪريو، ۽ پوءِ فارمولا کي نقل ڪريو.
• جيڪڏهن ڪو موقعو هجي ته توھان جي ماخذ جي ڊيٽا مستقبل ۾ تبديل ٿي سگھي ٿي، اھو بھتر آھي ته نتيجو کي فارمولا طور داخل ڪيو ، تنھنڪري اھو خودڪار طريقي سان اپڊيٽ ٿي ويندو جيئن اصل نمبر تبديل ٿي وڃي.
• جڏھن چونڊيو نتيجو فارمولا طور اختيار، هڪ ڪسٽم صارف بيان ڪيل فنڪشن (UDF) داخل ڪيو ويو آهي. جيڪڏھن توھان پنھنجي ورڪ بڪ کي ڪنھن ماڻھوءَ سان شيئر ڪرڻ جو ارادو ڪيو آھي جنھن وٽ الٽيميٽ سوٽ انسٽال ٿيل ناھي، شيئر ڪرڻ کان اڳ فارمولن کي قدرن سان تبديل ڪرڻ ياد رکو.

وڌيڪ تبديلي - انگريزي لفظن کي انگن ۾

سچيءَ سان مان تصور نٿو ڪري سگهان ته توهان کي ان جي ضرورت ڇو آهي. بس صورت ۾... :)

ظاهر ٿئي ٿو ته ايڪسل MVP، جيري ليٿم، اهڙي Excel User defined function (UDF) کي WordsToDigits بڻائي ڇڏيو آهي. اهو انگريزي لفظن کي واپس نمبر ۾ تبديل ڪري ٿو.

توهان ڊائون لوڊ ڪري سگهو ٿا Jerry's WordsToDigits ورڪ بڪ UDF ڪوڊ ڏسڻ لاءِ. هتي توهان هن جا مثال پڻ ڳوليندا ته ڪيئن استعمال ڪجيفنڪشن.

توهان ڏسي سگهو ٿا ته فنڪشن ڪيئن ڪم ڪري ٿو شيٽ تي " Sample Entry "، جتي توهان پڻ پنهنجا مثال داخل ڪري سگهندا. جيڪڏھن توھان پنھنجي دستاويزن ۾ WordsToDigits کي ملازمت ڏيڻ جو ارادو رکو ٿا، مھرباني ڪري ڄاڻايو وڃي ته ھن فنڪشن ۾ پابنديون آھن. مثال طور، اهو لفظن ۾ داخل ٿيل جزن کي نٿو سڃاڻي. توھان سڀ تفصيل ڳوليندا " Information " شيٽ تي.