अन्य कार्यपत्रक आपके VBA कोड को ट्रिगर करने के लिए उपयोग की जाने वाली कार्रवाइयाँ शामिल हैं जब कार्यपत्रक में परिवर्तन, जब यह बंद होता है (निष्क्रिय), जब वर्कशीट गणना चलती है, और अधिक।

जब आप संपादक में VBA कोड जोड़ते हैं, तो हमेशा बनाते हैं अपने VBA कोड को ऑब्जेक्ट पर रखना और उस कोड को ट्रिगर करने के लिए उपयोग की जाने वाली सही क्रिया का उपयोग करना सुनिश्चित करें।

VBA IF कथन

एक IF VBA में कथन ठीक वैसे ही काम करता है जैसे यह किसी अन्य प्रोग्रामिंग भाषा में काम करता है।

IF स्टेटमेंट का पहला भाग यह देखता है कि क्या कोई शर्त या सेट की स्थिति सही है। इन शर्तों को एक या OR ऑपरेटर द्वारा एक साथ जोड़ने के लिए शामिल किया जा सकता है।

एक उदाहरण यह देखना होगा कि स्प्रेडशीट में एक ग्रेड "पासिंग" ग्रेड से ऊपर है या नहीं, और पास या असाइन करना है किसी अन्य सेल में विफल होने की स्थिति।

यदि कोशिकाएं (2, 2)>75 तब कोशिकाएं (2, 3) = "पास" अतिरिक्त कक्ष (2, 3) = "विफल"

यदि आप एक पंक्ति में संपूर्ण विवरण नहीं चाहते हैं, तो आप इसे लाइनों के अंत में "_" प्रतीक जोड़कर कई लाइनों में विभाजित कर सकते हैं।

यदि कक्ष (2, 2)>75 तो _
कक्ष (2, 3) = "पास" Else _
कक्ष (2, 3) = "विफल"

इस तकनीक का उपयोग करने से अक्सर कोड को पढ़ने और डीबग करने में बहुत आसान हो सकता है।

VBA for Next Loops

यदि एकल सेल को देखने के ऊपर दिए गए उदाहरण की तरह, यदि कथन एकल तुलना के लिए महान हैं। लेकिन क्या होगा यदि आप पूरी श्रृंखला की कोशिकाओं के माध्यम से लूप करना चाहते हैं और प्रत्येक पर एक ही IF स्टेटमेंट करते हैं?

इस मामले में आपको एक लूप की आवश्यकता है।

ऐसा करने के लिए, आपको एक सीमा की लंबाई का उपयोग करना होगा, और उस लंबाई के माध्यम से लूप को उन पंक्तियों की संख्या से जोड़ना होगा जिनमें डेटा है।

ऐसा करने के लिए, आपको आवश्यकता है। रेंज और सेल चर को परिभाषित करने के लिए, और उनके माध्यम से लूप। आपको एक काउंटर को परिभाषित करने की भी आवश्यकता होगी ताकि आप परिणामों को उचित पंक्ति में आउटपुट कर सकें। तो आपके VBA कोड में सबसे पहले यह पंक्ति होगी।

Dim rng As Range, cell as Range
Dim rowCounter as Integer

सीमा आकार को निम्नानुसार परिभाषित करें।

rng = Range ("B2: B7")
rowCounter = 2

अंत में, आप बना सकते हैं आपके लूप को उस सीमा में प्रत्येक सेल के माध्यम से कदम बढ़ाने और तुलना करने के लिए।

For Each cell In rng

If cell.Value > 75 Then _ Cells(rowCounter, 3) = "Pass" Else _ Cells(rowCounter, 3) = "Fail" rowCounter = rowCounter + 1 Next cell

एक बार यह VBA स्क्रिप्ट चला जाए, तो आप देखें वास्तविक स्प्रेडशीट में परिणाम।

>

VBA जबकि लूप्स

जबकि लूप भी फॉर लूप की तरह बयानों की एक श्रृंखला के माध्यम से लूप करता है, लेकिन जारी रखने के लिए लूपिंग की स्थिति एक शर्त है सच।

