MACRO

हेलो दोस्तों। सरकार ने भलेही लॉक डाउन मैं थोड़ी सी राहत दी हो। मगर इसका मतलब ये नहीं हैं की आप सोशल डिस्टेंस का पालन न करे। दोस्तों आप सभी से गुजारिश हैं , घर पर रहें। स्वस्थ रहें।  मस्त रहें।
आज हम सिंखंगे मैक्रो मैं और भी बहुत सारी शॉर्टकट बटन बनाना।

लेकिन उससे पहले हम थोड़ा VBA टूल्स को  देख लेते हैं। 

आप ऊपर की इमेज मैं देखंगे की इमेज १ मैं एक्सेल वर्कबुक दिखाई देगी।  और दूसरी  इमेज मैं २ VBA , VISUAL BASIC FOR APPLICATION अब हम VBA के बारे मैं और जानेगे।

१) VBA - VBAप्रोजेक्ट मैं आपको माइक्रोसॉफ्ट एक्सेल ऑब्जेक्ट फोल्डर के अन्दर शीट १ या थिस वर्क बुक दिखाई देगी।  यहाँ  पर हम कर रहें हैं। अगर आप ऊपर वाली इमेज मैं देखंगे तो आपको शीट १ सेलेक्ट हुई दिखाई देगी। 

यहाँ पर अगर आप शीट ऐड करेंगे तो आपको VBAप्रोजेक्ट मैं शीट २ भी दिखाई देगी। कहने का मतलब ये हैं।  आप जितने चाहो उतनी शीट्स पर काम कर सकते हो। 

अगर आपको ये टूल ना दिखाई दे तो आप CTRL+R भी प्रेस कर सकते हैं।  या व्यू मेनू पर क्लिक कर के PROJECT EXPLORER PAR CLICK KARE 

या  स्टैण्डर्ड मेनू पर भी क्लिक करके येलो बटन पर क्लिक करके इसे एक्टिव कर सकते हो। 

प्रॉपर्टीज मेनू मैं हम आगे सीखेंगे बटन का  नाम चेंज करना कलर चेंज करना और प्रॉपर्टीज चेंज करना। 

अगर ये मेनू आपको ना दिखे तो इसे भी आप व्यू मेनू पर क्लिक करके पप्रॉपर्टीज विंडोज पर क्लिक करे या फंक्शन  F4 प्रेस करे।  या स्टैण्डर्ड बार मैं येलो हाइलाइटेड के बाजु वाले बटन पर क्लिक करे। 

अब आपको उसी इंटरफ़ेस मैं व्यू कोड एरिया दिखाई देगा।  जहा पर आप कॉडिंग टाइप कर सकते हैं। 

व्यू कोड बार मैं आप देखंगे की हमने SUB PROJ_1 () टाइप किया हुआ हैं। यहाँ पर SUB का मतलब हैं SUB PROCEDURE हैं और प्रोज_१ फाइल का नाम हैं  () एंटर करने पर आप को END SUB दिखाई देगा। इनदोनो के बिच मैं आप अपना प्रोग्राम या कोडिंग टाइप कर सकते हैं। इसे एक्टिव करने के लिए आपको शीट १ पर डबल क्लिक करना होता हैं। इसे आप फंक्शन F7 प्रेस करके भी एक्टिव कर सकते हो।  या व्यू मेनू मैं क्लिक करके कोड पैर क्लिक करके भी। 

अब हम यहाँ पर एक प्रोग्राम टाइप करके देखंगे। 

प्रोग्राम १

Sub First_Macro()
MsgBox "GlobeNet Computer Education"
End Sub

आपको ये प्रोग्राम व्यू कोड मैं टाइप करना हैं।  ये प्रोग्राम आपको मैसेज बॉक्स दिखाएंगे जिसमें लिखा होगा। GLOBENET COMPUTER EDUCATION.

आपको इसे रन करने के लिए फंक्शन F5 या रन मेनू मैं क्लिक करके रन सब पर क्लिक करना होगा। 

प्रोग्राम २. 

Sub First_Macro()
'Click Run or See Program is working Proper Pressing F8 (Step into)
MsgBox "1000"
End Sub

इस प्रोग्राम मैं हम देखंगे की टेक्स्ट की जगह हम नंबर को भी ले सकते हैं। 

अगर आप यह देखना चाहते हो की आपका प्रोग्राम सही हैं या नहीं तो आप फंक्शन F8 बटन प्रेस कर सकते हो जब आप F8 प्रेस करते हो तो आपको प्रोग्राम येलो कलर मैं हाईलाइट हो जायेगा। या डिबग मेनू पर क्लिक करे स्टेप इंटो पर  क्लिक करे। 

जब आप ओके पर क्लिक करेंगे तो आपको दुबारा व्यू कोड मेनू पर लेकर जायँगे। 

यहाँ पर जब आप फाइल सेव करेंगे तो आपको फाइल का एक्सटेंशन चेंज करना होगा 

फाइल का नाम  टाइप करके एक्सेल मैक्रो इनेबल्ड वर्कबुक मैं करना होगा। 

फाइल सेव करने पर आपको vba की फाइल कुछ इस तरह दिखाई देगी 

Program.  3 Cell Reference

चार तरह के मेथड हैं इस प्रोग्राम को समझने के लिए 

१)

Sub Cell_Reference()

ActiveCell.Value="GlobeNet Computer Education"

End Sub 

यहाँ पर  देखंगे की हमने एक्टिव सेल वैल्यू  मैं ग्लोबेनेट कंप्यूट  लिखा हैं। इसे से ये होगा ये होगा एक्सेल शीट मैं जहा पर भी सेल एक्टिव होगा या जिस सेल मैं कर्सर होगा या जो भी सेल सेलेक्ट होगा वहाँ पर आपको ग्लोबेनेट कंप्यूटर एजुकेशन लिखा हुआ आएगा। 

२)

Sub Cell_Reference()

ActiveCell.Value= 150

End Sub

अब आप यहाँ पर देखंगे की हमने दोनों को एक साथ करके  समजने की कोशिश की हैं। राइट साइड मैं हमारा प्रोग्राम लिखा हुआ हैं।  और लेफ्ट साइड मैं उसका रिजल्ट। 

३)

Sub Cell_Reference()

[B5].Value=70

End Sub

यहाँ पर हमने एक्सेल को यह बताया की हमें सेल B5 मैं ७० नंबर चाहिए।

4)

Sub Cell _Reference()

[c8:c13]="GlobeNet"
End Sub
 इस प्रोग्राम मैं एक्सेल को ये बताया   गया हैं की रेंज [C8 :c13] मैं हमें  ग्लोबेनेट लिखा हुआ चाहिए। 

5 )

Sub Cell _Reference()

सेल (c8:c13).value="Ajay"
End Sub

यहाँ पर एक्सेल को ये बताया हैं की रौ नंबर ८ और कॉलम नंबर ३ मैं हमें अजय नाम चाहिए।