اس مضمون میں میں آپ کو ایکسل 2019، 2016، 2013 اور دوسرے ورژن میں کرنسی نمبروں کو انگریزی الفاظ میں تبدیل کرنے کے دو فوری اور مفت طریقے دکھاؤں گا۔

Microsoft Excel ایک بہترین ہے۔ اس اور اس کا حساب لگانے کا پروگرام۔ اسے ابتدائی طور پر ڈیٹا کی بڑی صفوں پر کارروائی کرنے کے لیے تیار کیا گیا تھا۔ تاہم، یہ اکاؤنٹنگ ریکارڈز جیسے انوائس، تشخیص یا بیلنس شیٹس کو تیزی سے اور مؤثر طریقے سے بنانے دیتا ہے۔

کم و بیش ٹھوس ادائیگی کی دستاویزات میں عددی اقدار کو ان کے لفظی شکل کے ساتھ نقل کرنا ضروری ہے۔ ہاتھ سے لکھے گئے نمبروں کے مقابلے میں ٹائپ شدہ نمبروں کو غلط ثابت کرنا بہت مشکل ہے۔ کچھ دھوکہ باز 3000 میں سے 8000 بنانے کی کوشش کر سکتے ہیں، جب کہ خفیہ طور پر "تین" کو "آٹھ" سے تبدیل کرنا تقریباً ناممکن ہے۔

لہذا آپ کو صرف ایکسل میں نمبروں کو الفاظ میں تبدیل کرنے کی ضرورت نہیں ہے (مثلاً 123.45 سے "ایک سو تئیس، پینتالیس")، لیکن ڈالر اور سینٹ (مثلاً $29.95 بطور "انتیس ڈالر اور ننانوے سینٹ")، GBP کے لیے پاؤنڈ اور پینس، EUR کے لیے یورو اور یورو سینٹس وغیرہ۔

یہاں تک کہ ایکسل کے تازہ ترین ورژن میں ہجے نمبروں کے لیے بلٹ ان ٹول نہیں ہے، اس سے پہلے کے ورژنز کا ذکر نہیں کرنا۔ لیکن یہ تب ہوتا ہے جب ایکسل واقعی اچھا ہوتا ہے۔ آپ ان کے تمام

کمبی نیشنز، VBA میکروز، یا تھرڈ پارٹی ایڈ انز میں فارمولوں کا استعمال کرتے ہوئے ہمیشہ اس کی فعالیت کو بہتر بنا سکتے ہیں۔

ذیل میں آپ کو نمبرز کو تبدیل کرنے کے دو طریقے ملیں گے۔ الفاظ کے اعداد و شمار

اور، ممکنہ طور پر، آپ کوایکسل میں الفاظ کو نمبرز میں تبدیل کریں

نوٹ۔ اگر آپ نمبر ٹو ٹیکسٹ کنورژن تلاش کر رہے ہیں، جس کا مطلب ہے کہ آپ چاہتے ہیں کہ Excel آپ کے نمبر کو ٹیکسٹ کے طور پر دیکھے، یہ کچھ مختلف چیز ہے۔ اس کے لیے، آپ TEXT فنکشن یا ایکسل میں نمبروں کو متن میں تبدیل کرنے کے طریقے میں بیان کردہ چند دیگر طریقے استعمال کر سکتے ہیں۔

SpellNumber VBA میکرو نمبروں کو الفاظ میں تبدیل کرنے کے لیے

جیسا کہ میں پہلے ہی بتا چکا ہوں۔ مائیکروسافٹ اس کام کے لیے کوئی ٹول شامل نہیں کرنا چاہتا تھا۔ تاہم، جب انہوں نے دیکھا کہ کتنے صارفین کو اس کی ضرورت ہے، تو انہوں نے اپنی ویب سائٹ پر خصوصی VBA میکرو بنایا اور شائع کیا۔ میکرو وہی کرتا ہے جو اس کا نام SpellNumber تجویز کرتا ہے۔ باقی تمام میکرو جو میں نے دیکھا ہے وہ مائیکروسافٹ کوڈ پر مبنی ہیں۔

