VBA MsgBox ہاں / نہیں | ہاں / جواب نہیں کیسے بنائیں؟

ایکسل VBA MsgBox (ہاں / نہیں)

میں وی بی اے، میسج باکس استعمال کرکے ہم ایک تشکیل دے سکتے ہیں ہاں کوئی _پیکس باکس نہیں ہے جس میں ہاں یا نہیں پر کلک کی بنیاد پر صارف کے ان پٹ کو ریکارڈ کرنے کے لئے استعمال کیا جاتا ہے ، ہاں میں کوئی میسج باکس بنانے کے نحو ذیل میں متغیر = MsgBox ("متن" ، vbQuestion + vbYesNo + vbDefaultButton2 ، "میسج باکس ٹائٹل") ہے جہاں متغیر ہے۔ ایک عدد اعداد و شمار کے طور پر اعلان کیا جانا چاہئے.

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

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

مثال کے طور پر ، VBA میں MsgBox کی ذیل کی تصویر دیکھیں۔

اگر صارف یہ کہتے ہیں کہ "ہم مخصوص کام انجام دینے کے لئے کوڈ لکھ سکتے ہیں" اور اگر صارف "نہیں" کہتا ہے تو ہم کسی اور کام کو انجام دینے کے لئے کوڈ لکھ سکتے ہیں۔

MsgBox ہاں / کوئی جواب نہیں کے ساتھ کیسے کام کریں؟

آپ یہ وی بی اے میسج باکس ہاں یا کوئی ایکسل ٹیمپلیٹ ڈاؤن لوڈ کرسکتے ہیں۔ وی بی اے میسج باکس ہاں یا کوئی ایکسل ٹیمپلیٹ

مثال # 1 - جواب پر مبنی کاپی اور پیسٹ کریں

مثال کے طور پر ، نیچے کا کوڈ ملاحظہ کریں۔

کوڈ:

 سب میسیج بکس_یہ_ن__ایسا نمونہ 1 () سٹرنگ ڈم جواب کی طرح مدھم جوابات نہیں سٹرنگ جواب کے طور پر = MsgBox ("کیا آپ کاپی کرنا چاہتے ہیں؟" ، vbQuestion + vbYesNo ، "یوزر ریپسنسی") اگر جوابسے = vbYes تو حد ("A1: A2") کاپی۔ ("C1") دوسری رینج ("A1: A2")۔ کاپی رینج ("E1") اختتام اگر ختم ہو تو 

وضاحت:

مندرجہ بالا نے اسٹرنگ یعنی متغیر کا اعلان کیا ہے۔

 مدھم جوابات جیسے اسٹرنگ 

اگلی لائن میں ، ہم نے "کیا آپ کاپی کرنا چاہتے ہیں؟" پوچھتے ہوئے میسج باکس کے ذریعہ قیمت تفویض کردی ہے۔

جوابسہ = MsgBox ("کیا آپ کاپی کرنا چاہتے ہیں؟" ، vbQuestion + vbYesNo ، "صارف کا جواب")

اب IF بیان پیغام خانہ کے ذریعہ دیئے گئے جواب کی جانچ کرتا ہے۔ اگر میسج باکس کا نتیجہ ہے vbYes پھر یہ A1 کی حد کو A2 میں کاپی کرے گا اور سیل C1 میں پیسٹ کرے گا۔

  اگر جوابسے = vbYes تو پھر حد ("A1: A2")۔ کاپی رینج ("C1")

اگر میسج باکس کے ذریعہ دیا گیا جواب نہیں ہے تو وہ A1 کی حد کو A2 میں کاپی کرکے سیل E1 میں چسپاں کرے گا۔

 دوسری رینج ("A1: A2")۔ کاپی رینج ("E1") اختتام اگر 

ٹھیک ہے ، میں نے ابھی سیل A1 اور A2 میں کچھ قدریں داخل کی ہیں۔

اب میں ایف 5 کلید کا استعمال کرکے یا رن آپشن کے ذریعہ کوڈ چلاؤں گا ، ایک میسج باکس میرے سامنے آئے گا اور میرا جواب مانگا ہے۔

اگر میں ہاں پر کلک کرتا ہوں تو ، یہ A1 سے A2 کی حد کو کاپی کرے گا اور C1 سیل میں پیسٹ کرے گا۔ اب میں ہاں پر کلک کروں گا اور نتیجہ دیکھوں گا۔

لہذا اس نے یہ کام انجام دے دیا ہے اگر جواب ہاں میں ہے تو۔

اب میں دوبارہ کوڈ چلاؤں گا۔

اس بار میں نہیں کو منتخب کروں گا اور دیکھوں گا کہ کیا ہوتا ہے۔

ہاں اس نے کوڈ یعنی تفویض کردہ کام کو انجام دیا۔

 دوسری رینج ("A1: A2")۔ کاپی رینج ("E1")

مثال # 2 - رسپانس کی بنیاد پر شیٹس کو چھپائیں اور چھپائیں

اگر جواب ہاں میں ہے تو کوڈ کے نیچے تمام شیٹس کو فعال شیٹ کے علاوہ چھپائے گا۔

کوڈ:

 سب ہائڈ آل () ڈم جواب بطور اسٹرنگ ڈم ڈبلیو ایس کے طور پر ورکشیٹ جواب = میس بکس ("کیا آپ سب کو چھپانے کی خواہش رکھتے ہیں؟" ، vbQuetion + vbYesNo ، "Hide") اگر جواب = vbYes تو پھر WW.Name میں ہر Ws کے لئے۔ ایکٹو شیٹ۔ نام پھر Ws.Visible = xlSheetVeryHided Next Ws ElseIf اگر جواب = vbNo پھر MsgBox "آپ نے چادریں چھپانے کے لئے منتخب نہیں کیا ہے" ، vbInformation ، "کوئی چھپائیں" نہیں تو ختم 

مذکورہ کوڈ نے تمام ورک شیٹ کو چھپائے گا سوائے اس شیٹ کے جو ہم ابھی موجود ہیں اگر میسج باکس کی طرف سے جواب ہاں میں مل گیا ہے۔

اگر میسج باکس کا جواب نہیں ہے تو یہ میسج باکس کو کہتے ہوئے دکھائے گا "آپ نے شیٹس کو چھپانے کے لئے منتخب نہیں کیا ہے"۔

اسی طرح ، اگر جواب ہاں میں ہے تو نیچے کوڈ شیٹ کو چھپائے گا۔

کوڈ:

 سب انہائیڈال () مدھ جواب جیسا کہ اسٹرنگ ڈم ڈبلیو ایس کو ورکشیٹ جواب کے طور پر جواب = MsgBox ("کیا آپ سب کو چھپانا چاہتے ہیں؟" ، vbQuestion + vbYesNo ، "Hide") اگر جواب = vbYes پھر ایکٹو ورک بک میں ہر Ws کے لئے۔ Worksheets Ws.Visible = xlSheetVeryHided Next Ws ElseIf جواب = vbNo اس کے بعد MsgBox "آپ نے چادروں کو چھپانے کے لئے نہیں منتخب کیا ہے" ، vbInformation ، "No Hide" اختتام اگر اختتام سب 

یہ بالکل ویسا ہی کام کرتا ہے جیسے ہیڈ شیٹ کوڈ ، اگر ہاں تو یہ چھپائے گا ، اگر نہیں تو اسے چھپایا نہیں جائے گا۔