VBA Class 4.2: Understanding PROPERTIES of objects

Users who viewed this discussion (Total:3)

Abu Dujana

Thread Starter
★★☆☆☆
Dynamic Brigade
Expert
Joined
Apr 25, 2018
Threads
61
Messages
736
Likes
795
Points
259
Location
Karachi, Pakistan
#1
السلام علیکم۔۔
آج کی کلاس میں ہم وی بی اے کوڈ میں سیلز اور ورک شیٹ کے اجزاء اور ظاہر کو تبدیل کرنا سیکھیں گے۔سیکھنے کے مقاصد ملاحظہ ہو۔۔

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

طریقہ کار۔۔۔

سب سے پہلے ایڈیٹر کھولیں، ایک نیا ماژیول ایڈ کریں، درج ذیل میکرو کو اس ماژیول میں کاپی کریں اور فارم بٹن سے اس کو لنک کریں۔​
Sub properties()
'Incomplete Macro
Range ("A8")
End Sub
سب سے پہلے ہم
A8
سیل کو موڈیفائی کرتے ہیں۔
آپ لکھیں۔
Range("A8").Value

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

1546410419891.png

ہم اس کو کوئی بھی ویلیو اسائن کرسکتے ہیں یعنی نمبرز بھی اور ٹیکسٹ بھی۔۔​
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

Thread Starter
★★☆☆☆
Dynamic Brigade
Expert
Joined
Apr 25, 2018
Threads
61
Messages
736
Likes
795
Points
259
Location
Karachi, Pakistan
#2
سیل کونٹینٹ کو ڈیلیٹ کرنا۔۔

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

ClearContents

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

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

1546412595889.png


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

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

1546412678588.png

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

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

Thread Starter
★★☆☆☆
Dynamic Brigade
Expert
Joined
Apr 25, 2018
Threads
61
Messages
736
Likes
795
Points
259
Location
Karachi, Pakistan
#3
بارڈر لگانا۔

کسی سیلز پر بارڈر لگانے کی پراپرٹیز یہ ہوں گی۔۔
Sub properties()
'Add a border to cells A1 to A8
Range("A1:A8").Borders.Value = 1
'Value = 0 => no border
End
Sub

پہلے سے لگے ہوئے بارڈر کی ویلیو یوں تبدیل کرسکتے ہیں۔۔
Sub properties()
'Add a border to selected cells
Selection.Borders.Value = 1
End
Sub



کسی ورک شیٹ کو چھپانا یا ظاہر کرنا۔۔
Sub properties()
'Hide a worksheet
Sheets("Sheet3").Visible = 0
'Visible = -1 => cancels the effect
End
Sub



With

وقت اور تکرار سے بچنے کے لئے ود کا استعمال ہوتا ہے۔ مثال کے طور پر اگر ہم کسی سیل کے کئی پراپرٹیز پر کام کرنا چاہتے ہیں تو ہمیں ہر پراپرٹی کے لئے سیل کو ایکٹیو یا سلیکٹ کرنا پڑے گا جیسے۔۔
Sub properties()
ActiveCell.Borders.Weight = 3
ActiveCell.Font.Bold = True
ActiveCell.Font.Size = 18
ActiveCell.Font.Italic = True
ActiveCell.Font.Name = "Arial"
End
Sub

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

ActiveCell

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

1546413065651.png

1546413005212.png
 

Abu Dujana

Thread Starter
★★☆☆☆
Dynamic Brigade
Expert
Joined
Apr 25, 2018
Threads
61
Messages
736
Likes
795
Points
259
Location
Karachi, Pakistan
#4
ہم ان کلاسز میں بہت عام اور آسان سے وی بی اے کوڈز کے ساتھ کسٹمائزیشن کر رہے ہیں۔ کسی بھی پراپرٹیز کے حوالے سے مکمل مدد آپ ایکسل میں موجود ہیلپ اور آن لائن مائکروسافٹ ایکسل کی ہیلپ سائیٹ سے۔۔لے سکتے ہیں۔۔
شکریہ
 
Top