وی بی اے ڈکشنری | ایکسل وی بی اے لغات کے ساتھ کام کرنے کے لئے رہنما
ایکسل وی بی اے لغت
وی بی اے لغت کا استعمال کرتے ہوئے ہم ایک متغیر والی تمام اشیاء تک رسائی حاصل کرنے کے لئے ایک لغت میں ہر طرح کے ڈیٹا کو گروپ کر سکتے ہیں۔ ہم لغت کو کلیدی قدر کے امتزاج کا مجموعہ بنانے کے لئے استعمال کرسکتے ہیں۔ ایک بار جب چیز چابیاں سے منسلک ہوجاتی ہے ، بعد میں ، ہم ان کو صرف کلیدی نام استعمال کرکے کال کرسکتے ہیں۔
وی بی اے لغت اندر جانا بہت مشکل ہے لیکن ہم آپ کو سمجھنے میں آسانی پیدا کرنے کے لئے اپنی سطح کی پوری کوشش کریں گے۔ ہم لغت اور جمع دونوں کو ایک ہی پیمانے پر موازنہ کرسکتے ہیں لیکن VBA لغت میں سے کچھ ایسی فنکشنلٹی پیش کرتے ہیں جو وی بی اے کلیکشن آبجیکٹ کے ساتھ دستیاب نہیں ہیں۔
وی بی اے لغات کے ساتھ کام کرنا
وی بی اے ڈکشنریز کے ساتھ کام کرنے کے لئے سب سے پہلے ہمیں ’مائیکروسافٹ اسکرپٹنگ رن ٹائم‘ کا آبجیکٹ ریفرنس مرتب کرنا ہے۔
مندرجہ ذیل مراحل پر عمل کرنے کے لئے حوالہ مرتب کرنا۔
مرحلہ نمبر 1: ٹولز> حوالہ جات پر جائیں۔
مرحلہ 2: نیچے سکرول کریں اور 'مائیکروسافٹ اسکرپٹنگ رن ٹائم' کا انتخاب کریں اور پھر ٹھیک ہے پر کلک کریں۔
اب ہم اسکرپٹنگ لائبریری کے ذریعہ وی بی اے لغت تک رسائی حاصل کرسکتے ہیں۔
آپ یہ وی بی اے ڈکشنری ایکسل ٹیمپلیٹ ڈاؤن لوڈ کرسکتے ہیںوی بی اے کوڈ کے ساتھ لغت کی مثال تیار کریں
’مائیکروسافٹ اسکرپٹنگ رن ٹائم‘ کا حوالہ مرتب کرنے کے بعد ہمیں وی بی اے لغت کی ایک مثال تیار کرنے کی ضرورت ہے۔ پہلے ، متغیر کے طور پر اعلان کریں اسکرپٹنگ ۔ڈکشن
کوڈ:
سب Dict_Example1 () ڈم ڈکٹ بطور اسکرپٹنگ۔ ڈکشنری سب
اب متغیر "Dict" ایک آبجیکٹ متغیر ہے۔ آبجیکٹ متغیر کے ل we ، ہمیں لفظ "نیا" استعمال کرکے آبجیکٹ کا حوالہ ترتیب دینے کی ضرورت ہے۔
ڈکٹ = نیا اسکرپٹنگ ۔ڈکشن
اب ہم لغت کی تمام خصوصیات اور طریقوں تک رسائی حاصل کرسکتے ہیں۔
اب ایک متغیر کو DictResult کے طور پر اعلان کریں۔
دھیم ڈکٹ ریسلٹ ایسوسی ایٹ ویرینٹ
اب "ڈکٹ" متغیر کا استعمال کرتے ہوئے ہم ایک نئی کلید بنائیں گے۔
چابی ہم جو لفظ جوڑ رہے ہیں وہی ہے۔ آئیے موبائل فون کا نام بطور "ریڈمی" شامل کریں۔
آئٹم اس لفظ کی تعریف کے سوا کچھ نہیں ہے (چابی) ہم نے شامل کیا ہے۔ فون کی یہ تعریف اس کی قیمت ہے لہذا میں اس کی قیمت 15000 میں شامل کروں گا۔
اب ایک اور متغیر "DictResult" کے ل we ، ہم "Dict" متغیر کا استعمال کرکے کلیدی لفظ شامل کریں گے۔
چابی کیا وہ لفظ ہے جو ہم نے پچھلے مرحلے میں بنایا ہے یعنی فون کے نام۔
اب متغیر "DictResult" ہم نے جوڑی ہے اس کی چابی کا آئٹم ہے۔ اب وی بی اے میسج باکس میں متغیر کا نتیجہ دکھائیں۔
کوڈ:
سب Dict_Example1 () ڈم ڈکٹ بطور اسکرپٹنگ۔ڈوائس سیٹ ڈکٹ = نیا اسکرپٹنگ ۔ڈکشن ڈِم ڈِکٹ ریسلٹ جیسے متغیر Dict.Add key: = "Redmi"، آئٹم: = 15000 DictResult = Dict ("Redmi") MsgBox DictResult End Sub 
اب کوڈ کو دستی طور پر چلائیں یا ایف 5 کی اور میسیج باکس کا استعمال آپ کو قیمت دکھائے گا (آئٹم) فون کا (چابی) ہم نے "Dict" کا استعمال کرتے ہوئے شامل کیا ہے۔
KEY & ITEM کو سمجھنا
اگر آپ KEY & ITEM کو نہیں سمجھتے ہیں تو میں آپ کو ایک سادہ سی مثال کے ساتھ سمجھانے دیتا ہوں۔ حقیقی دنیا کی لغت کا تصور کریں ، اس لغت کے ساتھ ہمارے پاس الفاظ (چابیاں) اور ان الفاظ (آئٹم) کے معنی ہیں۔ اسی طرح الفاظ کلیدیں ہیں اور تعریف یا معنی آئٹم ہے۔
اب ، لغت کی ایک اور مثال دیکھیں۔ فرض کریں کہ آپ کسی خاص شخص کا فون نمبر ڈھونڈ رہے ہیں۔ آپ کس طرح تلاش کرتے ہیں؟
ظاہر ہے ، نام استعمال کرکے ہم نے فون نمبر کو محفوظ کرتے وقت استعمال کیا ہے۔ یہاں ہمارے پاس دو چیزیں ہیں ایک شخص کا نام اور دوسرا ہے فون نمبر.
اس شخص کا نام ہے چابی.
فون نمبر ہے آئٹم
اگر آپ ایکسل کی مثال چاہتے ہیں تو ہم مثال کے طور پر VLOOKUP دے سکتے ہیں۔ ہم لوک اپ ویلیو کی بنیاد پر اقدار کی تلاش کے لئے فارمولا استعمال کرتے ہیں (چابی). VLOOKUP فنکشن کے ذریعہ لوٹا ہوا نتیجہ کہا جاتا ہے آئٹم
چیک کریں کہ آیا موبائل فون موجود ہے یا نہیں
ذرا تصور کریں کہ آپ ایک آسان ان پٹ باکس کے ذریعہ موبائل فون کی قیمت چیک کرنے کے لئے اپنے صارفین کو صارف فارم دے رہے ہیں۔ ایکسل کے نیچے وی بی اے کوڈ صارف کے سامنے ایک ان پٹ باکس پیش کرے گا اور انہیں فون کا وہ برانڈ داخل کرنے کی ضرورت ہے جس کی وہ تلاش کر رہے ہیں ، اگر اس لغت میں اگر اس برانڈ کا نام موجود ہو تو وہ اس سے متعلقہ فون کی قیمت دکھائے گا ورنہ یہ ان شاء اللہ اس پیغام کو بطور بطور "فون تلاش کریں جس کی آپ تلاش کر رہے ہیں لائبریری میں موجود نہیں ہے"۔
کوڈ:
سب Dict_Example2 () Dim DictResult As Scripting.Distance Dim DictResult As Variant Set PhoneDict = New Scripting.Distance فون ڈیکٹ۔ایڈ کلید: = "ریڈمی" ، آئٹم: = 15000 فون ڈکٹ۔ایڈ کریں کلید: = "سیمسنگ" ، آئٹم: = 25000 فون ڈکٹ .ایڈڈ کلید: = "اوپو" ، آئٹم: = 20000 فون ڈکٹ۔ایڈڈ کلید: = "VIVO" ، آئٹم: = 21000 فون ڈکٹ۔ایڈڈ کلید: = "جیو" ، آئٹم: = 2500 ڈکٹ ریسولٹ = ایپلیکیشن۔ ان پٹ بکس (اشارہ: = "براہ کرم فون کا نام درج کریں") اگر فون ڈکٹ۔ایکسٹ (ڈکٹ ریسلٹ) پھر MsgBox "فون کی قیمت" اور DictResult & "ہے:" اور فون ڈکٹ (DictResult) اور MsgBox "جس فون کی آپ تلاش کر رہے ہیں وہ موجود نہیں ہے۔ لائبریری "اختتام اگر اختتام سب
F5 کلید یا دستی طور پر استعمال کرکے اس کوڈ کو چلائیں اور نتیجہ دیکھیں۔