उदाहरण के लिए, आप एक ही लूप के लिए ऊपर लिख सकते हैं, एक WHILE लूप के रूप में, केवल निम्न के रूप में पंक्तिबद्ध चर का उपयोग करके।

While rowCounter < rng.Count + 2

If Cells(rowCounter, 2) > 75 Then _ Cells(rowCounter, 3) = "Pass" Else _ Cells(rowCounter, 3) = "Fail" rowCounter = rowCounter + 1 Wend

। नोट: rng.Count + 2समाप्ति सीमा की आवश्यकता है क्योंकि पंक्ति काउंटर 2 से शुरू होता है और पंक्ति 7 पर समाप्त होने की आवश्यकता होती है जहां डेटा समाप्त होता है। हालाँकि, रेंज की संख्या (B2: B7) केवल 6 है, और जबकि लूप केवल तभी समाप्त होगा जब काउंटर काउंटर की तुलना में बड़ा होगा - इसलिए अंतिम पंक्ति-का मान 8 (या rng.Count + 2) होना चाहिए।

आप लूप को निम्न प्रकार से सेट कर सकते हैं:

जबकि rowCounter <= rng.Count + 1

आप कर सकते हैं केवल 1 से रेंज काउंट (6) बढ़ाएँ, क्योंकि एक बार जब rowCounter वैरिएबल डेटा (पंक्ति 7) के अंत तक पहुँच जाता है, तो लूप समाप्त हो सकता है।

VBA डू और लूप्स तक करें। / strong>

जब तक करें और करें जब तक कि छोरों लगभग छोरों के समान न हों, लेकिन थोड़ा अलग काम करते हैं।

जबकि लूपजाँचता है कि क्या। लूप की शुरुआत में एक शर्त सही होती है।

डू-जबकि लूपयह जांचता है कि क्या लूप में कथनों को निष्पादित करने के बाद कोई शर्त सही है।

Do-तक लूपयह जांचता है कि क्या लूप निष्पादित करने के बाद भी कोई स्थिति गलत है।

इस मामले में आप फिर से लिखेंगे वह जबकि पाश के रूप में निम्नानुसार है, दो-जबकि पाश के रूप में।

Do

If Cells(rowCounter, 2) > 75 Then _ Cells(rowCounter, 3) = "Pass" Else _ Cells(rowCounter, 3) = "Fail" rowCounter = rowCounter + 1 Loop While rowCounter < rng.Count + 2

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

VBA केस स्टेटमेंट्स का चयन करें

आपको अपने VBA कोड को स्ट्रक्चर करना शुरू करने के लिए अंतिम प्रकार के लॉजिकल स्टेटमेंट का चयन करना होगा। केस स्टेटमेंट्स का चयन करें।

ऊपर दिए गए उदाहरण को देखते हुए, हम कहते हैं कि आप एक ग्रेडिंग विधि चाहते हैं जो केवल पास फेल न हो। इसके बजाय, आप A से F के माध्यम से एक पत्र ग्रेड असाइन करना चाहते हैं।

आप निम्नलिखित चुनिंदा केस स्टेटमेंट के साथ ऐसा कर सकते हैं:

For Each cell In rng

Select Case cell Case 95 To 100 Cells(rowCounter, 3) = "A" Case 85 To 94 Cells(rowCounter, 3) = "B" Case 75 To 84 Cells(rowCounter, 3) = "C" Case 65 To 74 Cells(rowCounter, 3) = "D" Case 0 To 64 Cells(rowCounter, 3) = "F" End Select rowCounter = rowCounter + 1 Next cell

परिणामी स्प्रेडशीट इसके बाद VBA स्क्रिप्ट रन नीचे की तरह दिखता है।

अब आप अपने Microsoft Office अनुप्रयोगों में VBA का उपयोग शुरू करने के लिए जो कुछ भी जानना चाहते हैं, वह सब कुछ जानते हैं।

एक्सेल VBA मूल बातें: डेटा प्रकार, मंद & amp; सेट (उन्हें सही ढंग से उपयोग करने के लिए जानें)

संबंधित पोस्ट: