فيديو: الدرس التاسع : فتح نموذج او تقرير على سجل محدد بناء على قيمة في نموذج اخر 2024
إن مرونة حافظة أزرار فبا تجعل من السهل تخصيص مربعات رسائل إكسيل. يمكنك اختيار الأزرار المراد عرضها، وتحديد ما إذا كان رمز يظهر، وتحديد أي زر هو الافتراضي (الزر الافتراضي هو "النقر" إذا كان المستخدم يضغط على إنتر).
يمكنك استخدام ثوابت مدمجة لحجة الأزرار. إذا كنت تفضل، يمكنك استخدام القيمة بدلا من ثابت (ولكن باستخدام الثوابت المضمنة هو أسهل كثيرا).
لاستخدام أكثر من واحد من هذه الثوابت كوسيطة، فقط قم بتوصيلها مع عامل +. على سبيل المثال، لعرض مربع رسالة مع نعم و لا الأزرار ورمز تعجب استخدم التعبير التالي كوسيطة مسغبوكس الثانية:
فيسنو + فكسكلاماتيون
أو إذا كنت تفضل جعل التعليمات البرمجية أقل مفهومة، استخدم بقيمة 52 (أي 4 + 48).
يستخدم المثال التالي مجموعة من الثوابت لعرض مربع رسالة مع زر نعم وزر لا (فبيسنو) بالإضافة إلى رمز علامة الاستفهام (فكستيون). يحدد vbDefaultButton2 المستمر الزر الثاني (لا) كزر افتراضي - أي الزر الذي يتم النقر عليه إذا ضغط المستخدم على إنتر. للبساطة، يتم تعيين هذه الثوابت إلى متغير كونفيغ ثم استخدام كونفيغ كوسيطة ثانية في الدالة مسغبوكس:
سوب GetAnswer3 () ديم كونفيغ كما هو طويل ديم أنس أس كونفيغ = فبيسنو + فكستيون + vbDefaultButton2 أنس = مسغبوكس ("معالجة التقرير الشهري؟"، كونفيغ) إذا أنس = فبيس ثم رونريبورت إند سوب
تحقق من مربع الرسالة يعرض إكسيل عند تنفيذ الإجراء GetAnswer3. إذا قام المستخدم بالنقر فوق الزر نعم، يقوم الروتين بتنفيذ الإجراء المسمى رونريبورت. إذا نقر المستخدم على الزر نو (أو اضغط على إنتر)، ينتهي الروتين بدون إجراء. لأنه تم حذف وسيطة العنوان في الدالة مسغبوكس يستخدم إكسيل العنوان الافتراضي ميكروسوفت إكسيل.
يقدم الروتين التالي مثالا آخر على استخدام الدالة مسغبوكس:
سوب GetAnswer4 () ديم مسغ أس سترينغ، العنوان كسلسلة ديم كونفيغ أس إنتيجر، أنس أس إنتيجر مسغ = "هل تريد معالجة التقرير الشهري؟ "مسغ = مسغ & فبنولين & فبنولين مسغ = مسغ &" معالجة التقرير الشهري "مسغ = مسغ &" يستغرق حوالي 15 دقيقة. سيؤدي "مسغ = مسغ &" إلى إنشاء تقرير مكون من 30 صفحة ل "مسغ = مسغ &" جميع مكاتب المبيعات للحالية "مسغ = مسغ &" الشهر. "تيتل =" شيز ماركيتينغ كومباني "كونفيغ = فبيسنو + فكستيون أنس = مسغبوكس (مسغ، كونفيغ، تيتل) إذا كانت أنس = فبيس ثم رونريبورت إند سوب
يوضح هذا المثال طريقة فعالة لتحديد رسالة أطول في مربع رسالة.يتم استخدام متغير (مسغ) ومشغل تسلسل (&) لبناء الرسالة في سلسلة من العبارات. ثابت فبنولين إدراج حرف خط كسر يبدأ خط جديد (استخدامه مرتين لإدراج سطر فارغ). يتم استخدام وسيطة العنوان لعرض عنوان مختلف في مربع الرسالة. في ما يلي مربع الرسالة الذي يعرضه إكسيل عند تنفيذ هذا الإجراء.
يمكنك استخدام الثوابت (مثل فبيس و فنو) لقيمة إرجاع دالة مسغبوكس. وهنا بعض الثوابت الأخرى.
| ثابت | القيمة | ما يعني |
|---|---|---|
| فوك | 1 | فوق المستخدم موافق. |
| فكانسل | 2 | أنقر المستخدم إلغاء. |
| فابورت | 3 | قام المستخدم بالنقر فوق أبورت. |
| فبريتري | 4 | نقر المستخدم ريتري. |
| فبينور | 5 | نقر المستخدم على تجاهل. |
| فبيس | 6 | أنقر المستخدم نعم. |
| فنو | 7 | نقر المستخدم رقم |
وهذا كل ما تحتاج إلى معرفته حول وظيفة مسغبوكس. استخدم مربعات الرسائل بحذر، على الرغم من ذلك. لا يوجد عادة سبب لعرض مربعات الرسائل التي لا تخدم أي غرض. على سبيل المثال، يميل الناس إلى الحصول على ازعاج عندما يرون مربع رسالة كل يوم أن يقرأ صباح الخير. شكرا لتحميل مصنف إسقاط الميزانية.
