photosdematures.com

ابتدائیوں کے لئے ایکسل وی بی اے مثالوں

جب آپ کی پیداوری میں اضافہ کرنے یا آپ کے کام کی جگہ پر کچھ وقت بچانے کی بات آتی ہے تو میکروز آپ کے بہترین دوست ہوتے ہیں۔ چھوٹے چھوٹے کاموں سے لے کر بڑے ٹاسک تک ہم VBA کوڈنگ کی زبان استعمال کرکے خود کار طریقے سے چل سکتے ہیں۔ میں اکثر اوقات جانتا ہوں کہ آپ نے ایکسل کی کچھ حدود کے بارے میں سوچا ہوگا لیکن وی بی اے کوڈنگ کے ذریعے آپ ان سب کو ختم کرسکتے ہیں۔ ٹھیک ہے ، اگر آپ وی بی اے کے ساتھ جدوجہد کرتے ہیں اور پھر بھی اس مضمون میں ابتدائی ہیں تو ہم ایکسل میں وی بی اے میکرو کوڈ کی کچھ مفید مثالیں دیں گے۔

سر فہرست 19 مثالوں کی فہرست

1. تمام شیٹ کے نام پرنٹ کریں
2. وی بی اے میں مختلف کلر انڈیکس داخل کریں
3. اوپر سے سیریل نمبر داخل کریں
4. نیچے سے سیریل نمبر داخل کریں
5. 10 سے 1 تک سیریل نمبر داخل کریں
6. جتنا آپ چاہتے ہو ورکشیٹ داخل کریں
7. ورک بک سے تمام خالی ورکشیٹس کو حذف کریں
8. ہر دوسری صف کے بعد خالی قطار داخل کریں
9. ہجے کی غلطی کو نمایاں کریں
10. سب کو اپر کیس کرداروں میں تبدیل کریں
11. سب کو لوئر کیس کریکٹر میں تبدیل کریں
12. تمام تبصرہ شدہ سیلوں کو نمایاں کریں
13. تمام خالی خلیوں کو نمایاں کریں
14. ایک شیٹ کے علاوہ تمام شیٹس کو چھپائیں
15. تمام شیٹس کو چھپائیں
16. فولڈر میں تمام فائلیں حذف کریں
17. پورا فولڈر حذف کریں
18. شیٹ میں آخری استعمال شدہ قطار تلاش کریں
19. شیٹ میں آخری استعمال شدہ کالم تلاش کریں

آئیے اس مثال میں سے ہر ایک کو تفصیل سے دیکھتے ہیں۔

آپ یہ VBA مثالوں ایکسل ٹیمپلیٹ ڈاؤن لوڈ کرسکتے ہیں

# 1 - تمام شیٹ کے نام پرنٹ کریں

کوڈ:

 سب پرنٹ_شیٹ_ نام () شیٹس میں i = 1 کے لئے اجزاء کی حیثیت سے دھیما دیں۔ حساب خانہ (i، 1). قیمت = شیٹس (i). نام اگلا میں سب آخر 

یہ شیٹ کے تمام ناموں کو فعال شیٹ سے نکال دے گا۔

# 2 - VBA میں مختلف کلر انڈیکس داخل کریں

کوڈ:

 ذیلی داخل_تختلف_کالورس () i i 1 سے 56 سیلز (i، 1) کے لئے اعدادوشمار کی حیثیت سے دھیما کریں۔ قیمت = i سیل (i، 2) .انٹیریئر.کالور انڈیکس = i اگلا اختتامی سب 

اس سے اگلے کالم میں 1 سے 56 تک کی تعداد اور ان کا رنگ انڈیکس داخل ہوگا۔

# 3 - اوپر سے سیریل نمبر داخل کریں

کوڈ:

 ذیلی داخل_نمبر_فرم_ٹاپ () میں i = 1 سے 10 سیلز (i ، 1) کے لئے اعداد وشمار کی حیثیت سے دھیان ڈالیں۔ قیمت = میں اگلا اور آخر میں سب 

یہ اوپر سے 1 سے 10 تک سیریل نمبر داخل کرے گا۔

# 4 - نیچے سے سیریل نمبر داخل کریں

کوڈ:

 ذیلی داخل کیجN نمبر_فرم_ نیچے () I I Integer as I = 20 سے 1 مرحلہ -1 سیل (i، 7). قیمت = میں اگلا میں سب اختتام کو ختم کرتا ہوں 

یہ نیچے سے 1 سے 20 تک سیریل نمبر داخل کرے گا۔

# 5 - 10 سے 1 تک سیریل نمبر داخل کریں

کوڈ:

 سب ٹین_تو_وین () دھیم میں بطور اعداد جیم جیسا پورا اعداد j = 10 کے لئے i = 1 سے 10 حد ("A" اور i) 

یہ اوپر سے 10 سے 1 تک سیریل نمبر داخل کرے گا۔

# 6 - جتنا آپ چاہتے ہو ورکشیٹ داخل کریں

کوڈ:

 سب ایڈ شیٹ () ڈیم شٹکاونٹ انٹیجر کے طور پر ، میں بطور انٹیجر شٹکاونٹ = ایپلی کیشن۔ ان پٹ بکس ("آپ کتنی شیٹس داخل کرنا چاہیں گے؟" ، "شیٹس شامل کریں" ، ، ، ، ، 1) اگر شٹکاونٹ = غلط ہے تو سب کو چھوڑ دیں i = 1 کے لئے شٹکاؤنٹ ورکشیٹ۔ اگلا شامل کریں اگر ختم ہوجائے تو 

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

# 7 - ورک بک سے تمام خالی ورکشیٹس کو حذف کریں

کوڈ:

 سب ڈیلیٹ_بلانک_شیٹس () ڈیم ڈبلیو ایس کو ورکشیٹ ایپلیکیشن کی حیثیت سے۔ ڈزلے ایلٹس = غلط ایپلی کیشن۔ اسکرین اپڈیٹنگ = ایکٹیو ورک بک میں ہر ڈبلیو کے لئے غلط۔ ڈاٹ ورکس شیٹ اگر ورکشیٹ فانکشن۔کاؤنٹا (ws.UsedRange) = 0 تب ڈبلیو ایس۔ ڈیلیٹ ختم کریں اگلی ڈبلیو ایپلی کیشن = ڈس پلے۔ .ScreenUpdating = حقیقی آخر سب 

اس سے ہم جس ورک بک پر کام کر رہے ہیں اس سے تمام خالی ورک شیٹس کو حذف کردیں گے۔

# 8 - ہر دوسری صف کے بعد خالی صف داخل کریں

کوڈ:

 ذیلی داخل_رو_آپٹر_آئیر_آؤٹر_راؤ () ڈیم rng بطور حد اعداد کاؤنٹراو عدد انفرادی طور پر Dim i as Integer Dng i Selection CountyRow = rng.EntireRow.Count for i = 1 To countRow ActiveCell.EnteryRow.Insert ActiveSell.Offset (2 ، اگلا)۔ آخر سب 

اس کے ل، ، آپ کو اس حد کو منتخب کرنے کی ضرورت ہوگی جہاں آپ متبادل خالی قطاریں داخل کرنا چاہیں گے۔

# 9 - ہجے کی غلطی کو نمایاں کریں

کوڈ:

 سب چیچ_سیلنگ_ غلطی () ایکٹو شیٹ میں ہر مائی سلیکشن کی حد کے طور پر مائک سلیکشن کو مدھم کریں۔ اگر درخواست نہ ہو تو استعمال شدہ رجسٹریشن۔ 

پہلے ، ڈیٹا کو منتخب کریں اور VBA کوڈ چلائیں۔ یہ ان خلیوں کو اجاگر کرے گا جن میں ہجے کی غلطیاں ہوتی ہیں۔

# 10 - سب کو اپر کیس کرداروں میں تبدیل کریں

کوڈ:

 سب چینج_علی_تو_پپ_کیس () انتخاب میں ہر رنگ کی حد کے طور پر دھیما رنگ کریں۔ اگر سیل کریں تو Rng.HasFormula = غلط ہے تو Rng.Value = UCase (Rng.Value) اختتام اگلا Rng اختتام سب 

پہلے ، ڈیٹا کو منتخب کریں اور کوڈ کو چلائیں۔ یہ تمام متن کی اقدار کو بڑے حرف کے حروف میں تبدیل کردے گا۔

# 11 - تمام چھوٹے حرفوں کو تبدیل کریں

کوڈ:

 سب چینج_ویل_ٹو_لو_کیز () انتخاب میں ہر رینگ کی حد کے طور پر دھیما رینگ۔ اگر سیل Rng.HasFormula = غلط ہے تو Rng.Value = LCase (Rng.Value) اختتام اگلا Rng اختتام سب 

پہلے ، ڈیٹا کو منتخب کریں اور کوڈ کو چلائیں۔ یہ تمام متن کی اقدار کو ایکسل میں چھوٹے حرفوں میں تبدیل کردے گا۔

# 12 - تمام تبصرہ شدہ سیلوں کو نمایاں کریں

کوڈ:

 سب ہائی لائٹ سیلز کے ساتھ کامرسیاںکارپوریٹ ورکسشیٹ () ایکٹو شیٹ.ایسڈرینج.سپیشل سیلز (xlCellTypeComments). انٹیریئر.کورور انڈیکس = 4 آخر سب 

نتیجہ:

# 13 - خالی خلیوں کو نمایاں کریں

کوڈ:

 سب ہائی لائٹ_بلانک_کیلیاں () حد ڈیٹا سیٹ کو بطور حد سیٹ ڈیٹا سیٹ = سلیکشن ڈیٹا سیٹ۔ سیلز.اسپیشل سیل (xlCellTypeBlanks). انٹیریئر.کلوور = وی بی گرین اینڈ سب 

پہلے ، ڈیٹا کی حد کو منتخب کریں اور کوڈ کو چلائیں۔ یہ سبز رنگ کے خالی خلیوں کو اجاگر کرے گا۔

# 14 - ایک شیٹ کے علاوہ تمام شیٹس کو چھپائیں

کوڈ:

 سب چھپائیں_تمام_قبول_وneن () ایکٹ ورک ورک بک میں ورکس شیٹ کی حیثیت سے ڈمڈ Ws.Worksheets اگر Ws.Name "مین شیٹ" پھر Ws.Visible = xlSheetVeryHided Next Ws اختتام سب 

مذکورہ کوڈ میں "شیٹ" نامی شیٹ کے علاوہ تمام شیٹس کو چھپا دیا گیا ہے۔ آپ اپنی خواہش کے مطابق ورک شیٹ کا نام تبدیل کرسکتے ہیں۔

# 15 - تمام شیٹس کو چھپائیں

کوڈ:

 سب ان ہائیڈ_ایل () ڈیم ڈبلیو ایس کو ایکٹو ورک ورک بک میں ہر ڈبلیو کے لئے ورکشیٹ کے طور پر۔ ورکشیٹ Ws.Visible = xlSheetVisible Next Ws End Sub 

اس سے تمام پوشیدہ چادروں کو چھپائے گا۔

# 16 - فولڈر میں تمام فائلیں حذف کریں

کوڈ:

 سب ڈیلیٹ_ آل_فائلز () 'آپ فولڈر ٹیسٹ میں موجود تمام فائلوں کو حذف کرنے کے لئے اس کا استعمال کرسکتے ہیں' 'آن ایرر پر دوبارہ شروع کریں اگلا مار ڈالو "C: \ صارفین \ ایڈمن_2. ڈیل پی سی \ ڈیسک ٹاپ F فولڈر کو حذف کریں \ *۔ *" غلطی پر GoTo 0 آخر سب 

فولڈر کا راستہ تبدیل کریں جسے آپ کے فولڈر کے حذف کے مطابق سرخ رنگ میں نشان زد کیا گیا ہے۔

# 17 - سارا فولڈر حذف کریں

کوڈ:

 سب ڈیلیٹ_وہل_ فولڈر () 'آپ اس کا استعمال پورے فولڈر کو حذف کرنے کے لئے استعمال کرسکتے ہیں غلطی دوبارہ شروع کریں اگلا مار ڈالو "C: \ صارفین \ ایڈمن_2. ڈیل پی سی \ ڈیسک ٹاپ F فولڈر کو حذف کریں \ *. *" سب سے پہلے یہ فولڈر میں موجود تمام فائلوں کو حذف کردے گا 'پھر نیچے کوڈ پورا فولڈر حذف کردے گا اگر یہ خالی ہے RmDir "C: \ صارفین \ ایڈمن_2. ڈیل-پی سی \ ڈیسک ٹاپ F فولڈر حذف کریں \" "نوٹ: RmDir غلطی پر GoTo 0 اختتام پر صرف ایک خالی فولڈر حذف کردے 

فولڈر کا راستہ تبدیل کریں جسے آپ کے فولڈر کے حذف کے مطابق سرخ رنگ میں نشان زد کیا گیا ہے۔

# 18 - شیٹ میں آخری استعمال شدہ قطار تلاش کریں

کوڈ:

 سب آخری_تقریب () دھیمے LR جتنا طویل LR = سیل (قطاریں۔ حساب ، 1)۔ اختتام (xlUp) ۔مس بوکس LR اختتام سب 

یہاں ہمیں شیٹ میں آخری استعمال شدہ قطار مل گئی

# 19 - شیٹ میں آخری استعمال شدہ کالم تلاش کریں

کوڈ:

 سب آخری_کالم () لمب LC = سیل (1 ، کالمز۔کاؤنٹ) کی طرح دھیت LC۔ اینڈ (xlToLeft) .کالم MsgBox LC اختتام سب 

یہاں ہمیں شیٹ میں آخری استعمال شدہ کالم مل گیا