آپ کو "اسپیل نمبر فارمولہ" کے طور پر ذکر کردہ میکرو مل سکتے ہیں۔ تاہم، یہ کوئی فارمولا نہیں ہے، بلکہ ایک میکرو فنکشن ہے، یا زیادہ درست ہونے کے لیے Excel User defined function (UDF)۔

اسپیل نمبر آپشن ڈالر اور سینٹ لکھنے کے قابل ہے۔ اگر آپ کو ایک مختلف کرنسی کی ضرورت ہے، تو آپ اپنی ایک کے نام کے ساتھ " ڈالر " اور " سینٹ " کو تبدیل کر سکتے ہیں۔

اگر آپ VBA کے جاننے والے آدمی نہیں ہیں۔ ، نیچے آپ کو کوڈ کی ایک کاپی مل جائے گی۔ اگر آپ اب بھی نہیں چاہتے ہیں یا آپ کے پاس اس کو حل کرنے کا وقت نہیں ہے، تو براہ کرم یہ حل استعمال کریں۔

1. ورک بک کھولیں جہاں آپ کو نمبروں کے ہجے کرنے کی ضرورت ہے۔
2. Alt دبائیں Visual Basic ایڈیٹر ونڈو کو کھولنے کے لیے +F11۔
3. اگر آپ کے پاس کئی کتابیں کھلی ہوئی ہیں، تو چیک کریں کہ مطلوبہ ورک بک استعمال کر کے فعال ہے۔ایڈیٹر کے اوپری بائیں کونے میں پروجیکٹس کی فہرست (ورک بک کے عناصر میں سے ایک نیلے رنگ سے نمایاں کیا گیا ہے)۔
4. ایڈیٹر مینو میں داخل کریں -> ماڈیول پر جائیں۔ ۔
5. آپ کو YourBook - Module1 نام کی ونڈو نظر آنی چاہیے۔ نیچے دیئے گئے فریم میں موجود تمام کوڈ کو منتخب کریں اور اسے اس ونڈو میں چسپاں کریں۔

   اختیار واضح 'مین فنکشن فنکشن اسپیل نمبر (بائیوال مائی نمبر) ڈم ڈالرز، سینٹس، ٹمپ ڈم ڈیسیمل پلیس، کاؤنٹ ریڈیم پلیس(9) بطور اسٹرنگ پلیس(2) = "ہزار" جگہ(3) = "ملین" Place(4) = "بلین" Place(5) = "ٹریلین" MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If 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)) اگر Temp "" تو Dollars = Temp & جگہ (شمار) & ڈالر اگر Len(MyNumber) > 3 پھر MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 لوپ کیس ڈالرز کیس منتخب کریں"" Dollars = "No Dollars" Case "One" Dollars = "One Dollars" کیس اور ڈالرز = ڈالرز اور "ڈالر" اینڈ سلیکٹ سلیکٹ کیس سینٹ کیس "" سینٹ = "اور کوئی سینٹ" کیس "ایک" سینٹ = "اور ون سینٹ" کیس ایلس سینٹ = "اور" & سینٹ اور "سینٹس" اختتام کو منتخب کریں SpellNumber = ڈالرز & سینٹ اینڈ فنکشن فنکشن GetHundreds(ByVal MyNumber) سٹرنگ کے طور پر مدھم نتیجہ اگر Val(MyNumber) = 0 پھر فنکشن سے باہر نکلیں MyNumber = Right( "000" & MyNumber, 3) ' سینکڑوں جگہ کو تبدیل کریں۔ اگر Mid(MyNumber, 1, 1) "0" تو نتیجہ = GetDigit(Mid(MyNumber, 1, 1)) & "سو" اختتام اگر ' دسیوں اور ایک جگہ کو تبدیل کریں۔ اگر Mid(MyNumber, 2, 1) "0" تو نتیجہ = نتیجہ & GetTens(Mid(MyNumber, 2)) ورنہ نتیجہ = نتیجہ & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = رزلٹ اینڈ فنکشن فنکشن GetTens(TensText) ڈم رزلٹ بطور اسٹرنگ نتیجہ = "" ' عارضی فنکشن ویلیو کو ختم کریں۔ اگر Val(Left(TensText, 1)) = 1 پھر ' اگر ویلیو 10-19 کے درمیان ہے… کیس Val(TensText) کیس 10 کو منتخب کریں: نتیجہ = "دس" کیس 11: نتیجہ = "گیارہ" کیس 12: نتیجہ = "بارہ" کیس 13: نتیجہ = "تیرہ" کیس 14: نتیجہ = "چودہ" کیس 15: نتیجہ = "پندرہ" کیس 16: نتیجہ = "سولہ" کیس 17: نتیجہ = "سترہ" کیس 18: نتیجہ = "اٹھارہ" کیس 19: نتیجہ = "انیس" کیس باقی ختم کریں 'اگر قیمت 20-99 کے درمیان ہے… کیس Val(بائیں(دسیوں متن، 1)) کو منتخب کریں کیس 2: نتیجہ = "بیس" کیس 3: نتیجہ = "تیس" کیس 4: نتیجہ = "چالیس" کیس 5: نتیجہ = "پچاس" کیس 6: نتیجہ = "ساٹھ" کیس 7: نتیجہ = "ستر" کیس 8: نتیجہ = "اسی" کیس 9: نتیجہ = "نوے" کیس باقی آخر نتیجہ منتخب کریں = نتیجہ & GetDigit _ (Right(TensText, 1)) ' اپنی جگہ بازیافت کریں۔ End If GetTens = رزلٹ اینڈ فنکشن فنکشن GetDigit(Digit) سلیکٹ کیسVal(Digit) کیس 1: GetDigit = "One" Case 2: GetDigit = "Two" کیس 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "پانچ" کیس 6: GetDigit = " چھ" کیس 7: GetDigit = "Seven" کیس 8: GetDigit = "Eight" کیس 9: GetDigit = "Nine" Case اور GetDigit = "" End Select End Function

