/ / एक्सेल वीबीए में दूसरा उच्चतम मूल्य खोजें

एक्सेल वीबीए में दूसरा उच्चतम मूल्य खोजें

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA उस दूसरा उच्चतम मूल्य पाता है.

परिस्थिति:

एक्सेल वीबीए में दूसरा उच्चतम मूल्य खोजें

1। सबसे पहले, हम दो रेंज ऑब्जेक्ट्स और दो प्रकार के दो प्रकार घोषित करते हैं। हम रेंज ऑब्जेक्ट्स आरएनजी और सेल कहते हैं। एक डबल वैरिएबल जिसे हम उच्चतम वेल्यू कहते हैं, और एक डबल वैरिएबल जिसे हम दूसरे हाइजेस्टवेल कहते हैं।

Dim rng As Range, cell As Range
Dim highestValue As Double, secondHighestValue As Double

2. हम रेंज ऑब्जेक्ट आरएनजी को चयनित रेंज और वैल्यू 0 के साथ दो डबल वैरिएबल के साथ शुरू करते हैं।

Set rng = Selection
highestValue = 0
secondHighestValue = 0

3. सबसे पहले, हम उच्चतम मूल्य खोजना चाहते हैं। हम प्रत्येक सेल को यादृच्छिक रूप से चयनित श्रेणी में देखना चाहते हैं (यह रेंज किसी भी आकार का हो सकती है)। एक्सेल वीबीए में, आप इसके लिए प्रत्येक अगला लूप का उपयोग कर सकते हैं। निम्नलिखित कोड लाइन जोड़ें:

"Find Highest Value
For Each cell In rng

Next cell

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

4. हम इस सीमा में प्रत्येक सेल की जांच करते हैं। यदि यह उच्चतम वैल्यू से अधिक है, तो हम वैरिएबल उच्चतम वैल्यू के लिए मान लिखते हैं। लूप पर निम्न कोड पंक्ति जोड़ें।

If cell.Value > highestValue Then highestValue = cell.Value

नोट: पहला मान उच्चतम से हमेशा उच्च होता है क्योंकि उच्चतम मूल्य का प्रारंभिक मूल्य 0 है।

5. दूसरा, हम दूसरा उच्चतम मूल्य खोजना चाहते हैं। हम प्रत्येक अगला लूप के लिए एक और जोड़ते हैं।

"Find Second Highest Value
For Each cell In rng

Next cell

6. हम चयनित सेल में प्रत्येक सेल को दोबारा जांचते हैं। यदि यह दूसरे हाइजेस्टवैल्यू से अधिक है और उच्चतम से कम है, तो हम वैरिएबल सेकेंड हाइजेस्ट वैल्यू को मान लिखते हैं। लूप पर निम्न कोड लाइन जोड़ें।

If cell.Value > secondHighestValue And cell.Value < highestValue Then secondHighestValue = cell.Value

7. अंत में, हम एक संदेश बॉक्स का उपयोग कर दूसरा उच्चतम मूल्य प्रदर्शित करते हैं।

MsgBox "Second Highest Value is " & secondHighestValue

8. अपने मैक्रो को कमांड बटन में रखें, संख्याओं का चयन करें, और कमांड बटन पर क्लिक करें।

परिणाम:

दूसरा उच्चतम मूल्य परिणाम खोजें

यह भी पढ़ें: