VBA Class 4.2: Understanding PROPERTIES of objects

[Abu Dujana]

السلام علیکم۔۔
آج کی کلاس میں ہم وی بی اے کوڈ میں سیلز اور ورک شیٹ کے اجزاء اور ظاہر کو تبدیل کرنا سیکھیں گے۔سیکھنے کے مقاصد ملاحظہ ہو۔۔

آج کے کلاس کی کچھ آؤٹ لائنز۔۔
کسی سیل کی ویلیو کو موڈیفائی کرنا
کسی سیل کی ویلیو اسائن کرنا
موجودہ شیٹ یا کسی اور شیٹ میں کسی سیل کو موڈیفائی کرنا
موجودہ ورک بک یا کسی اور ورک بک کو موڈیفائی کرنا
سیلز کونٹینٹ کو ختم یا صاف کرنا
ٹیکسٹ فارمیٹنگ جیسے۔ فونٹ فیملی، سائز، اٹالک اور بولڈ وغیرہ
بارڈر لگانا اور ہٹانا
ورک شیٹ کو چھپانا اور ظاہر کرنا۔۔
پراپرٹیز کے لئے ود کا استعمال​

طریقہ کار۔۔۔​

سب سے پہلے ایڈیٹر کھولیں، ایک نیا ماژیول ایڈ کریں، درج ذیل میکرو کو اس ماژیول میں کاپی کریں اور فارم بٹن سے اس کو لنک کریں۔​

Sub properties()
'Incomplete Macro
Range ("A8")
End Sub

سب سے پہلے ہم
A8
سیل کو موڈیفائی کرتے ہیں۔
آپ لکھیں۔
Range("A8").Value

آپ جوں ہی بریکٹ کے بعد ڈاٹ ٹائپ کریں گے آپ کے سامنے ایک لسٹ ظاہر ہوجائی گی۔ اسی میں سے ویلیو پر کلک کرکے ٹیب کا بٹن دبائیں۔
اس کیس میں جو ویلیو پراپرٹی ہے یہ سیل اے 8 کے اجزاء کو ظاہر کرتی ہے۔



ہم اس کو کوئی بھی ویلیو اسائن کرسکتے ہیں یعنی نمبرز بھی اور ٹیکسٹ بھی۔۔​

Sub properties()
Range("A8").Value = 48
End Sub
یا
Sub properties()
Range("A8").Value = "Sample text"
End Sub

واضح ہو کہ یہ کوڈ صرف موجودہ شیٹ سے رن کرنے کے لئے ہے۔ اگر آپ کسی اور شیٹ سے یہ کوڈ رن کرنا چاہتے ہیں تو پھر آپ کو اس شیٹ کو بھی سلیکٹ کرنا پڑے گا۔ جیسے۔۔​

Sheets("Sheet2").Range("A8").Value = "Sample text"

اس میں شیٹ 2 کی جگہ پر آپ مطلوبہ شیٹ کا نام لکھ سکتے ہیں۔
اسی طرح اگر کوئی دوسرا ورک بک ہے مثال کے طور پر بک 2 تو کوڈنگ کچھ یوں ہوگی۔​

Workbooks("Book2.xlsx").Sheets("Sheet2").Range("A8").Value = "Sample text"

 

[Abu Dujana]

سیل کونٹینٹ کو ڈیلیٹ کرنا۔۔

کسی سیل سے کوئی بھی چیز ڈیلیٹ کرنے کے لئے

ClearContents

پراپرٹی کا استعمال ہوتا ہے۔ جیسے۔۔

Sub properties()
'Erase the contents of column A
Range("A:A").ClearContents
End Sub




ٹیکسٹ فارمیٹنگ۔۔

جب آپ فونٹ پراپرٹی ٹائپ کردیتے ہو تو ڈاٹ لگانے کے بعد فونٹ کی تمام پراپرٹیز لسٹ میں نمودار ہوجاتی ہیں۔



یہاں سے آپ فونٹ فیملی، فونٹ سائز، اٹالک انڈر لائن وغیرہ کی پراپرٹیز لگاسکتے ہیں۔ جیسے۔۔

Sub properties()
'Edit font in cells A1 through A8
Range("A1:A8").Font.Name = "Arial"

'Edit the size of text in cells A1 through A8
Range("A1:A8").Font.Size = 18

Range("A1:A8").Font.Italic = True
Range("A1:A8").Font.Bold = True
Range("A1:A8").Font.Bold = False
End Sub​

 

[Abu Dujana]

بارڈر لگانا۔

کسی سیلز پر بارڈر لگانے کی پراپرٹیز یہ ہوں گی۔۔
​

New'">Sub properties()
New'">'Add a border to cells A1 to A8
Range("A1:A8").Borders.Value = 1
'Value = 0 => no border
End New'">Sub

پہلے سے لگے ہوئے بارڈر کی ویلیو یوں تبدیل کرسکتے ہیں۔۔
​

New'">Sub New'">properties()
'Add a border to selected cells
Selection.Borders.Value = 1
End New'">Sub

کسی ورک شیٹ کو چھپانا یا ظاہر کرنا۔۔
​

New'">Sub New'">properties()
'Hide a worksheet
Sheets("Sheet3").Visible = 0
'Visible = -1 => cancels the effect
End New'">Sub

With

وقت اور تکرار سے بچنے کے لئے ود کا استعمال ہوتا ہے۔ مثال کے طور پر اگر ہم کسی سیل کے کئی پراپرٹیز پر کام کرنا چاہتے ہیں تو ہمیں ہر پراپرٹی کے لئے سیل کو ایکٹیو یا سلیکٹ کرنا پڑے گا جیسے۔۔
​

New'">Sub New'">properties()
ActiveCell.Borders.Weight = 3
ActiveCell.Font.Bold = True
ActiveCell.Font.Size = 18
ActiveCell.Font.Italic = True
ActiveCell.Font.Name = "Arial"
End New'">Sub

اس مثال میں دیکھیں ۔۔۔

ActiveCell

بار بار دہرایا جارہا ہے۔ ود کے استعمال سے تکرار یا بار بار دہرانے سے چھٹکارا ملتا ہے۔جیسے۔۔



​

 

[Abu Dujana]

ہم ان کلاسز میں بہت عام اور آسان سے وی بی اے کوڈز کے ساتھ کسٹمائزیشن کر رہے ہیں۔ کسی بھی پراپرٹیز کے حوالے سے مکمل مدد آپ ایکسل میں موجود ہیلپ اور آن لائن مائکروسافٹ ایکسل کی ہیلپ سائیٹ سے۔۔لے سکتے ہیں۔۔
شکریہ

 

[Doctor]

 

[Mr. A]

 

[PakArt UrduLover]