6. Ctrl+S دبائیں اپ ڈیٹ شدہ ورک بک کو محفوظ کرنے کے لیے۔

   آپ کو اپنی ورک بک کو دوبارہ محفوظ کرنے کی ضرورت ہوگی۔ جب آپ میکرو کے ساتھ ورک بک کو محفوظ کرنے کی کوشش کریں گے تو آپ کو پیغام ملے گا " مندرجہ ذیل خصوصیات کو میکرو فری ورک بک میں محفوظ نہیں کیا جا سکتا "

   

   نمبر پر کلک کریں جب آپ دیکھیں گے ایک نیا ڈائیلاگ، Save as آپشن کا انتخاب کریں۔ فیلڈ میں " Save as type " آپشن منتخب کریں " Excel macro-enabled workbook "۔

   

اس میں SpellNumber میکرو استعمال کریں۔ آپ کی ورک شیٹس

اب آپ اپنے ایکسل دستاویزات میں فنکشن SpellNumber استعمال کرسکتے ہیں۔ سیل میں =SpellNumber(A2) درج کریں جہاں آپ کو الفاظ میں لکھا ہوا نمبر حاصل کرنے کی ضرورت ہے۔ یہاں A2 نمبر یا رقم کے ساتھ سیل کا پتہ ہے۔

یہاں آپ نتیجہ دیکھ سکتے ہیں:

Voila!

SpellNumber فنکشن کو جلدی سے دوسرے سیلز میں کاپی کریں۔

اگر آپ پورے ٹیبل کو تبدیل کرنے کی ضرورت ہے، نہ کہ صرف 1 سیل، اپنے ماؤس کرسر کو سیل کے نچلے دائیں کونے میں فارمولے کے ساتھ رکھیں جب تک کہ یہ ایک چھوٹے سے سیاہ کراس میں تبدیل نہ ہوجائے:

بائیں کلک کریں اور اسے گھسیٹیں فارمولہ بھرنے کے لیے کالم۔ نتائج دیکھنے کے لیے بٹن جاری کریں:

نوٹ۔ برائے مہربانیذہن میں رکھیں کہ اگر آپ کسی دوسرے سیل کے لنک کے ساتھ SpellNumber استعمال کرتے ہیں، تو جب بھی سورس سیل میں نمبر تبدیل کیا جائے گا تو تحریری رقم اپ ڈیٹ ہو جائے گی۔

