/ / एक्सेल वीबीए केस का चयन करें

एक्सेल वीबीए केस का चयन करें

यदि कई में बयान में हैं तो इसके बजाय एक्सेल VBA, आप इसका उपयोग कर सकते हैं केस संरचना का चयन करें.

परिस्थिति:

एक्सेल वीबीए में केस का चयन करें

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

1. सबसे पहले, दो चर घोषित करें। प्रकार का एक चर इंटीजर नाम स्कोर और परिणाम का एक चर प्रकार स्ट्रिंग नाम दिया।

Dim score As Integer, result As String

2. हम सेल ए 1 के मान के साथ चर स्कोर को प्रारंभ करते हैं।

score = Range("A1").Value

3. चयन केस संरचना जोड़ें।

Select Case score
    Case Is >= 80
        result = "very good"
    Case Is >= 70
        result = "good"
    Case Is >= 60
        result = "sufficient"
    Case Else
        result = "insufficient"
End Select

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

4. सेल बी 1 के परिवर्तनीय परिणाम का मान लिखें।

Range("B1").Value = result

5. कार्यक्रम का परीक्षण करें।

जब आप पत्रक पर आदेश बटन क्लिक करते हैं, तो परिणाम:

केस परिणाम का चयन करें

नोट: एक्सेल वीबीए 70 के बराबर या 80 के बराबर या 80 से कम के सभी मानों के लिए दूसरे केस स्टेटमेंट के तहत कोड निष्पादित करता है।

यह भी पढ़ें: