VBA चीट शीट्स - कमांड और सिंटैक्स सूचियाँ

वीबीए चीट शीट पीडीएफ (मुफ्त डाउनलोड)

त्वरित संदर्भ के लिए हमारा मुफ्त एक्सेल वीबीए चीट शीट पीडीएफ डाउनलोड करें!

डाउनलोड

वीबीए धोखा पत्रक

सभी सामान्य VBA कमांड और सिंटैक्स की सूची के लिए इस पृष्ठ का संदर्भ लें। आपको कई बुनियादी आदेश मिलेंगे (उदा. एक शीट डालें) और कुछ उन्नत सिंटैक्स (उदा. सरणियों के साथ काम करना)।

सुझाव:

इस पेज को खोजने के लिए CTRL + F का प्रयोग करें।

इस पृष्ठ को बुकमार्क करें (Chrome पर CTRL + D)!

शीट्स

विवरणवीबीए कोडटैब नाम से सक्रिय करेंपत्रक ("इनपुट")। सक्रिय करेंवीबीए कोड नाम से सक्रिय करेंपत्रक 1. सक्रिय करेंसूचकांक स्थिति द्वारा सक्रिय करेंपत्रक(1).सक्रिय करेंअगली शीटएक्टिवशीट.अगला.सक्रिय करेंएक्टिवशीट प्राप्त करेंMsgBox ActiveSheet.Nameशीट का चयन करेंपत्रक ("इनपुट")। चुनेंचर पर सेट करेंवर्कशीट के रूप में डिम डब्ल्यूएस
सेट ws = एक्टिवशीटनाम / नाम बदलेंActiveSheet.Name = "नया नाम"शीट जोड़ेंपत्रक।जोड़ेंशीट और नाम जोड़ेंपत्रक। जोड़ें। नाम = "नई पत्रक"वेरिएबल में शीट जोड़ेंवर्कशीट के रूप में डिम WS
ws सेट करें = पत्रक। जोड़ेंकॉपी शीटशीट्स ("शीट 1")। पहले कॉपी करें: = शीट्स ("शीट 2")शीट छुपाएंशीट्स ("शीट 1")। दृश्यमान = गलत
या
शीट्स ("शीट 1")। दृश्यमान = xlSheetHiddenशीट दिखाएँपत्रक ("पत्रक 1")। दृश्यमान = सत्य
या
शीट्स ("शीट 1")। दृश्यमान = xlSheetVisibleबहुत छुपाएं पत्रकशीट्स ("शीट 1")। दृश्यमान = xlSheetVeryHiddenशीट हटाएंपत्रक ("शीट 1")। हटाएंसाफ़ शीटशीट्स ("शीट 1")। सेल। साफ़ करेंअसुरक्षित (कोई पासवर्ड नहीं)शीट्स ("शीट 1")। असुरक्षितअसुरक्षित (पासवर्ड)पत्रक ("शीट 1")। असुरक्षित "पासवर्ड"सुरक्षित रखें (कोई पासवर्ड नहीं)शीट्स ("शीट 1")। प्रोटेक्टसुरक्षित रखें (पासवर्ड)पत्रक ("शीट 1")। "पासवर्ड" को सुरक्षित रखेंसुरक्षित रखें लेकिन वीबीए एक्सेस की अनुमति देंशीट्स ("शीट 1")। केवल यूजर इंटरफेस को सुरक्षित रखें: = सच

ऊपर लौटें

सेल और रेंज

विवरणवीबीए कोडसेल सक्रिय करेंरेंज ("बी 3")। सक्रिय करें
सेल(3,2)। सक्रिय करेंश्रेणी का चयन करेंरेंज ("ए 1: ए 3")। चुनें:
रेंज (रेंज ("ए 1"), रेंज ("ए 3"))। चुनें
रेंज (सेल (1, 1), सेल (3, 1))। चुनेंआकाररेंज ("बी 3")। आकार बदलें (2, 2)। चुनेंओफ़्सेटरेंज ("बी 3")। ऑफसेट (2, 2)। चुनेंप्रतिलिपिरेंज ("ए 1: बी 3")। कॉपी रेंज ("डी 1")कट गयारेंज ("ए 1: बी 3")। कट रेंज ("डी 1")हटाएंरेंज ("ए 1: बी 3")। हटाएं
रेंज ("ए 1: बी 3")। शिफ्ट हटाएं: = xlShiftToLeftस्पष्टरेंज ("ए 1: ए 3")। साफ़ करें
रेंज ("A1: A3")। ClearContents
रेंज ("A1: A3")। ClearFormatगिनतीरेंज ("ए 1: ए 3")। गणना:चर पर सेट करेंरेंज के रूप में मंद rng
सेट आरएनजी = रेंज ("ए 1")मर्ज/अनमर्जरेंज ("ए 1: ए 3")। मर्ज करें
रेंज ("ए 1: ए 3")। अनमर्जकोशिकाओं के माध्यम से लूप

