/ / एक्सेल वीबीए संदेश बॉक्स फंक्शन

एक्सेल वीबीए संदेश बॉक्स फंक्शन

The MsgBox फ़ंक्शन में एक्सेल VBA कोई परिणाम दे सकता है जबकि एक साधारण MsgBox नहीं कर सकता ।

परिस्थिति:

MsgBox फ़ंक्शन उदाहरण

अपने वर्कशीट पर कमांड बटन रखें और निम्न कोड लाइनें जोड़ें:

1. सबसे पहले, हम एक चर घोषित प्रकार पूर्णांक का जवाब कहा जाता है ।

Dim answer As Integer

2. हम उपयोगकर्ता से इनपुट के साथ चर उत्तर प्रारंभ करने के लिए MsgBox फ़ंक्शन का उपयोग करें ।

MsgBox फ़ंक्शन, लघुकोष्ठक का उपयोग करते समय, तीन तर्क होते हैं. संदेश बॉक्स में संदेश के लिए पहले भाग का उपयोग किया जाता है ।संदेश बॉक्स में कौन से बटंस और चिह्नों को दिखाना चाहते हैं, यह निर्दिष्ट करने के लिए दूसरे भाग का उपयोग करें ।तीसरा भाग संदेश बॉक्स के शीर्षक पट्टी में प्रदर्शित होता है ।

answer = MsgBox("Are you sure you want to empty the sheet?", vbYesNo + vbQuestion, "Empty Sheet")

नोट: अपने कर्सर को विज़ुअल बेसिक संपादक में vbYesNo पर रखें और यह देखने के लिए F1 क्लिक करें कि आप कौन से अंय बटंस और चिह्नों का उपयोग कर सकते हैं ।के बजाय स्थिरांक vbYesNo और vbQuestion, आप भी संगत मान 4 और ३२ का उपयोग कर सकते हैं ।

3. उपयोगकर्ता हां बटन क्लिक करता है, तो Excel VBA पत्रक रिक्त करता है ।यदि उपयोगकर्ता नहीं बटन क्लिक करता है, कुछ नहीं होता है । यह प्राप्त करने के लिए निम्न कोड पंक्तियाँ जोड़ें ।

If answer = vbYes Then
    Cells.ClearContents
Else
    "do nothing
End If

4. पत्रक पर आदेश बटन क्लिक करें ।

5. हां क्लिक करें ।

VBA Excel में Msgbox फ़ंक्शन

परिणाम:

MsgBox फ़ंक्शन परिणाम

यह भी पढ़ें: