VBA लक्ष्य की तलाश - एक्सेल VBA में मान ज्ञात करने के लिए लक्ष्य का उपयोग कैसे करें?

एक्सेल VBA में लक्ष्य की तलाश

लक्ष्य सीक एक्सेल VBA में उपलब्ध टूल है, जो हमें निर्धारित लक्ष्य को प्राप्त करने के लिए आवश्यक संख्या को खोजने में मदद करता है।

उदाहरण के लिए, आप एक छात्र हैं, और आपने छह उपलब्ध विषयों में से 90% के औसत अंक का लक्ष्य रखा है। अब तक, आपने 5 परीक्षाएं पूरी कर ली हैं, और आप केवल एक विषय के साथ रह गए हैं। पांच पूर्ण विषयों में से आपका अनुमानित स्कोर 89, 88, 91, 87, 89 और 90 है। अब आप जानना चाहते हैं कि 90% के कुल औसत लक्ष्य को प्राप्त करने के लिए आपको अंतिम परीक्षा में कितना स्कोर करना होगा।

यह एक्सेल वर्कशीट के साथ-साथ VBA कोडिंग में GOAL SEEK का उपयोग करके किया जा सकता है। आइए देखें कि यह VBA के साथ कैसे काम करता है।

VBA लक्ष्य सिंटैक्स

वीबीए गोल की तलाश में, हमें उस मूल्य को निर्दिष्ट करना होगा जिसे हम बदल रहे हैं और अंतिम लक्षित परिणाम तक पहुंच सकते हैं, इसलिए VBA RANGE ऑब्जेक्ट का उपयोग करके सेल संदर्भ की आपूर्ति करें। बाद में हम GOAL SEEK विकल्प का उपयोग कर सकते हैं।

नीचे VBA में लक्ष्य की तलाश का सिंटैक्स है।

  • रेंज (): इसमें, हमें सेल संदर्भ की आपूर्ति करने की आवश्यकता है जहां हमें लक्षित मूल्य प्राप्त करने की आवश्यकता है।
  • लक्ष्य: इस तर्क में, हमें यह दर्ज करने की आवश्यकता है कि लक्ष्य क्या है जिसे हम प्राप्त करने की कोशिश कर रहे हैं।
  • सेल बदलना: इस तर्क में, हमें लक्ष्य प्राप्त करने के लिए किस सेल वैल्यू को बदलकर आपूर्ति करने की आवश्यकता है।

एक्सेल VBA लक्ष्य सीक के उदाहरण

निम्नलिखित एक्सेल VBA में लक्ष्य की तलाश के उदाहरण हैं।

VBA लक्ष्य की तलाश - उदाहरण # 1

आइए केवल औसत परीक्षा स्कोर का उदाहरण लेते हैं। नीचे पूर्ण परीक्षा से 5 विषयों का प्रत्याशित स्कोर है।

पहले, हमें यह पूरा करने की आवश्यकता है कि पूर्ण 5 विषयों में से औसत अंक क्या है। B8 सेल में AVERAGE फ़ंक्शन लागू करें।

इस उदाहरण में, हमारा लक्ष्य 90 है, और परिवर्तन सेल B7 होगा । इसलिए लक्ष्य की तलाश हमें 90 के समग्र औसत को प्राप्त करने के लिए अंतिम विषय से लक्षित स्कोर खोजने में मदद करेगी।

VBA वर्ग मॉड्यूल में उपप्रक्रिया शुरू करें।

कोड:

उप लक्ष्य_से__ नमूना 1 () उप उप

अब हमें B8 सेल में परिणाम की आवश्यकता है, इसलिए RANGE ऑब्जेक्ट का उपयोग करके इस रेंज संदर्भ की आपूर्ति करें।

कोड:

उप लक्ष्य_से__ नमूना 1 () रेंज ("बी 8") समाप्ति उप

अब एक डॉट डालें और "लक्ष्य की तलाश" विकल्प दर्ज करें।

पहला तर्क इसके लिए "लक्ष्य" है। हमें RANGE B8 में आने के लिए अपना अंतिम लक्ष्य दर्ज करना होगा। इस उदाहरण में, हम 90 के लक्ष्य को प्राप्त करने की कोशिश कर रहे हैं।

कोड:

सब गोल_सेक_एक्सप्ल १ () रेंज ("बी।")। गोलसीक गोल: = ९ ० अंत उप

अगला तर्क है "सेल बदलना", इसके लिए हमें उस सेल में आपूर्ति करनी होगी जिस लक्ष्य को प्राप्त करने के लिए हमें नए मूल्य की आवश्यकता है

कोड:

उप लक्ष्य_सेक_नमूने १ () रेंज ("बी।")

इस उदाहरण में, हमारी बदलती सेल सब 6 सेल यानी बी 7 सेल है।

ठीक है, चलो देखते हैं कि 90 के समग्र औसत प्रतिशत को प्राप्त करने के लिए अंतिम विषय में क्या करने की आवश्यकता है।

इसलिए, अंतिम विषय में, 90 के समग्र औसत को प्राप्त करने के लिए 95 स्कोर करना होगा।

VBA लक्ष्य की तलाश - उदाहरण # 2

We have learned how to apply GOAL SEEK to find the number required to achieve the goal. Now we will see some advanced examples of finding the final examination score for more than one student.

Below are the anticipated scores of 5 subjects after the exam.

Since we are finding the goal for more than one student, we need to use loops. Below is the code for you.

Code:

Sub Goal_Seek_Example2() Dim k As Long Dim ResultCell As Range Dim ChangingCell As Range Dim TargetScore As Integer TargetScore = 90 For k = 2 To 5 Set ResultCell = Cells(8, k) Set ChangingCell = Cells(7, k) ResultCell.GoalSeek TargetScore, ChangingCell Next k End Sub

This code will loop through all the students’ scores and arrive final examination score required to achieve the overall average of 90.

So we got the end result now as,

छात्र A को कुल 90 प्रतिशत सुरक्षित करने के लिए सिर्फ 83 स्कोर करने की आवश्यकता है, और छात्र D को 93 स्कोर करने की आवश्यकता है।

लेकिन छात्र बी और सी को देखें। उन्हें अंतिम परीक्षा में 104 अंक हासिल करने की आवश्यकता है, जो कि संभव नहीं है।

GOAL SEEK विश्लेषण का उपयोग करते हुए, हम इस परियोजना या प्रक्रिया के माध्यम से लक्षित संख्या को प्राप्त करने के लिए आवश्यक संख्या पा सकते हैं।

याद रखने वाली चीज़ें

  • लक्ष्य खोज दोनों वर्कशीट टूल के साथ-साथ VBA टूल के साथ उपलब्ध है।
  • परिणामी सेल में हमेशा एक सूत्र होना चाहिए।
  • हमें लक्ष्य मान दर्ज करना होगा और सेल संदर्भ को लक्ष्य की तलाश के उपकरण में बदलना होगा।

दिलचस्प लेख...