VBA VAL | VBA VAL فنکشن کا استعمال کیسے کریں؟ (مثالوں کے ساتھ)
ایکسل وی بی اے ویل فنکشن
وی بی اے میں ویل فنکشن سٹرنگ افعال کے تحت آتا ہے ، یہ وی بی اے میں ایک انبلٹ فنکشن بھی ہے جو ڈیٹا متغیر سے عددی اقدار حاصل کرنے کے لئے استعمال ہوتا ہے ، فرض کریں اگر اگر ایک متغیر کی قیمت A10 ہے تو ویل فنکشن ہمیں 10 کو آؤٹ پٹ دے گا ، یہ اسٹرنگ کی طرح لیتا ہے۔ ایک دلیل اور سٹرنگ میں موجود نمبروں کو لوٹاتا ہے۔
VAL VBA اصطلاح میں VALUE کا مطلب ہے۔ اس فنکشن سے اعداد پر مشتمل اسٹرنگ کو ایک اصل تعداد میں بدل دیتا ہے۔ مثال کے طور پر ، اگر آپ "1234 عالمی" ٹیکسٹک تار فراہم کرتے ہیں تو یہ صرف عددی حصہ یعنی 1234 ہی لوٹائے گا۔
اکثر اوقات ، جب ہم ویب نمبروں سے ڈیٹا ڈاؤن لوڈ کرتے یا حاصل کرتے ہیں تو عام طور پر اسپریڈشیٹ میں متن کی قدر کے طور پر ذخیرہ ہوجاتے ہیں۔ اگر آپ کو ایکسل میں صحیح کام سے واقف نہیں ہیں تو متن کو اعداد میں تبدیل کرنا سب سے مشکل کام ہے۔ ایک باقاعدہ ورک شیٹ فنکشن کے طور پر ، ہمارے پاس VALUE نامی ایک فنکشن موجود ہے جو ورکنگ شیٹ میں ایک سادہ فنکشن کے ساتھ تمام سٹرنگز کو عین مطابق تعداد میں تبدیل کردے گا۔ اس آرٹیکل میں ، ہم دکھائیں گے کہ VAL فنکشن کا استعمال کرکے وی بی اے میں اس کو کیسے حاصل کیا جاسکتا ہے۔
نحو
اس کی صرف ایک دلیل ہے یعنی سٹرنگ۔
- تار: یہ محض ایک تار والی قدر ہے جس کی ہم کوشش کر رہے ہیں کہ عددی حصہ کو اس سے نکالیں۔
تو ، VAL فنکشن فراہم کردہ سٹرنگ کو ایک عددی قدر میں بدل دیتا ہے۔
نوٹ: VAL فنکشن ہمیشہ خلائی کرداروں کو نظرانداز کرتا ہے اور خلائی کردار یا حروف کے بعد نمبروں کو پڑھتا رہتا ہے۔مثال کے طور پر ، اگر فراہم کردہ تار "145 45 666 3" ہے تو یہ خلائی حروف کو نظرانداز کرے گا اور نتیجہ کو "145456663" کے طور پر واپس کرے گا۔
ایکسل VBA میں VAL فنکشن کی مثالیں
آپ یہ وی بی اے ویل فنکشن ایکسل ٹیمپلیٹ ڈاؤن لوڈ کرسکتے ہیں۔ وی بی اے ویل فنکشن ایکسل ٹیمپلیٹمثال # 1
آئیے آسان مثال کے ساتھ پہلی مثال کی کوشش کریں یعنی "14 56 47"
ذیل میں کوڈ آپ کے لئے ہے۔
کوڈ:
سب والی_مثال 1 () Dim k As Variant k = Val ("14 56 47") 'مندرجہ بالا کو 145647 MsgBox k End Sub کے طور پر تبدیل کریں 
جب آپ ایف 5 کی یا دستی طور پر وی بی اے کوڈ چلاتے ہیں تو ، یہ نیچے کی تصویر میں دکھائے جانے والے سارے خلائی کرداروں کو نظرانداز کرکے نتیجہ کو “145647” کے طور پر واپس کردے گا۔
مثال # 2
اس مثال میں ، ہم دیکھیں گے کہ تار کا نتیجہ "+456" کیا ہے۔
کوڈ:
سب والی_مثال 2 () Dim k As Variant k = Val ("+ 456") 'مندرجہ بالا کو 456 MsgBox k End Sub کے طور پر تبدیل کریں 
آپ اس کوڈ کو دستی طور پر یا F5 کلید کے ذریعہ چلا سکتے ہیں تاکہ +456 کو نظرانداز کرکے 456 کے طور پر قیمت واپس کریں۔
مثال # 3
اب اسی نمبر کو منفی نشان کے ساتھ آزمائیں۔
کوڈ:
سب والی_مثال33 () Dim k As Variant k = Val ("- 456") 'مندرجہ بالا کو تبدیل کریں -456 MsgBox k End Sub 
یہ کوڈ صرف -456 کی حیثیت سے قیمت لوٹائے گا کیونکہ آپریٹر کے نشان کے ساتھ نمبر دکھایا جانا چاہئے۔
مثال # 4
اب اس تار کو "100 کلوگرام" آزمائیں۔
کوڈ:
سب Val_Example4 () Dim k As Variant k = Val ("100 KG") 'KG کو نظرانداز کرتا ہے اور صرف 100 MsgBox k End Sub واپس کرتا ہے 
اگر آپ اس کوڈ کو دستی طور پر چلاتے ہیں یا F5 کلید کا استعمال کرتے ہیں تو پھر مذکورہ بالا کوڈ "KG" کو نظر انداز کرتا ہے اور VBA میسج باکس میں صرف "100" لوٹتا ہے۔
مثال # 5
اب تاریخ کی تار کی کوشش کریں یعنی "14-05-2018"۔
کوڈ:
سب والی_مثال 5 () ڈِم ک جیسا متغیر k = ویل ("14-05-2019") 'نتیجے کے طور پر 14 لوٹتا ہے۔ MsgBox k End Sub 
مذکورہ کوڈ 14 کے نتیجے میں لوٹتا ہے کیونکہ VAL فنکشن صرف عددی قدر لے سکتا ہے جب تک کہ اسے عددی کردار کے علاوہ کوئی اور نہ مل جائے۔
مثال # 6
اب "7459 گوڈ 456" کے تار کو آزمائیں۔
کوڈ:
سب والی_مثال66 () دیم ک جیسا متغیر k = ویل ("7459 اچھا 456") 'نتیجہ کے طور پر 7459 لوٹتا ہے۔ MsgBox k End Sub 
اس وقت تک یہ تعداد نکالی جاسکے گی جب تک کہ اسے غیر عددی حرف نہیں مل جاتا یعنی نتیجہ 7459 ہے۔ اگرچہ غیر عددی قدر "اچھ” "کے بعد عددی اقدار موجود ہیں تو ، اس کے بعد وہ اعداد کو مکمل طور پر نظر انداز کردیتی ہے۔
مثال # 7
اب اسٹرنگ ویلیو "H 12456" کو آزمائیں۔
کوڈ:
سب والی_مثال 7 () Dim k As Variant k = Val ("H 12456") 'نتیجے کے طور پر 0 لوٹتا ہے۔ MsgBox k End Sub 
شارٹ کٹ کی کلید F5 یا دستی طور پر استعمال کرکے مذکورہ کوڈ کو چلائیں پھر یہ نتیجہ صفر کی حیثیت سے واپس کرتا ہے۔ کیونکہ ہم نے جو تار تیار کیا ہے اس کا پہلا کردار ایک غیر عددی حرف ہے لہذا نتیجہ صفر ہے۔
مثال # 8
اب اس تار کو آزمائیں “24545”۔ 2 "۔
کوڈ:
سب والی_مثال 8 () Dim k As Variant k = Val ("24545. 2") 'نتیجے کے طور پر 24545.2 لوٹتا ہے۔ MsgBox k End Sub 
کوڈ 24545.2 کے بطور نتیجہ لوٹاتا ہے کیوں کہ VBA VAL فنکشن ڈاٹ (.) کو اعشاریہ کردار کے طور پر سمجھتا ہے اور اس کے مطابق نتیجہ لوٹاتا ہے۔