रेंज के रूप में मंद सेल

रेंज में प्रत्येक सेल के लिए ("A1:C3")
MsgBox सेल.वैल्यू
अगली सेल

ऊपर लौटें

पंक्तियों

विवरणवीबीए कोडसक्रियपंक्तियाँ(1).सक्रिय करें
पंक्तियाँ ("1:1")। सक्रिय करें
रेंज ("ए 1")। EntireRow.Activateलम्बाई चौड़ाईरेंज ("A1")। EntireRow.RowHeight = 30हटाएंरेंज ("A1")। EntireRow.Deleteगिनतीरेंज ("ए 1")। पंक्तियाँ। गणना:डालनेरेंज ("A1")। EntireRow.Insertअंतिममंद lRow जितनी लंबी
lRow = सेल (पंक्तियाँ। गणना, १)। समाप्ति (xlUp)। पंक्तिप्रतिलिपिरेंज ("1: 1")। कॉपी रेंज ("5: 5")डालनेरेंज ("1: 1")। कॉपी करें
रेंज ("5:5")। डालें

ऊपर लौटें

कॉलम

विवरणवीबीए कोडसक्रियकॉलम (1)। सक्रिय करें
कॉलम ("ए: ए")। सक्रिय करें
रेंज ("ए 1")। संपूर्ण कॉलम। सक्रिय करेंलम्बाई चौड़ाईरेंज ("ए 1")। संपूर्ण कॉलम। कॉलमविड्थ = 30हटाएंरेंज ("ए 1")। संपूर्ण कॉलम। हटाएंगिनतीरेंज ("ए 1")। कॉलम। गणना:डालनेरेंज ("ए 1")। संपूर्ण कॉलम। सम्मिलित करें:अंतिममंद lCol लंबे समय तक
lCol = कक्ष (1, कॉलम। गणना)। अंत (xlToLeft)। कॉलमप्रतिलिपिरेंज ("ए: ए")। कॉपी रेंज ("ई: ई")डालनेरेंज ("ए: ए")। कॉपी करें
रेंज ("ई: ई")। डालें

ऊपर लौटें

VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!

कार्यपुस्तिकाएं

विवरणवीबीए कोडसक्रियकार्यपुस्तिकाएं ("पुस्तक 1")। सक्रिय करेंपहले खोले गए को सक्रिय करेंकार्यपुस्तिका (1)। सक्रिय करेंअंतिम बार सक्रिय करेंकार्यपुस्तिकाएं (कार्यपुस्तिकाएं। गणना)। सक्रिय करेंसक्रिय कार्यपुस्तिका प्राप्त करेंMsgBox ActiveWorkbook.Nameयह कार्यपुस्तिका प्राप्त करें (वीबीए कोड युक्त)MsgBox ThisWorkbook.Nameजोड़ेंकार्यपुस्तिकाएँ।जोड़ेंचर में जोड़ेंकार्यपुस्तिका के रूप में मंद wb
wb = कार्यपुस्तिकाएँ सेट करें। जोड़ेंखोलनावर्कबुक। ओपन ("सी: \ example.xlsm")चर के लिए खुलाकार्यपुस्तिका के रूप में मंद wb
सेट wb = वर्कबुक। ओपन ("सी: \ example.xlsm")बंद करेकार्यपुस्तिकाएं ("पुस्तक 1")। सहेजें परिवर्तन बंद करें: = गलत
कार्यपुस्तिकाएं ("पुस्तक 1")। सहेजें परिवर्तन बंद करें: = सत्यसहेजेंकार्यपुस्तिकाएं ("पुस्तक 1")। सहेजेंके रूप रक्षित करेंकार्यपुस्तिकाएं ("बुक 1")। सेव अस strFileNameरक्षा/असुरक्षितकार्यपुस्तिका (1)। "पासवर्ड" को सुरक्षित रखें
कार्यपुस्तिका (1)। "पासवर्ड" को असुरक्षित करेंचर पर सेट करेंकार्यपुस्तिका के रूप में मंद wb
डब्ल्यूबी सेट करें = कार्यपुस्तिकाएं ("पुस्तक 1")वर्कबुक में सभी वर्कबुक के माध्यम से लूप

कार्यपुस्तिका के रूप में मंद wb

