मुख्य सामग्री पर जाएं

 एक्सेल में मैक्रो चलाने से पहले हां नहीं संदेश बॉक्स कैसे बनाएं?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2018-08-02

एक्सेल में, आप सीधे दबाकर मैक्रो को ट्रिगर कर सकते हैं F5 कुंजी या क्लिक करें रन में बटन अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। लेकिन, कभी-कभी, आप एक संदेश बॉक्स बनाना चाह सकते हैं जो उपयोगकर्ता से पूछेगा कि क्या वे मैक्रो चलाना चाहते हैं। यदि हाँ, तो कोड चलाना जारी रखें, यदि नहीं, तो कोड चलाना बंद करें। इस लेख में, मैं एक्सेल में मैक्रो चलाने से पहले हां नहीं संदेश बॉक्स बनाने के तरीके के बारे में बात करूंगा।

VBA कोड के साथ मैक्रो चलाने से पहले हां नहीं संदेश बॉक्स बनाएं


VBA कोड के साथ मैक्रो चलाने से पहले हां नहीं संदेश बॉक्स बनाएं

निम्नलिखित वीबीए कोड आपको मैक्रो चलाने की पुष्टि करने के लिए हाँ नहीं प्रॉम्प्ट बॉक्स जोड़ने में मदद कर सकता है, कृपया नीचे दिए गए चरणों का पालन करें:

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: मैक्रो चलाने से पहले हां नहीं संदेश बॉक्स बनाएं:

Sub continue()
CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
If CarryOn = vbYes Then
'put rest of code here
End If
End Sub

नोट: उपरोक्त कोड में, कृपया बिना अपना कोड कॉपी और पेस्ट करें उप शीर्षक और अंत उप के बीच पाद लेख यदि कैरीऑन = vbहाँ तो और अगर अंत स्क्रिप्ट. स्क्रीनशॉट देखें:

दस्तावेज़ संदेश बॉक्स हाँ नहीं मैक्रो 1

3। फिर दबायें F5 कुंजी, यदि आप यह कोड चलाना चाहते हैं तो आपको याद दिलाने के लिए एक प्रॉम्प्ट बॉक्स खुलेगा, क्लिक करें हाँ जारी रखने के लिए बटन, और क्लिक करें नहीं रोकने के लिए स्क्रीनशॉट देखें:

दस्तावेज़ संदेश बॉक्स हाँ नहीं मैक्रो 2

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Or you use this code on top and there is no need to put the whole code inside an if sentence

CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
If CarryOn = vbNo Then
Exit Sub
End If
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations