VBA Class 4.2: Understanding PROPERTIES of objects

Abu Dujana

Thread Starter
⭐⭐⭐⭐⭐⭐
Charismatic
Expert
Popular
Helping Hands
Joined
Apr 25, 2018
Local time
5:22 PM
Threads
81
Messages
968
Reaction score
1,366
Points
452
Location
Karachi, Pakistan
Gold Coins
516.01
السلام علیکم۔۔
آج کی کلاس میں ہم وی بی اے کوڈ میں سیلز اور ورک شیٹ کے اجزاء اور ظاہر کو تبدیل کرنا سیکھیں گے۔سیکھنے کے مقاصد ملاحظہ ہو۔۔

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

طریقہ کار۔۔۔

سب سے پہلے ایڈیٹر کھولیں، ایک نیا ماژیول ایڈ کریں، درج ذیل میکرو کو اس ماژیول میں کاپی کریں اور فارم بٹن سے اس کو لنک کریں۔​
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
⭐⭐⭐⭐⭐⭐
Charismatic
Expert
Popular
Helping Hands
Joined
Apr 25, 2018
Local time
5:22 PM
Threads
81
Messages
968
Reaction score
1,366
Points
452
Location
Karachi, Pakistan
Gold Coins
516.01
سیل کونٹینٹ کو ڈیلیٹ کرنا۔۔

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

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
⭐⭐⭐⭐⭐⭐
Charismatic
Expert
Popular
Helping Hands
Joined
Apr 25, 2018
Local time
5:22 PM
Threads
81
Messages
968
Reaction score
1,366
Points
452
Location
Karachi, Pakistan
Gold Coins
516.01
بارڈر لگانا۔

کسی سیلز پر بارڈر لگانے کی پراپرٹیز یہ ہوں گی۔۔
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

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

1546413065651.png

1546413005212.png
 

Abu Dujana

Thread Starter
⭐⭐⭐⭐⭐⭐
Charismatic
Expert
Popular
Helping Hands
Joined
Apr 25, 2018
Local time
5:22 PM
Threads
81
Messages
968
Reaction score
1,366
Points
452
Location
Karachi, Pakistan
Gold Coins
516.01
ہم ان کلاسز میں بہت عام اور آسان سے وی بی اے کوڈز کے ساتھ کسٹمائزیشن کر رہے ہیں۔ کسی بھی پراپرٹیز کے حوالے سے مکمل مدد آپ ایکسل میں موجود ہیلپ اور آن لائن مائکروسافٹ ایکسل کی ہیلپ سائیٹ سے۔۔لے سکتے ہیں۔۔
شکریہ
 

Doctor

⭐⭐⭐⭐⭐⭐
Charismatic
Designer
Expert
Writer
Popular
King of Alkamunia
Proud Pakistani
🏆 ZH Top Poster in a Month Award 🕖
الکمونیا میں تو ایسا نہیں ہوتا
Top Poster
ITD Developer
Joined
Apr 25, 2018
Local time
5:22 PM
Threads
904
Messages
14,013
Reaction score
15,255
Points
1,977
Age
47
Location
Rawalpindi
Gold Coins
4,133.01
Get Unlimited Tags / Banners
Permanently Change Username Color & Style.
Get Unlimited Tags / Banners
Get Unlimited Tags / Banners
Thread Highlight Unlimited
Change Username Style.

Mr. A

⭐⭐⭐⭐⭐⭐
Charismatic
Champion
Expert
Popular
نماز مومن کا نور ہے
بیشک دین آسان ہے
دین خیرخواہی کا نام ہے
نیکی اچھّے اخلاق کا نام ہے
اعمال کا دارومدار نیتوں پر ہے
Master Blaster
Gentleman
Joined
Apr 25, 2018
Local time
5:22 PM
Threads
651
Messages
1,329
Reaction score
1,879
Points
935
Gold Coins
2,610.01
Get Unlimited Tags / Banners
Get Unlimited Tags / Banners
Get Unlimited Tags / Banners
Get Unlimited Tags / Banners
Permanently Change Username Color & Style.
Get Unlimited Tags / Banners
Promotion from ITD Star to Super Star.

PakArt UrduLover

in memoriam 1961-2020، May his soul rest in peace
Charismatic
Designer
Expert
Writer
Popular
Persistent Person
ITD Supporter
ITD Observer
ITD Solo Person
ITD Fan Fictionest
ITD Well Wishir
ITD Intrinsic Person
Joined
May 9, 2018
Local time
1:22 PM
Threads
1,353
Messages
7,658
Reaction score
6,974
Points
1,508
Location
Manchester U.K
Gold Coins
124.01
Get Unlimited Tags / Banners
Promotion from VIP to ITD Star.
Get Unlimited Tags / Banners
Get Unlimited Tags / Banners
Get Unlimited Tags / Banners
Get Unlimited Tags / Banners
Thread Highlight Unlimited
Thread Highlight Unlimited
Top
AdBlock Detected

We get it, advertisements are annoying!

Sure, ad-blocking software does a great job at blocking ads, but it also blocks useful features of our website. For the best site experience please disable your AdBlocker.

I've Disabled AdBlock    No Thanks