यह ट्यूटोरियल आपको दिखाएगा कि VBA में सॉल्वर ऐड-इन का उपयोग कैसे करें।
सॉल्वर एक ऐड-इन है जो एक्सेल के साथ प्रदान किया जाता है और इसका उपयोग 'क्या-अगर' विश्लेषण करने के लिए किया जाता है, तो आप अपनी कार्यपुस्तिका में अन्य कोशिकाओं से सूत्र को पास करने वाले मानों के आधार पर एक सेल में एक सूत्र के वैकल्पिक उत्तर प्रदान कर सकते हैं।
एक्सेल में सॉल्वर ऐड-इन सक्षम करना
को चुनिए फ़ाइल एक्सेल रिबन पर और फिर नीचे जाएं विकल्प।
चुनते हैं ऐड-इन्स और पर क्लिक करें जाना एक्सेल ऐड-इन्स के आगे बटन।
सुनिश्चित करें कि सॉल्वर ऐड-इन विकल्प चुना गया है।
वैकल्पिक रूप से, पर क्लिक करें एक्सेल ऐड-इन्स पर डेवलपर ऐड-इन्स संवाद बॉक्स प्राप्त करने के लिए रिबन।
VBA में सॉल्वर ऐड-इन सक्षम करना
एक बार जब आप एक्सेल में सॉल्वर ऐड-इन सक्षम कर लेते हैं, तो आपको वीबीए में इसका उपयोग करने के लिए अपने वीबीए प्रोजेक्ट में इसका संदर्भ जोड़ना होगा।
सुनिश्चित करें कि आप वीबीए प्रोजेक्ट में क्लिक किए गए हैं जहां आप सॉल्वर का उपयोग करना चाहते हैं। पर क्लिक करें उपकरण मेनू और फिर संदर्भ.
का एक संदर्भ सॉल्वर ऐड-इन आपके प्रोजेक्ट में जोड़ा जाएगा।
अब आप VBA कोड में सॉल्वर ऐड-इन का उपयोग कर सकते हैं!
VBA में सॉल्वर फ़ंक्शंस का उपयोग करना
वीबीए में सॉल्वर का उपयोग करने के लिए हमें 3 सॉल्वर वीबीए फ़ंक्शंस का उपयोग करने की आवश्यकता है। य़े हैं सॉल्वरओके, सॉल्वरऐड, तथा सॉल्वरसॉल्व।
सॉल्वरओके
- सेट सेल - ऐच्छिक - इसे उस सेल को संदर्भित करने की आवश्यकता है जिसे बदलने की आवश्यकता है - इसमें एक सूत्र शामिल होना चाहिए। यह से मेल खाती हैउद्देश्य सेल सेट करें बॉक्स मेंसॉल्वर पैरामीटर्स संवाद बकस।
- मैक्समिनवैल - ऐच्छिक - आप इसे १ (अधिकतम करें), २ (छोटा करें) या ३ पर सेट कर सकते हैं मैक्स, मिनट, तथामूल्य में विकल्पसॉल्वर पैरामीटर्स संवाद बकस।
- का मूल्य - ऐच्छिक -यदि MaxMinValue 3 पर सेट है, तो आपको यह तर्क देना होगा।
- परिवर्तन द्वारा - ऐच्छिक -यह सॉल्वर को बताता है कि आवश्यक मूल्य प्राप्त करने के लिए वह किन कोशिकाओं को बदल सकता है। यह से मेल खाती हैपरिवर्तनीय कोशिकाओं को बदलकर बॉक्स मेंसॉल्वर पैरामीटर्स संवाद बकस।
- यन्त्र - ऐच्छिक - यह उस समाधान पद्धति को इंगित करता है जिसका उपयोग किसी समाधान तक पहुंचने के लिए किया जाना चाहिए। सिम्प्लेक्स एलपी विधि के लिए 1, जीआरजी नॉनलाइनियर विधि के लिए 2, या विकासवादी विधि के लिए 3। यह से मेल खाती हैएक हल करने का तरीका चुनें में ड्रॉपडाउन सूचीसॉल्वर पैरामीटर्स संवाद बकस
- इंजन विवरण: - ऐच्छिक -यह हल करने की विधि का चयन करने का एक वैकल्पिक तरीका है - यहां आप "सिम्पलेक्स एलपी", "जीआरजी नॉनलाइनियर" या "इवोल्यूशनरी" स्ट्रिंग्स टाइप करेंगे। यह भी से मेल खाता हैएक हल करने का तरीका चुनें में ड्रॉपडाउन सूचीसॉल्वर पैरामीटर्स संवाद बकस
सॉल्वरजोड़ें
- सेलरेफ - आवश्यक - यह एक सेल या सेल की एक श्रृंखला का संदर्भ है जिसे समस्या को हल करने के लिए बदला जाना है।
- रिश्ता - आवश्यक - यह एक पूर्णांक है जो 1 से 6 के बीच होना चाहिए और अनुमत तार्किक संबंध को निर्दिष्ट करता है।
- 1 से कम है (<=)
- 2 बराबर है (=)
- 3 (>=) से बड़ा है
- 4 में अंतिम मान होने चाहिए जो पूर्णांक हों।
- 5 का मान 0 या 1 के बीच होना चाहिए।
- 6 में अंतिम मान होने चाहिए जो सभी भिन्न और पूर्णांक हों।
- फॉर्मूला टेक्स्ट - ऐच्छिक - बाधा का दाहिना भाग।
सॉल्वर उदाहरण बनाना
निम्नलिखित कार्यपत्रक पर विचार करें।
उपरोक्त शीट में, हमें सेल F1 से F6 में मानदंड में संशोधन करके सेल B14 को शून्य पर सेट करके मंथ नंबर एक में ब्रेक करने की आवश्यकता है।
| 123 | सब टेस्ट सॉल्वरSolverOk SetCell:="$B$14", MaxMinVal:=3, ValueOf:=0, ByChange:="$F$2:$F$6", Engine:=1, EngineDesc:="GRG Nonlinear"अंत उप |
एक बार जब आप सॉल्वरओके पैरामीटर सेट कर लेते हैं, तो आपको कुछ मानदंड प्रतिबंध जोड़ने होंगे।
| 1234567 | सब टेस्ट सॉल्वरSolverOk SetCell:="$B$14", MaxMinVal:=3, ValueOf:=0, ByChange:="$F$2:$F$6", Engine:=1, EngineDesc:="GRG Nonlinear"'मापदंड जोड़ें - F3 8 से कम नहीं हो सकता'SolverAdd CellRef:="$F$3", संबंध:=3, फॉर्मूला टेक्स्ट:="8"'मापदंड जोड़ें - F3 5000 से कम नहीं हो सकता'SolverAdd CellRef:="$F$5", संबंध:=3, फॉर्मूला टेक्स्ट:="5000"अंत उप |
एक बार जब आप सॉल्वरओके और सॉल्वरएड (यदि आवश्यक हो) सेट कर लेते हैं, तो आप समस्या का समाधान कर सकते हैं।
| 1234567 | सब टेस्ट सॉल्वरSolverOk SetCell:="$B$14", MaxMinVal:=3, ValueOf:=0, ByChange:="$F$2:$F$6", Engine:=1, EngineDesc:="GRG Nonlinear"'मानदंड जोड़ें - F3 8 से कम नहीं हो सकता SolverAdd CellRef:="$F$3", Relation:=3, FormulaText:="8" 'मापदंड जोड़ें - F3 5000 से कम नहीं हो सकताSolverAdd CellRef:="$F$5", संबंध:=3, फॉर्मूला टेक्स्ट:="5000"'समस्या का समाधान ढूंढ़े'सॉल्वरसॉल्वअंत उप |
कोड रन करने के बाद, निम्न विंडो आपकी स्क्रीन पर दिखाई देगी। आपको जिस विकल्प की आवश्यकता है उसे चुनें (यानी सॉल्वर समाधान रखें, या मूल मान पुनर्स्थापित करें), और ठीक क्लिक करें।
