एक्सेल VBA केस स्टेटमेंट का चयन करें
सेलेक्ट केस वीबीए में स्टेटमेंट होने पर मल्टीपल डाउन लिखने का एक विकल्प है, जब हमारे पास एक कोड में कई शर्तें होती हैं तो हमें कई इफ स्टेटमेंट का उपयोग करना पड़ सकता है और जो थकाऊ हो सकता है क्योंकि यह अधिक स्टेटमेंट के रूप में अधिक स्टेटमेंट प्रदान करता है, तो केस स्टेटमेंट चुनें हम मानदंड को विभिन्न मामलों और उनके अनुसार परिणाम के रूप में परिभाषित करते हैं।
सेलेक्ट CASE निर्णय लेने की प्रक्रिया में मदद करता है। इसमें, विभिन्न संभावित मामलों का आकलन करने के लिए केवल एक अभिव्यक्ति का उपयोग किया जाता है। विकसित कोड को निष्पादित करने के लिए कई स्थितियों का आसानी से विश्लेषण किया जाता है। इस केस स्टेटमेंट का उपयोग अभिव्यक्ति का आकलन करने के लिए ELSE IF के विकल्प के रूप में किया जाता है। इसे एक तार्किक फ़ंक्शन के रूप में वर्गीकृत किया गया है जो एक्सेल में इनबिल्ट है। इस फ़ंक्शन का उपयोग करने के लिए, डेवलपर टैब के तहत प्रस्तुत दृश्य मूल संपादक के माध्यम से कोड दर्ज किया जाता है।
स्पष्टीकरण
सेलेक्ट केस में स्टेटमेंट के विभिन्न समूहों का उपयोग किया जाता है। इसे प्रभावी ढंग से उपयोग करने के लिए निम्नलिखित सिंटैक्स का पालन किया जाना चाहिए। यह जावा, C # और PHP जैसी अन्य प्रोग्रामिंग भाषाओं में प्रस्तुत स्विच स्टेटमेंट के समान है।
चयन करें (केस) परीक्षण के लिए अभिव्यक्ति (केस) अभिव्यक्ति स्टेटमेंट्स की सूची (केस 1, केस 2, केस 3 और इसी तरह…) केस एल्स (एल्स स्टेट्स) अंतिम चयन
चयनित मामले से जुड़ी शर्तों के लिए स्पष्टीकरण निम्नानुसार प्रदान किया गया है।
परीक्षण के लिए एक अभिव्यक्ति: विभिन्न प्रकार के डेटा जैसे कि पूर्णांक, स्ट्रिंग, बूलियन, ऑब्जेक्ट और चरित्र का आकलन करना आवश्यक है।
अभिव्यक्तियों की सूची: दर्ज किए गए इनपुट के सटीक मिलान को खोजने के लिए मामले के साथ अभिव्यक्तियां बनाई जाती हैं। यदि दो से अधिक अभिव्यक्तियाँ हैं, तो इन्हें अल्पविराम ऑपरेटर के उपयोग से अलग किया जाता है। 'Is' एक ऐसा शब्द है जिसका उपयोग एक्सेल में तार्किक संचालकों जैसे =, =, का उपयोग करके दो अभिव्यक्तियों की तुलना करने में किया जाता है।
- एंड सिलेक्ट: यह कंस्ट्रक्टर सेलेक्ट केस की परिभाषा को बंद कर देता है
- कथन: किसी भी मिलान कथन का विश्लेषण करने के लिए मूल्यांकन किए गए अभिव्यक्तियों को चलाने के लिए केस का उपयोग करके विवरण विकसित किए जाते हैं
- अन्य विवरण: यह परीक्षण विवरण की किसी भी मामले के बयानों के साथ मेल नहीं खाता है, तो दूसरे कथन का परीक्षण करना है।
VBA चयन केस स्टेटमेंट का उपयोग कैसे करें?
VBA द्वारा प्रदान की गई चुनिंदा केस सुविधा सामान्य वर्कशीट में नहीं चलती है। हमें डेवलपर टैब के तहत विज़ुअल बेसिक विकल्प का उपयोग करने की आवश्यकता है। व्यावसायिक क्षेत्र में विभिन्न छोटे अनुप्रयोगों को चलाने के लिए उपयोगकर्ता-परिभाषित फ़ंक्शन और कोडिंग डेवलपर मोड में बनाए गए हैं।
इसका उपयोग उन स्थितियों में किया जाता है जब एक्सेल में बयान होते हैं। विभिन्न प्रकार के केस स्टेटमेंट से निपटने के लिए यह सबसे अच्छा विकल्प है। इस विकल्प का प्रभावी ढंग से उपयोग करने के लिए, निम्नलिखित कार्यों को किया जाना चाहिए।
- सबसे पहले, इसे एक्सेल शीट में कमांड बटन नियंत्रण रखकर एक मैक्रो बनाने की आवश्यकता है।
- उसके बाद, कमांड बटन पर राइट-क्लिक करें और व्यू कोड विकल्प चुनें।
- कमांड बटन फ़ंक्शन और अंतिम उप के बीच कोड रखें।
- किसी भी सिंटैक्स त्रुटियों की पहचान करने के लिए कोड को डीबग करें।
- प्रोग्राम को सफलतापूर्वक निष्पादित करने के लिए संकलन त्रुटियों को खोजने के लिए कोड को संकलित करें
- मिलान मानदंडों के आधार पर विभिन्न परिणामों का निरीक्षण करने के लिए इनपुट मान बदलें
उदाहरण # 1 - सरल चयन केस स्टेटमेंट
यह उदाहरण मिलान किए गए मान को खोजने के लिए सरल चयन मामले को समझने के लिए है।
कोड:
निजी उप सेलेक्सेक्समम्पल () डिम ए अस इंटेगर ए = २० सिलेक्ट केस ए केस १० मिसगॉक्स "फर्स्ट केस मैचेड!" केस 20 MsgBox "दूसरा मामला मिलान किया गया है!" केस 30 MsgBox "तीसरे मामले का चयन मामले में मिलान किया गया है!" केस 40 MsgBox "चौथा केस सेलेक्ट केस में मेल खाता है!" केस एल्स MsgBox "केस का कोई भी मिलान नहीं किया गया है!" एंड सेलेक्ट एंड चुनें
परिणाम:
विभिन्न मामलों के साथ परीक्षण अभिव्यक्ति की तुलना करने के लिए चार केस स्टेटमेंट और केस और स्टेटमेंट का उपयोग किया जाता है। वर्तमान उदाहरण में, दूसरा मामला 20 के साथ चर ए मैचों के रूप में मेल खाता है।
उदाहरण # 2 - ग्रेड का परीक्षण करने के लिए 'टू' कीवर्ड
यह उदाहरण चुनिंदा मामले के साथ 'टू' कीवर्ड के उपयोग की व्याख्या करता है।
कोड:
निजी उप Selcasetoexample () मंद छात्र के रूप में इंटीगर छात्र = इनपुटबॉक्स ("1 से 100 के बीच अंक दर्ज करें?") केस स्टूडेंट का चयन करें केस 1 से 36 MsgBox "विफल!" केस 37 से 55 MsgBox "C ग्रेड" केस 56 से 80 MsgBox "B ग्रेड" केस 81 से 100 MsgBox "A ग्रेड" Case Else MsgBox "आउट ऑफ रेंज" अंतिम चयन अंत उप
परिणाम:
'टू' कीवर्ड एक सीमा में परीक्षण अभिव्यक्तियों के सेट को परिभाषित करने में सहायक है। यह विभिन्न मामलों की तुलना करके एक छात्र द्वारा प्राप्त ग्रेड को खोजने में सहायक है। कार्यक्रम चलाने के बाद, हमें परिणाम प्राप्त करने के लिए मूल्य दर्ज करना होगा।
आउटपुट एक संदेश बॉक्स के साथ प्रदर्शित होता है, जैसा कि ऊपर दिए गए स्क्रीनशॉट में दिखाया गया है।
उदाहरण # 3 - सेलेक्ट केस के साथ 'इज़' कीवर्ड का उपयोग करना
यह उदाहरण चुनिंदा मामले के साथ 'इज़' कीवर्ड के उपयोग को प्रदर्शित करता है।
कोड:
सब चेकअनम्बर () डिम न्यूमैनेट इंटेर्गर इनमुटपुट = इनपुटबॉक्स ("कृपया एक नंबर दर्ज करें") केस न्यूमप्यूट केस का चयन करें = २०० एमएसगबॉक्स "आपने २०० से अधिक या बराबर संख्या में प्रवेश किया" एंड सेलेक्ट एंड
'Is' कीवर्ड केवल केस स्टेटमेंट के साथ मिलान किए गए मानों को खोजने में मदद करता है। यह आउटपुट देने के लिए दिए गए इनपुट के साथ परीक्षण अभिव्यक्ति की तुलना करता है।
The output is obtained as shown in the figure if the entered value is more than 200
Example #4 - With Command Button to Change the Values
The select case is also used with the Command button by creating a macro.
Code:
Sub color() Dim color As String color = Range("A1").Value Select Case color Case "Red", "Green", "Yellow" Range("B1").Value = 1 Case "White", "Black", "Brown" Range("B1").Value = 2 Case "Blue", "Sky Blue" Range("B1").Value = 3 Case Else Range("B1").Value = 4 End Select End Sub
As shown in the program, the input is taken from the cells of the worksheet. The program is executed after clicking on the command button used from ActiveX controls. In this, a comma separator is used to combine the test expressions.
When the value in the Cell A1 changed, it results in a change in the B1 cell also by running the excel macro through the command button. You can refer to the screenshot given below:-
Example #5 - Check a Number Odd or Even
This example to help to check a number is even or odd.
Code:
Sub CheckOddEven() CheckValue = InputBox("Enter the Number") Select Case (CheckValue Mod 2) = 0 Case True MsgBox "The number is even" Case False MsgBox "The number is odd" End Select End Sub
The coding is developed, as shown in the screenshot, and output is displayed as follows when even the number is entered.
Example #6 - Nested Select Case Statements
Nesting is a useful feature of the select case, and the way how it is done is shown.
Code:
Sub TestWeekday() Select Case Weekday(Now) Case 1, 7 Select Case Weekday(Now) Case 1 MsgBox "Today is Sunday" Case Else MsgBox "Today is Saturday" End Select Case Else MsgBox "Today is a Weekday" End Select End Sub
Here the select case is defined inside another select case to test a day, weekday, or weekend. Except for case 1 and 7 remaining all are weekdays (Note: case 1 is Sunday and case 7 is Saturday)
Things to Remember
- The ‘Is’ keyword using in the statement of (case) and (case else) are not equal.
- ActiveX control should be used in executing program through a command button taking input and displaying output in the excel sheet range of cells.
- It is hard to run the programs in VBA if macros are disabled and always enable Macros to get the best results.
- VBA एक संवेदनशील मामला है, और बेहतर परिणाम प्राप्त करने के लिए इनपुट को सही ढंग से दर्ज किया जाना चाहिए।