آپ نمبر کو براہ راست فنکشن میں بھی داخل کر سکتے ہیں۔ مثال کے طور پر، =SpellNumber(29.95) (29.95 - بغیر کوٹیشن مارکس اور ڈالر کے نشان کے)۔

ایکسل میں نمبروں کو ہجے کرنے کے لیے میکرو استعمال کرنے کے نقصانات

سب سے پہلے، آپ کو اپنے مطابق کوڈ میں ترمیم کرنے کے لیے VBA کو جاننا چاہیے۔ ضروریات ہر ورک بک کے لیے کوڈ کو پیسٹ کرنا ضروری ہے، جہاں آپ اسے تبدیل کرنے کا ارادہ رکھتے ہیں۔ بصورت دیگر، آپ کو میکرو کے ساتھ ایک ٹیمپلیٹ فائل بنانے کی ضرورت ہوگی اور ہر شروع میں اس فائل کو لوڈ کرنے کے لیے ایکسل کو کنفیگر کرنا ہوگا۔

میکرو استعمال کرنے کا سب سے بڑا نقصان یہ ہے کہ اگر آپ ورک بک کسی اور کو بھیجتے ہیں، تو یہ شخص ایسا نہیں کرے گا۔ متن کو دیکھیں جب تک کہ میکرو ورک بک میں شامل نہ ہو۔ اور یہاں تک کہ اگر یہ بلٹ ان ہے، تو انہیں ایک انتباہ ملے گا کہ ورک بک میں میکرو موجود ہیں۔

ایک خصوصی ایڈ ان کا استعمال کرتے ہوئے نمبروں کو الفاظ میں ہجے کریں

ایکسل کے ان صارفین کے لیے جنہیں فوری طور پر رقم کی ہجے کرنے کی ضرورت ہوتی ہے لیکن ان کے پاس VBA سیکھنے یا کام کرنے کا وقت نہیں ہے، ہم نے ایک خاص ٹول بنایا ہے۔ جو چند مشہور کرنسیوں کے لیے رقم سے الفاظ کی تبدیلی کو تیزی سے انجام دے سکتا ہے۔ براہ کرم ہمارے Ultimate Suite for Excel کی تازہ ترین ریلیز کے ساتھ شامل اسپیل نمبر ایڈ ان سے ملیں۔

استعمال کے لیے تیار ہونے کے علاوہ، یہ ٹول رقم کو متن میں تبدیل کرنے میں واقعی لچکدار ہے:

• آپ ان میں سے ایک کو منتخب کرسکتے ہیں۔درج ذیل کرنسیاں: USD, EUR, GBP, BIT, AUD۔
• فریکشنل حصے کو سینٹ، پینی، یا بٹ سینٹس میں لکھیں۔
• نتائج کے لیے کوئی بھی ٹیکسٹ کیس منتخب کریں: لوئر کیس، اپر کیس , ٹائٹل کیس، یا سزا کا کیس۔
• اعشاریہ والے حصے کو مختلف طریقوں سے لکھیں۔
• زیرو سینٹ شامل کریں یا چھوڑ دیں۔

ایڈ ان تمام جدید کو سپورٹ کرتا ہے ورژن بشمول Excel 365, Excel 2029, Excel 2016, Excel 2013, اور Excel 2010۔ براہ کرم اوپر لنک کردہ پروڈکٹ کے ہوم پیج پر دیگر صلاحیتوں کو دریافت کریں۔

اور اب، آئیے اس نمبر کی املا کی افادیت کو عملی شکل میں دیکھتے ہیں۔ :

1. نتائج کے لیے ایک خالی سیل منتخب کریں۔
2. Ablebits ٹیب پر، Utilities گروپ میں، پر کلک کریں۔ ہجے نمبر ۔
3. سپل نمبر ڈائیلاگ ونڈو میں جو نمودار ہوتی ہے، درج ذیل چیزوں کو ترتیب دیں:
   • اپنا نمبر منتخب کریں باکس کے لیے , اس سیل کو منتخب کریں جس میں آپ جس رقم کو بطور متن لکھنا چاہتے ہیں۔
   • مطلوبہ فی الحال ، حرف کیس اور طریقہ اعشاریہ کی وضاحت کریں نمبر کا حصہ ہجے ہونا چاہیے۔
   • وضاحت کریں کہ آیا صفر سینٹ شامل کرنا ہے یا نہیں۔
   • منتخب کریں کہ آیا نتیجہ کو قدر یا فارمولے کے طور پر داخل کرنا ہے۔
4. ڈائیلاگ ونڈو کے نیچے، نتیجہ کا پیش نظارہ کریں ۔ اگر آپ اپنا نمبر لکھنے کے طریقے سے خوش ہیں، تو ہجے پر کلک کریں۔ بصورت دیگر، مختلف ترتیبات آزمائیں۔

نیچے کا اسکرین شاٹ ڈیفالٹ کو ظاہر کرتا ہےB2 میں انتخاب اور ہجے والا نمبر۔ براہ کرم فارمولہ بار میں ایک فارمولہ (زیادہ واضح طور پر، صارف کی طرف سے بیان کردہ فنکشن) دیکھیں:

اور یہ اس بات کا فوری مظاہرہ ہے کہ دوسری کرنسیوں کو کیسے ہجے کیا جا سکتا ہے:

تجاویز اور نوٹ:

• چونکہ ہجے نمبر ایڈ ان کو حقیقی زندگی کے استعمال کے معاملات جیسے کہ رسیدیں اور دیگر مالیاتی دستاویزات کو ہینڈل کرنے کے لیے ڈیزائن کیا گیا تھا، اس لیے یہ صرف ایک نمبر <6 کو تبدیل کر سکتا ہے۔>ایک وقت میں۔
• ایک نمبروں کے کالم کے ہجے کرنے کے لیے، پہلے سیل میں ایک فارمولہ داخل کریں، اور پھر فارمولے کو نیچے کاپی کریں۔
• اگر امکان ہو کہ آپ کا ماخذ ڈیٹا مستقبل میں تبدیل ہو سکتا ہے، بہتر ہے کہ نتیجہ کو فارمولے کے طور پر داخل کریں ، اس لیے یہ خود بخود اپ ڈیٹ ہو جاتا ہے جیسے ہی اصل نمبر تبدیل ہوتا ہے۔
• جب نتیجہ کو فارمولے کے طور پر منتخب کرتے ہو اختیار، ایک حسب ضرورت صارف کی طرف سے طے شدہ فنکشن (UDF) داخل کیا جاتا ہے۔ اگر آپ اپنی ورک بک کو کسی ایسے شخص کے ساتھ شیئر کرنے کا ارادہ رکھتے ہیں جس کے پاس الٹیمیٹ سویٹ انسٹال نہیں ہے، تو شیئر کرنے سے پہلے فارمولوں کو اقدار سے بدلنا یاد رکھیں۔

تبدیلی کو تبدیل کریں - انگریزی الفاظ کو نمبروں میں

سچ میں سوچ بھی نہیں سکتا کہ آپ کو اس کی ضرورت کیوں پڑ سکتی ہے۔ صرف اس صورت میں… :)

ایسا معلوم ہوتا ہے کہ ایکسل ایم وی پی، جیری لیتھم نے ایکسل یوزر ڈیفائنڈ فنکشن (UDF) کو WordsToDigits بنایا ہے۔ یہ انگریزی الفاظ کو واپس نمبر میں بدل دیتا ہے۔

آپ UDF کوڈ دیکھنے کے لیے جیری کی WordsToDigits ورک بک ڈاؤن لوڈ کر سکتے ہیں۔ یہاں آپ کو اس کی مثالیں بھی ملیں گی کہ اسے کیسے استعمال کیا جائے۔فنکشن

آپ دیکھ سکتے ہیں کہ فنکشن شیٹ پر کیسے کام کرتا ہے " Sample Entry "، جہاں آپ اپنی مثالیں بھی درج کر سکیں گے۔ اگر آپ اپنے دستاویزات میں WordsToDigits کو استعمال کرنے کا ارادہ رکھتے ہیں، تو براہ کرم مطلع کریں کہ اس فنکشن میں پابندیاں ہیں۔ مثال کے طور پر، یہ الفاظ میں درج کردہ حصوں کو نہیں پہچانتا ہے۔ آپ کو تمام تفصیلات " معلومات " شیٹ پر مل جائیں گی۔