VBA-पाठ 5. गुण (Properties)

इस लेख में, हम सीखेंगे कि सेल सामग्री, सेल स्वयं और अक्षरों को नियंत्रित करने के लिए VBA कोड कैसे लिखें।

प्रॉपर्टी एक ऑब्जेक्ट विशेषता है जो ऑब्जेक्ट की विशेषताओं में से एक को परिभाषित करती है, जैसे कि इसका आकार, रंग, या स्क्रीन पर स्थिति, या इसके व्यवहार का एक पहलू, जैसे कि यह सक्षम है या स्क्रीन पर दिखाई देता है।

किसी वस्तु की विशेषताओं को बदलने के लिए, आपको उसके गुणों का मान बदलना होगा।

1. सेल में मान लिखें

सबसे पहले, संपादक खोलें, एक मॉड्यूल जोड़ें, इस मैक्रो को वहां कॉपी करें:

Sub Properties() 'moonexcel.com.ua
   Range ("A1")
End Sub

हमने सेल A1 की ओर रुख किया। आइए अब इस सेल को नियंत्रित करने का प्रयास करें। यह देखने के लिए कि हम क्या कर सकते हैं, आइए Range ("A1") के बाद एक बिंदु जोड़ें।

Value चुनें और Tab दबाएँ। हमें निम्नलिखित कोड मिलेगा:

Sub Properties() 'moonexcel.com.ua
        Range ("A1").Value
End Sub

Value मान सेल की सामग्री प्रदर्शित करता है।

आइए अब सेल A1 में मान 35 लिखें:

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = 35
   'सेल A1 का मान 35 है
End Sub

आइए अब सेल में टेक्स्ट लिखने का प्रयास करें (टेक्स्ट मान निर्दिष्ट करते समय, इसे दोहरे उद्धरण चिह्नों में संलग्न किया जाना चाहिए ""):

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = "यहाँ कुछ पाठ है"
End Sub

ध्यान दें कि मैक्रो आपके द्वारा पिछली बार खोली गई शीट में मान प्रदर्शित करेगा। इसलिए, पुस्तक की किसी भी शीट पर सेल की सामग्री को नियंत्रित करने के लिए, हमें सेल का पूरा पथ लिखना होगा, अर्थात् कोड के सामने शीट का नाम जोड़ना होगा, उदाहरण के लिए:

विकल्प 1. हम अक्षर के नाम से आवेदन करते हैं - Sheets('Sheet2')।

Sub properties() 'moonexcel.com.ua
   Sheets("Sheet2").Range("A1").Value = "यहाँ कुछ पाठ है"
   'इसका अर्थ है: शीट 2 खोलें, सेल ए1 चुनें और उसके मूल्य में टेक्स्ट लिखें
End Sub

विकल्प 2. हम पत्र के नाम से नहीं, बल्कि उसके क्रमांक - Sheets(2) से आवेदन करते हैं।

Sub properties() 'moonexcel.com.ua
   Sheets(2).Range("A1").Value = "यहाँ कुछ पाठ है"
End Sub

इसी प्रकार, यदि हम किसी अन्य कार्यपुस्तिका में किसी सेल को संदर्भित करना चाहते हैं, तो हमें कोड की शुरुआत में कार्यपुस्तिका का नाम लिखना होगा:

Sub properties() 'moonexcel.com.ua
   Workbooks("Book2.xlsx").Sheets("Sheet2").Range("A1").Value = "यहाँ कुछ पाठ है"
End Sub

यद्यपि हम अपने उदाहरणों में Value पैरामीटर निर्दिष्ट करते हैं, वास्तव में इसे छोड़ा जा सकता है क्योंकि यह डिफ़ॉल्ट है। अर्थात्, कोड की ये दो पंक्तियाँ समतुल्य होंगी:

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = 35
   Range("A1") = 35
End Sub

2. मान हटाना

आइए सेल A1 से मान 35 हटाएं, जिसे हमने पाठ की शुरुआत में रिकॉर्ड किया था:

Sub properties() 'moonexcel.com.ua
   Range("A1").Clear
   'मतलब: सेल A1 चुनें और इसे साफ़ करें
End Sub

3. स्वरूपण मान

यदि आप Font चुनते हैं, तो गुणों की एक सूची दिखाई देगी जिसे आप सेल पर लागू कर सकते हैं:

फ़ॉर्मेटिंग: टेक्स्ट का आकार बदलना

आइए सेल को 35 पर सेट करें और फ़ॉन्ट आकार को घटाकर 8 करें:

Sub properties() 'moonexcel.com.ua
   Range("A1") = 35
   Range("A1").Font.Size = 8
End Sub

फ़ॉर्मेटिंग: टेक्स्ट को बोल्ड बनाएं

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Bold = True
End Sub

तैलीय स्राव दूर करें:

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Bold = False
End Sub

फ़ॉर्मेटिंग: टेक्स्ट को इटैलिक बनाएं

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Italic = True
End Sub

फ़ॉर्मेटिंग: पाठ को रेखांकित करें

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Underline = True
End Sub

फ़ॉर्मेटिंग: फ़ॉन्ट प्रकार सेट करें

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Name = "Arial"
End Sub

फ़ॉर्मेटिंग: सेल को रंग दें

Sub properties() 'moonexcel.com.ua
   Range("A1").Interior.ColorIndex = 6
End Sub