VBA Class 3: How to record, edit and rename a macro?

Abu Dujana

Thread Starter
★★★★★★
Dynamic Brigade
Expert
Joined
Apr 25, 2018
Messages
787
Reaction score
932
Points
402
Location
Karachi, Pakistan
Gold Coins
32.25
Silver Coins
750.33
Diamonds
0.00
السلام علیکم ۔

پچھلی کلاس میں ہم نے ویژیول بے سک ایڈیٹر کو سمجھا تھا ۔ جس کا لنک یہ ہے۔

Please, Log in or Register to view URLs content!

جب کہ اس کلاس میں ہم سیکھیں گے: Learning outcomes
میکرو کو ریکارڈ کرنا​
بٹن پر میکرو اسائن (تفویض) کرنا۔​
میکرو کو ری نیم اور ایڈیٹ​

میکرو ریکارڈ نگ کی مدد سے ہم کئی کاموں کو خود کار بناسکتے ہیں۔ ایک ہی مثال سے ہم درج ذیل ایکشنز کو خود کار (آٹو میٹ) کرنا سیکھیں گے۔

Objectives

کسی ایک سیل سے ویلیو کو کاپی کرکے دیگر کئی سیلز میں پیسٹ کرنا۔

میکرو کوڈنگ میں کاپی اور پیسٹ ڈیٹا اور رینج کو تبدیل کرنا۔



میکرو ریکارڈنگ۔

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

Hello World!



اب ڈیولپر ٹیب میں جاکر ریکارڈ میکرو پر کلک کریں۔



یہ ڈائیلاگ باکس آجائے گا۔۔ اوکے کردیں۔




جاری ہے۔​
 

Abu Dujana

Thread Starter
★★★★★★
Dynamic Brigade
Expert
Joined
Apr 25, 2018
Messages
787
Reaction score
932
Points
402
Location
Karachi, Pakistan
Gold Coins
32.25
Silver Coins
750.33
Diamonds
0.00
سیل بی تھری کو سلیکٹ کردیں اور کنٹرول سی دبائیں۔ (کاپی کے لئے)

سیل بی ۶ سے ایف ۱۴ تک رینج سلیکٹ کردیں اور کنٹرول وی دبائیں۔ ( پیسٹ کے لئے)





اب ڈیولپر ٹیب سے "سٹاپ ریکارڈنگ" پر کلک کردیں۔ اور مبارک ہو آپ نے پہلی میکرو ریکارڈنگ مکمل کرلی۔(تالیاں)۔

یاد رکھیں اب جب بھی ہم میکرو چلائیں گے تو سیل بی ۳ کے اندر جو ویلیو بھی ہوگی وہ خود بخود کاپی ہو کر مذکورہ رینج میں پیسٹ ہوجائیگی۔ تو چلیں کوشش کرتے ہیں۔

سیل بی ۳ میں ہیلو ورلڈ کی جگہ پر "آئی ٹی ڈی جی" لکھ لیں۔

اپنے کی بورڈ سے

Alt + F8

پریس کرلیں۔ ڈائیلاگ باکس میں "میکرو ۱" نظر آئیگا۔ اس پر کلک کرکے "رن" کا بٹن دبائیں۔ اور "تبدیلی" دیکھیں۔ (سمائیل)۔



بٹن پر میکرو اسائن (تفویض) کرنا۔

میکرو کو چلانے کے لئے "براہ راست" طریقہ "یوزر -فرینڈلی" نہیں ہے۔ بہترین اور آسان طریقہ یہ ہے کہ میکرو کو "بٹن" سے چلایا جائے۔ تو آئیے سیکھتے ہیں۔

ڈیولپر ٹیب میں جاکر کنٹرول سیکشن سے اس طرح بٹن لے آئیں۔



بٹن پر کلک کرنے کے بعدآپ شیٹ میں کہیں بھی کلک کریں جیسے ڈی ۲ وغیرہ پر۔ اب آپ کے سامنے "اسائن میکرو" کا ڈائیلاگ باکس آجائے گا۔ یہاں لسٹ سے مطلوبہ میکرو کا انتخاب کرکے اوکے کریں۔

