VBA मध्ये कंडिशन स्टेटमेंट

एक्सेल VBA मध्ये वापरलेली सर्वात महत्वाची कंडिशन स्टेटमेंट्स आहेत जर तर и केस निवडा. या दोन्ही अभिव्यक्ती एक किंवा अधिक परिस्थितींची चाचणी घेतात आणि परिणामांवर अवलंबून, भिन्न क्रिया करतात. आम्ही या दोन सशर्त ऑपरेटरबद्दल अधिक तपशीलाने पुढे बोलू.

व्हिज्युअल बेसिक मधील "जर...तर" विधान

ऑपरेटर जर तर स्थिती तपासते आणि, जर ते सत्य असेल (TRUE), तर क्रियांचा निर्दिष्ट संच केला जातो. अट असत्य असल्यास ते करायच्या क्रियांचा संच देखील परिभाषित करू शकते.

ऑपरेटर वाक्यरचना जर तर या प्रमाणे:

If Условие1 Then

   Действия в случае, если выполняется Условие1

ElseIf Условие2 Then

   Действия в случае, если выполняется Условие2

Else

   Действия в случае, если не выполнено ни одно из Условий

End If

या अभिव्यक्तीमध्ये, घटक अन्यथा जर и आणखी अटी ऑपरेटर आवश्यक नसल्यास वगळले जाऊ शकतात.

खाली एक उदाहरण आहे ज्यामध्ये ऑपरेटर वापरणे जर तर सक्रिय सेलचा फिल कलर त्यातील मूल्यानुसार बदलतो:

जर ActiveCell.Value < 5 नंतर ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет свет अन्यथा ActiveCell.Value < 10 नंतर ActiveCell.Interior.Color = 49407Cell.Interior.Color = 255. रंग = XNUMX 'Ячейка окрашивается в красный цвет समाप्त तर

लक्षात घ्या की अट खरी होताच, सशर्त विधानाची अंमलबजावणी रद्द केली जाते. म्हणून, जर व्हेरिएबलचे मूल्य ActiveCell 5 पेक्षा कमी असेल, तर पहिली अट खरी होईल आणि सेलचा रंग हिरवा होईल. त्यानंतर निवेदनाची अंमलबजावणी जर तर व्यत्यय आणला जातो आणि इतर परिस्थिती तपासल्या जात नाहीत.

VBA मध्ये कंडिशनल ऑपरेटर वापरण्याबद्दल अधिक जाणून घ्या जर तर मायक्रोसॉफ्ट डेव्हलपर नेटवर्कवर आढळू शकते.

व्हिज्युअल बेसिकमध्ये "केस निवडा" विधान

ऑपरेटर केस निवडा ऑपरेटर सारखे जर तर त्यामध्ये ते स्थितीचे सत्य देखील तपासते आणि निकालावर अवलंबून, पर्यायांपैकी एक निवडते.

ऑपरेटर वाक्यरचना केस निवडा या प्रमाणे:

Select Case Выражение

Case Значение1

   Действия в случае, если результат Выражения соответствует Значению1

Case Значение2

   Действия в случае, если результат Выражения соответствует Значению2

...

Case Else

   Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения

End Select

घटक केस बाकी आवश्यक नाही, परंतु अनपेक्षित मूल्ये हाताळण्यासाठी शिफारस केली जाते.

खालील उदाहरणात, रचना वापरणे केस निवडा वर्तमान सेलचा फिल कलर त्यातील मूल्यावर अवलंबून बदलतो:

ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет केस 6, 7, 8, 9 ActiveCell.Interior.Interior.Color = 49407Cell.Interior.Interior.Color = 10. आतील. रंग = 65535 'Ячейка окрашивается в жёлтый цвет केस 11 ते 20 ActiveCell.Interior.Color = 10498160 'Ячейка окрашивается окрашивается в лицовкаятый окрашивается в лицов. красный цвет शेवट निवडा

वरील उदाहरणावरून तुम्ही एखाद्या घटकासाठी विविध प्रकारे मूल्य कसे सेट करू शकता हे दाखवते. केस बांधकाम मध्ये केस निवडा. हे मार्ग आहेत:

केस आहे <= 5अशा प्रकारे, कीवर्ड वापरणे केस आहे मूल्य समाधानी आहे की नाही हे तुम्ही तपासू शकता अभिव्यक्ती फॉर्मची स्थिती <= 5.
केस 6, 7, 8, 9अशा प्रकारे तुम्ही मूल्य जुळत आहे का ते तपासू शकता अभिव्यक्ती सूचीबद्ध मूल्यांपैकी एकासह. सूचीबद्ध मूल्ये स्वल्पविरामाने विभक्त केली जातात.
केस 10हे मूल्य जुळते का ते तपासते अभिव्यक्ती दिलेल्या मूल्यासह.
केस 11 बस एवढेच 20अशा प्रकारे, मूल्य समाधानी आहे की नाही हे तपासण्यासाठी तुम्ही अभिव्यक्ती लिहू शकता अभिव्यक्ती फॉर्मची स्थिती 11 पासून 20 करण्यासाठी ("11<=मूल्य<=20" असमानतेच्या समतुल्य).
केस बाकीयाप्रमाणे, कीवर्ड वापरून आणखी, मूल्य असल्यास केससाठी क्रिया दर्शविल्या जातात अभिव्यक्ती सूचीबद्ध केलेल्या कोणत्याही पर्यायांशी जुळत नाही केस.

परिस्थितीपैकी एक आढळताच, संबंधित क्रिया केल्या जातात आणि रचना बाहेर पडते. केस निवडा. म्हणजेच, कोणत्याही परिस्थितीत, सूचीबद्ध शाखांपैकी फक्त एकच कार्यान्वित होईल. केस.

VBA स्टेटमेंटच्या ऑपरेशनबद्दल अधिक माहिती केस निवडा मायक्रोसॉफ्ट डेव्हलपर नेटवर्कवर आढळू शकते.

प्रत्युत्तर द्या