कार्यपुस्तिकाओं में प्रत्येक wb के लिए
MsgBox wb.Name
अगला डब्ल्यूबी

जाँच मौजूद हैअगर Dir("C:\Book1.xlsx") = "" तो
MsgBox "फ़ाइल मौजूद नहीं है।"
अगर अंतकॉपी बंदफाइलकॉपी "सी: \ file1.xlsx", "सी: \ file2.xlsx"

ऊपर लौटें

समायोजन

विवरणवीबीए कोडस्क्रीन अपडेटएप्लिकेशन.स्क्रीनअपडेटिंग = गलत
एप्लिकेशन.स्क्रीनअपडेटिंग = सहीअलर्ट प्रदर्शित करेंएप्लिकेशन। डिस्प्ले अलर्ट = गलत
एप्लिकेशन.डिस्प्लेअलर्ट्स = ट्रूआयोजनआवेदन। सक्षम करें = गलत
आवेदन। सक्षम करें = सत्यकुंजी रद्द करें सक्षम करेंApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptटेक्स्ट तुलना - केस पर ध्यान न देंविकल्प टेक्स्ट की तुलना करेंपरिवर्तनीय घोषणा की आवश्यकता हैविकल्प स्पष्टस्वचालित गणनाआवेदन.गणना = xlमैनुअल
आवेदन.गणना = xlस्वचालितबैकग्राउंड एरर चेकिंगApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = Trueफॉर्मूला बार प्रदर्शित करेंApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = Trueफ्रीज में लगे शीशेActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = Trueपूर्ण स्क्रीन दृश्यएप्लिकेशन.डिस्प्लेफुलस्क्रीन = गलत
एप्लिकेशन.डिस्प्लेफुलस्क्रीन = ट्रूपृष्ठ विराम का पूर्वावलोकनActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewस्क्रॉल बार प्रदर्शित करेंएक्टिवविंडो के साथ
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
ActiveWindow के साथ समाप्त करें
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
के साथ समाप्त करनाप्रदर्शन स्थिति बारएप्लिकेशन। डिस्प्लेस्टैटसबार = गलत
एप्लीकेशन.डिस्प्लेस्टैटसबार = ट्रूस्थिति पट्टी सामग्रीApplication.StatusBar = "मैं अभी काम कर रहा हूँ!!!"
एप्लिकेशन। स्टेटसबार = गलतकार्यपुस्तिका टैब प्रदर्शित करेंActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayWorkbookTabs = Trueउपयोगकर्ता नामApplication.UserName = "AutomateExcel.com"ऐप कैप्शनApplication.Caption = "AutomateExcel मॉडल"ज़ूमएक्टिवविंडो.ज़ूम = 80

ऊपर लौटें

त्रुटियाँ

विवरणवीबीए कोडऑन एरर - स्टॉप कोड और डिस्प्ले एररत्रुटि गोटो 0 . परऑन एरर - स्किप एरर और रनिंग जारी रखेंत्रुटि पर फिर से शुरू करें अगलात्रुटि पर - कोड की एक पंक्ति पर जाएँ [लेबल]त्रुटि गोटो पर [लेबल]साफ़ करता है (रीसेट) त्रुटित्रुटि गोटो -1 . परत्रुटि संख्या दिखाएंMsgBox Err.Numberत्रुटि का विवरण दिखाएंMsgBox Err.Descriptionस्वयं की त्रुटि उत्पन्न करने का कार्यइर्र.राइज

ऊपर लौटें

फ़ाइलें

विवरणवीबीए कोडप्रतिलिपि फ़ाइलफ़ाइलकॉपी "सी: \ परीक्षण \ test_old.xlsx", "सी: \ परीक्षण \ test_new.xlsx"फ़ाइल नष्ट करें"C:\test\example.xlsx" को मारेंफोल्डर बनाएंएमकेडीआईआर "सी:\टेस्ट\"फ़ोल्डर से सभी फ़ाइलें हटाएं"सी: \ परीक्षण \" और "*। *" को मारेंफोल्डर हटा दें"सी: \ परीक्षण \" और "*। *" को मारें
आरएमडीआईआर "सी: \ परीक्षण \"वर्तमान निर्देशिकाstrPath = CurDir ()यह कार्यपुस्तिका पथstrPath = ThisWorkbook.Pathफ़ोल्डर में सभी फाइलों के माध्यम से लूप

strFile = डिर ("सी: \ परीक्षण" और "\ *")

क्या करें जबकि लेन (strFile)> 0
डिबग। प्रिंट स्ट्रफाइल
स्ट्रफाइल = डिर
कुंडली

ऊपर लौटें

महान उत्पाद। AutoMacro सिर्फ आपका कोड नहीं लिखता है, यह आपके जाते ही सिखा देता है!" - टोनी, यूके

और अधिक जानें

हमारी 900+ समीक्षाएं पढ़ें

सरणियों

विवरणवीबीए कोडबनाएंडिम एरर(१ से ३) वैरिएंट के रूप में
गिरफ्तारी (1) = "एक"
गिरफ्तार (2) = "दो"
गिरफ्तारी (3) = "तीन"एक्सेल से बनाएंडिम एरर(१ से ३) वैरिएंट के रूप में
रेंज के रूप में मंद सेल, मैं पूर्णांक के रूप में
मैं = एलबाउंड (गिरफ्तारी)
रेंज में प्रत्येक सेल के लिए ("A1:A3")
मैं = मैं + 1
एआर (i) = सेल.वैल्यू
अगली सेलसभी आइटम पढ़ेंमंद मैं के रूप में Long
I = LBound(arr) के लिए UBound(arr) के लिए
MsgBox गिरफ्तारी (i)
अगला मैंमिटाएंगिरफ्तारी मिटाएंस्ट्रिंग के लिए सरणीमंद नाम स्ट्रिंग के रूप में
नाम = शामिल हों (गिरफ्तारी, ":")आकार बढ़ाएँरेडिम संरक्षित गिरफ्तारी (0 से 100)मूल्य ते करनागिरफ्तारी (1) = 22

ऊपर लौटें

वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!

संग्रह

विवरणवीबीए कोडबनाएंनए संग्रह के रूप में मंद कॉल
कोल। "एक" जोड़ें
कोल। "दो" जोड़ेंएक्सेल से बनाएंनए संग्रह के रूप में मंद कॉल
रेंज के रूप में मंद सेल
रेंज में प्रत्येक सेल के लिए ("A1:A2")
कोल। सेल जोड़ें। मूल्य
अगली सेलसामान जोडेंColl. "मान" जोड़ेंपहले आइटम जोड़ेंColl। "मान" जोड़ें, इससे पहले: = 1के बाद आइटम जोड़ेंColl। "मान" जोड़ें, इसके बाद: = 1आइटम पढ़ेंसंदेश बॉक्स कॉल (1)आइटम गिनेंकोल.काउंटसभी आइटम पढ़ेंडिम आइटम वैरिएंट के रूप में
कोल में प्रत्येक आइटम के लिए
संदेशबॉक्स आइटम
अगला आइटमवस्तु निकालेंकॉल.निकालें (1)सभी आइटम निकालेंकोल सेट करें = नया संग्रह

ऊपर लौटें

शब्दकोशों

विवरणवीबीए कोडआवश्यक संदर्भटूल्स> संदर्भ> माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइमबनाएंनई स्क्रिप्टिंग के रूप में डिम डिक्ट। डिक्शनरी
dict.जोड़ें ""
dict.जोड़ें ""एक्सेल से बनाएंनई स्क्रिप्टिंग के रूप में डिम डिक्ट। डिक्शनरी
रेंज के रूप में मंद सेल
पूर्णांक के रूप में मंद कुंजी
रेंज में प्रत्येक सेल के लिए ("A1:A10")
कुंजी = कुंजी + 1
dict.कुंजी जोड़ें, सेल। मूल्य
अगली सेलसामान जोडेंdict. "कुंजी", "मान" जोड़ेंविनिमय मूल्यdict ("कुंजी") = "मान"मूल्य प्राप्त करेंMsgBox dict ("कुंजी")मूल्य के लिए जाँच करेंयदि dict.Exists ("कुंजी") तो
संदेश बॉक्स "मौजूद है"
अगर अंतवस्तु निकालेंdict.Remove ("कुंजी")सभी आइटम निकालेंdict.RemoveAllवस्तुओं के माध्यम से लूपडिम कुंजी वैरिएंट के रूप में
प्रत्येक कुंजी के लिए dict.Keys
MsgBox कुंजी, तानाशाही (कुंजी)
अगली कुंजीआइटम गिनेंताना.गणनाकुंजी केस को संवेदनशील बनाएंdict.CompareMode = vbBinaryCompareकुंजी केस को असंवेदनशील बनाएंdict.CompareMode = vbTextCompare

ऊपर लौटें

AutoMacro - अंतिम VBA ऐड-इन

AutoMacro: VBA ऐड-इन सैकड़ों रेडी-टू-यूज़ VBA कोड उदाहरणों के साथ और भी बहुत कुछ!

और अधिक जानें