بٹن کا "کیپشن" تبدیل کرکے "رن" لکھ لیں۔ اب چیک کرنے کے لئے کہ بٹن صحیح کام کر رہا ہے کہ نہیں۔ سیل بی ۲ کی ویلیو تبدیل کرلیں اور بٹن پر کلک کرلیں۔



میکرو کو ری نیم ، ایڈیٹ اور ڈیلیٹ کرنا

ڈیو لپر ٹیب میں بالکل بائیں جانب "ویژیول بے سک" پر کلک کریں۔ وی بی اے پراجیکٹ میں ماژیول ۱ پر کلک کریں۔ اب کو یہ کوڈنگ نظر آئیں گی۔

Code:
Sub Macro1()

Range("B3").Select
Selection.Copy
Range("B6:F14").Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

یہاں پہلی لائن میں "سب" کے بعد میکرو ۱ لکھا ہوا ہے۔ اس کو تبدیل کرکے آپ

HelloWorld

بغیر سپیس کے لکھ لیں۔ اس طرح آپ کے میکرو کا نام تبدیل ہوا۔

اب اپ رینج میں سکرین شاٹ کے مطابق تبدیلی کرلیں۔



اب بٹن پریس کریں۔ اور "تبدیلی" دیکھیں۔ ۔۔۔ "سمائیل"۔

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

Abu Dujana

Thread Starter
★★★★★★
Dynamic Brigade
Expert
Joined
Apr 25, 2018
Messages
787
Reaction score
932
Points
402
Location
Karachi, Pakistan
Gold Coins
32.25
Silver Coins
750.33
Diamonds
0.00
سکرین شاٹ والی کوڈنگ سہولت کے لئے یہاں دی جارہی ہے۔ اگر کہیں کوڈنگ میں "گڑ بڑ" ہوجائے تو یہاں سے کاپی پیسٹ کرکے کام چلایا جاسکتا ہے۔۔​
:)

Code:
Sub HelloWorld()
'
' Macro1 Macro

    Range("A2").Select
    Selection.Copy
    Range("B6:D10").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub
 

Doctor

★★★★★★
Most Valuable
Most Popular
Top Poster
Dynamic Brigade
Most Helpful
Developer
Expert
Writer
Joined
Apr 25, 2018
Messages
5,309
Reaction score
6,390
Points
2,642
Location
Rawalpindi - Punjab - Pakistan
Gold Coins
266.00
Silver Coins
11,991.29
Diamonds
0.00
Automatic Thread Bump for 1 Week.
Thread Highlight Unlimited
Change Username Style.
بہت بہترین طریقے سے آپ نے وی بی کوڈنگ کے اس لیکچر کو پیش کیا ہے امید ہے اراکین کے لئے کارآمد ثابت ہوگا

 

صبیح صبیح

Staff member
★★★★★★
Most Valuable
Most Popular
Dynamic Brigade
Expert
Writer
Joined
May 5, 2018
Messages
2,623
Reaction score
3,254
Points
1,402
Location
Central
Gold Coins
71.62
Silver Coins
4,077.02
Diamonds
0.00
Change Username Style.
وعلیکم السلام ورحمتہ اللہ وبرکاتہ،ماشاء اللہ بہت عمدہ کاوش،مفید معلومات،کیپ اٹ اپ،گریٹ جاب۔
شئیرنگ کا شکریہ
(y)
 

PakArt UrduLover

Staff member
★★★★★★
Most Valuable
Most Popular
Dynamic Brigade
ITD Express
Designer
Expert
Writer
Joined
May 9, 2018
Messages
4,438
Reaction score
3,599
Points
1,986
Location
Manchester U.K
Gold Coins
342.39
Silver Coins
9,533.83
Diamonds
1.00

Derwaish

☆☆☆☆☆☆
Joined
May 18, 2018
Messages
92
Reaction score
153
Points
66
Location
Bruxelles
Gold Coins
2.75
Silver Coins
78.00
Diamonds
0.00
وعلیکم اسلام
بہت اچھا اور معلوماتی تھریڈ
شئیر کرنے کا بہت شکریہ
 
Top