How to speed up your macro (VBA coding) - 6 Ways

Abu Dujana

Thread Starter
⭐⭐⭐⭐⭐⭐
Charismatic
Expert
Popular
Helping Hands
Joined
Apr 25, 2018
Local time
11:24 AM
Threads
81
Messages
968
Reaction score
1,366
Points
452
Location
Karachi, Pakistan
Gold Coins
516.01
السلام علیکم و رحمۃ اللہ و برکاتہ۔۔

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

٭۔ شیٹ کیلکولیشن کو روکنا۔۔

کیا آپ جانتے ہیں کہ ہر مرتبہ جب آپ میکرو چلاتے ہیں تو شیٹ میں موجود ہر وہ سیل جس میں فارمولا ہوتا ہے اس کی ویلیو اپڈیٹ یا تبدیل ہوتی رہتی ہے؟ کسی شیٹ میں اگر زیادہ فارمولے ہوں تو میکرو پرفارمنس کافی حد تک سست پڑ جاتی ہے۔ اسی معاملے سے نمٹنے کے لئے آپ کوڈنگ کے شروع اور آخر میں یہ پراپرٹی استعمال کریں۔
Code:
Sub Macro1()
Application.Calculation = xlCalculationManual
 'Your macro code goes here
Application.Calculation = xlCalculationAutomatic
End Sub

٭۔ سکرین اپڈیٹنگ کو بند کرنا۔۔

آپ نے اکثر نوٹ کیا ہوگا جب آپ میکرو چلاتے ہیں تو اسکرین ٹمٹانا شروع کرتا ہے۔ یہ ٹمٹانا اس لئے ہوتا ہے کہ ہر میکرو چلاتے وقت ایکسل شیٹ کی اسکرین کو دوبارہ لوڈ کرتا ہے۔ اس سکرین کے بار بار لوڈ کرنے سے بچنے کے لئے آپ اس پراپرٹی کو میکرو کے شروع میں ڈس ایبل کردیں اور آخر میں ان ایبل کردیں۔

Code:
Sub Macro1()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
 'Your macro code goes here
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

٭۔ سٹیٹس بار اپڈیٹس کو عارضی طور پر بند کرنا۔

آپ میکرو میں مزید تیزی لانے کے لئے یہ پراپرٹی استعمال کرسکتے ہیں۔
Code:
Sub Macro1()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
'Your macro code goes here
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
End Sub

ایونٹس کو نظر انداز کرنا۔۔

اگر آپ نے کسی شیٹ میں ایونٹس سیٹ کر رکھے ہیں تو جب بھی آپ میکرو رن کریں گے ، میکرو سے پہلے ایونٹس خود بخود چلیں گے اور اس کے بعد میکرو چلے گی۔۔اسی لئے اپنے کوڈنگ کا تیز نتیجہ حاصل کرنے کے لے ایونٹس کو عارضی طور پر بند کریں۔۔ کوڈنگ یہ ہیں۔۔
Code:
Sub Macro1()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
'Your macro code goes here
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
End Sub

٭۔ پیج بریک کو چھپانا۔۔

بعض اوقات پیج بریک کو عارضی طور پر "آف" کرنے سے بھی میکرو میں تیزی آتی ہے۔ کوڈنگ ملاحظہ ہو۔
Code:
Sub Macro1()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
Activesheet.DisplayPageBreaks = False
 'Your macro code goes here
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
Activesheet.DisplayPageBreaks = True
End Sub

٭۔ پیوٹ ٹیبل کے اپڈیٹس کو معطل کرنا۔۔

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

Code:
Sub Macro1()
ActiveSheet.PivotTables("PivotTable1").ManualUpdate=True
 'Your macro code goes here
ActiveSheet.PivotTables("PivotTable1").ManualUpdate=False
End Sub
اس ضروری اور اہم مگر آسان ٹپس کے ساتھ ابو دُجانہ کو دیجیے اجازت۔۔
اللہ حافظ۔۔​
 

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
7:24 AM
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

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
11:24 AM
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.
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