VBA Class 4.3: Understanding COLORS in VBA-Excel

Abu Dujana

Thread Starter
⭐⭐⭐⭐⭐⭐
Charismatic
Expert
Popular
Helping Hands
Joined
Apr 25, 2018
Local time
10:13 PM
Threads
81
Messages
968
Reaction score
1,366
Points
452
Location
Karachi, Pakistan
Gold Coins
516.01
السلام علیکم۔۔
آج کی کلاس میں ہم پڑھیں گے۔۔۔
فونٹ (ٹیکسٹ) کلر تبدیل کرنا۔۔
کسی ایک یا متعدد سیلز کے بارڈرزکو کلر کرنا
کسی سیل کا بیک گراؤنڈ رنگ تبدیل کرنا
کسی شیٹ ٹیب کا رنگ تبدیل کرنا۔۔
۔
اس میں ہم درج ذیل پراپرٹیز کا استعمال کریں گے۔۔
ٹیکسٹ کلر کے لئے۔۔۔
New'">Font.Color
Font.ColorIndex


بارڈرز کلر کے لئے۔۔
New'">Borders.Color

سیل بیک گراؤنڈ کلر کے لئے۔۔
New'">Interior.Color

شیٹ ٹیب کلر کے لئے۔۔۔
New'">Tab.Color


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

1546748931536.png

یہاں یہ وضاحت ضروری ہے کہ ٹیکسٹ کو کلر دینے کے دو مختلف طریقے ہیں۔ ایک
Color
پراپرٹی اور دوم۔۔
ColorIndex
جیسا کہ اوپر سکرین شاٹ میں نظر آرہا ہے۔۔
کلر انڈیکس میں ہم صرف 56 رنگ دے سکتے ہیں جبکہ کلر پراپرٹی میں لاتعداد کلرز دینے کی سہولت موجود ہے۔
سب سے پہلے کلر انڈیکس کو سمجھتے ہیں۔۔کلر انڈیکس میں درج ذیل 56 کلر موجود ہوتے ہیں۔

1546749386412.png

ان 56 کلر ز میں سے جو رنگ آپ چاہیں اس کا کوڈ آپ کلر انڈیکس پراپرٹی کے ساتھ لکھ دیں۔۔ جیسے۔۔

Code:
Sub example()
        Range("A1").Font.ColorIndex = 10
End Sub
اب اوپر دئے گئے سکرین شاٹ کے مطابق 10 نمبر کوڈ کا رنگ ہرا ہے۔۔ اس وی بی اے کو رن کرنے کے بعد آپ کے سیل اے ون میں موجود ٹیکسٹ کا رنگ بھی ہرا ہوجائے گا۔۔۔​
 

Abu Dujana

Thread Starter
⭐⭐⭐⭐⭐⭐
Charismatic
Expert
Popular
Helping Hands
Joined
Apr 25, 2018
Local time
10:13 PM
Threads
81
Messages
968
Reaction score
1,366
Points
452
Location
Karachi, Pakistan
Gold Coins
516.01
اب یہاں ویسے ہی ایک دوسری مثال ملاحظہ ہو جس میں ہم کلر پراپرٹی کا استعمال کریں گے۔۔​
Code:
Sub example()
       Range("A1").Font.Color = RGB(50, 200, 100)
End Sub
اس مثال میں ہم نے آر جی بی یعنی (ریڈ، گرین، بلیو) کی نمریکل ویلیوز دی ہیں۔ آر جی بی آپ آن لائن کسی بھی کلر کا کوڈ معلوم کرسکتے ہیں۔۔ آ پ مائکروسافٹ ورڈ، ایکسل وغیرہ سے بھی یہ کوڈ معلوم کرسکتے ہیں۔۔ چند ایک مشہور کوڈ درج ذیل ہیں۔۔​

  • RGB(0, 0, 0) : black
  • RGB(255, 255, 255) : white
  • RGB(255, 0, 0) : red
  • RGB(0, 255, 0) : green
  • RGB(0, 0, 255) : blue
 

Abu Dujana

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

Code:
Sub example()
       ActiveCell.Borders.Weight = 4
       ActiveCell.Borders.Color = RGB(255, 0, 0)
End Sub
یہ افیکٹ متعدد سیلز پر اپلائی کرنے کے لئے ہم SELECTIONکمانڈ کا ستعمال کریں گے۔۔ جیسے۔۔

Code:
Sub example()
      Selection.Borders.Weight = 4
      Selection.Borders.Color = RGB(255, 0, 0)
End Sub
 

Abu Dujana

Thread Starter
⭐⭐⭐⭐⭐⭐
Charismatic
Expert
Popular
Helping Hands
Joined
Apr 25, 2018
Local time
10:13 PM
Threads
81
Messages
968
Reaction score
1,366
Points
452
Location
Karachi, Pakistan
Gold Coins
516.01
کسی ایک یا متعدد سیلز پر بیک گراؤنڈ کلر اپلائی کرنا۔۔۔
کسی بھی سیل یا سیلز کو سلیکٹ کرنے کے لئےSELECTION کمانڈ، بیک گراؤند کے لئے INTERIOR اور رنگ دینے کے لئے COLOR پراپرٹی کااستعمال ہوتا ہے۔ درج ذیل کوڈ ملاحظہ ہو۔۔

Code:
Sub example()
       Selection.Interior.Color = RGB(174, 240, 194)
End Sub
کسی ورک شیٹ کے ٹیب کو رنگ دینا
کسی بھی شیٹ کے ٹیب کو رنگ دینے کے لئے شیٹ کو سلیکٹ کرکے TAB.COLOR کا استعمال ہوتا ہے۔۔ جیسے۔۔

Code:
Sub example()
    Sheets("Sheet1").Tab.Color = RGB(255, 0, 0)
End Sub
1546753062462.png

اس کے ساتھ ہی آج کی یہ مختصر کلاس اختتام پذیر ہوتی ہے۔۔ اگلی کلاس کے لئے اجازت۔۔
اللہ حافظ۔۔
 

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
10:13 PM
Threads
905
Messages
14,019
Reaction score
15,255
Points
1,977
Age
47
Location
Rawalpindi
Gold Coins
4,134.00
Get Unlimited Tags / Banners
Permanently Change Username Color & Style.
Get Unlimited Tags / Banners
Get Unlimited Tags / Banners
Thread Highlight Unlimited
Change Username Style.

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
6:13 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