مواد جي جدول
جڏهن اسان وٽ اسان جي Excel ورڪ بڪ ۾ هڪ وڏو ڊيٽا سيٽ هوندو آهي، ڪڏهن ڪڏهن اهو آسان هوندو آهي جيڪڏهن اسان قطار ذريعي لوپ ڪري سگهون ٿا مخصوص نتيجا ڪڍڻ لاءِ جيڪي اسان حاصل ڪرڻ چاهيون ٿا. لاڳو ڪرڻ VBA سڀ کان وڌيڪ اثرائتو، تيز ترين ۽ محفوظ طريقو آهي Excel ۾ ڪنهن به آپريشن کي هلائڻ لاءِ. هن آرٽيڪل ۾، اسين توهان کي 11 مختلف طريقا ڏيکارينداسين ته ڪيئن ٽيبل جي قطارن ذريعي لوپ ڪريو ايڪسل ۾ VBA ميڪرو سان.
ڊائون لوڊ ورڪ بڪ.
توهان هتي مان مفت مشق Excel ورڪ بڪ ڊائون لوڊ ڪري سگهو ٿا.
VBA.xlsm سان ٽيبل جي قطارن ذريعي لوپ ڪريو
11 طريقن سان VBA سان لوپ ذريعي لوپ ڪرڻ لاءِ ٽيبل جي قطارن ۾ Excel
هن سيڪشن تي عمل ڪندي، توهان سکندا ته ڪيئن ٽيبل جي قطارن ذريعي لوپ ڪجي 11 مختلف طريقن سان، جيئن هڪ خالي سيل تائين قطارن ذريعي لوپ ڪريو، قطارن ذريعي لوپ ڪريو جيستائين ڪا خاص قيمت نه ملي، قطارن ذريعي لوپ ڪريو ۽ هڪ مخصوص سيل کي رنگ ڏيو وغيره. Excel ۾ VBA macro سان.
مٿي ڏنل ڊيٽا سيٽ جو مثال آهي جنهن کي هي آرٽيڪل بيان ڪرڻ لاءِ عمل ڪندو.
1. VBA داخل ڪريو لوپ ذريعي هر سيل ذريعي ٽيبل جي هر قطار ۾ سيل ريفرنس نمبر
جيڪڏهن توهان چاهيو ٿا هر سيل ذريعي لوپ ڪريو ٽيبل جي هر قطار ۾ توهان جي Excel ورڪ شيٽ ۾ ۽ حاصل ڪريو سيل ريفرنس نمبر جيئن واپسي جي قيمت ، پوءِ ھيٺ ڏنل قدمن تي عمل ڪريو. پنهنجي ڪيبورڊ تي Alt + F11 کي دٻايو يا وڃوvariable.
6162
ڪوڊ جو هي ٽڪرو هتي 1 کان 15 تائين قطارن ۾ لوپ ڪرڻ لاءِ آهي. جيڪڏهن اهو مخصوص لفظ ڳولي ٿو ” Edge “ ته پوءِ اهو لفظ رکيل سيل کي رنگ ڏيندو. اهو ان وقت تائين جاري رهندو جيستائين اهو لفظ جي ڳولا ۾ قطار 1 کان 15 تائين سڀني ڊيٽا جي اسڪيننگ مڪمل ڪري.
وڌيڪ پڙهو: 1>ڪيئن استعمال ڪجي VLOOKUP ٽيبل صفن جي بنياد تي سيل جي قيمت Excel ۾
ملندڙ پڙهائي
- ڇا TABLE فنڪشن Excel ۾ موجود آهي؟
- ڪيئن بدلجي ٽيبل کي ايڪسل ۾ لسٽ ۾ (3 تڪڙا طريقا)
- رينج کي ٽيبل ۾ ايڪسل ۾ تبديل ڪريو (5 آسان طريقا)
- ايڪسل ٽيبل ۾ مؤثر طريقي سان فارمولا استعمال ڪريو (4 مثالن سان)
- Excel ٽيبل جو نالو: سڀ توھان کي ڄاڻڻ جي ضرورت آھي
7. VBA لاڳو ڪريو لوپ ذريعي هر قطار ۾ ۽ هر اوڊ قطار کي رنگ ڪريو Excel ۾
پوئين حصي مان، اسان سيکاريو آهي ته سيل کي ڪيئن رنگائجي جيڪو هڪ مخصوص قدر رکي. هن سيڪشن ۾، اسان سکنداسين ته ڪيئن ٽيبل جي هر قطار مان لوپ ڪجي ۽ هر بي ترتيب قطار کي رنگ ڪجي ايڪسل ۾ VBA ميڪرو سان. هيٺ بيان ڪيا ويا آهن.
قدم:
- جيئن اڳ ڏيکاريل آهي، کوليو Visual Basic Editor from Developer ٽيب ۽ ڪوڊ ونڊو ۾ Insert a Module .
- پوءِ، هيٺ ڏنل ڪوڊ کي ڪاپي ۽ پيسٽ ڪريو ان ۾ ڪوڊ ونڊو.
7097
توهان جو ڪوڊ هاڻي هلڻ لاءِ تيار آهي.
38>
- هاڻي، چلايو ميڪرو ۽ آئوٽ پٽ ڏسڻ لاءِ هيٺين تصوير کي ڏسو.
سڀئي بي-نمبر قطارون رنگيل آهن ورڪ شيٽ جي جدول ۾ موجود سڀني قطارن کي لوپ ڪرڻ کان پوءِ.
VBA ڪوڊ وضاحت
6557
متغير جي وضاحت ڪريو.
4946
اها حد مقرر ڪريو جنهن سان اسين ڪم ڪنداسين.
3490
ڪوڊ جو هي حصو سڀني قطارن ذريعي ٻيهر ٿيڻ ڏانهن اشارو ڪري ٿو، موجوده قطار جي ايندڙ قطار کان شروع ٿئي ٿو، B4 . جيڪڏهن قطار جي انگن کي 2 سان ورهائڻ جو طريقو انٽيجر قسم ۾ محفوظ ڪيل واپسي قطار نمبر جي برابر آهي، ته پوءِ هي ڪوڊ انهن سڀني قطارن کي رنگ ڏئي ٿو جيڪي حساب سان ڪڍيا ويا آهن ڪوڊ ۾ ڏنل رنگن جي انگن اکرن سان. اهو سڀني قطارن ذريعي هلندو رهي ٿو جيستائين اهو حد جي آخر تائين پهچي وڃي.
8. VBA لاڳو ڪريو لوپ ذريعي قطار ۽ ايڪسل ۾ هر ايون قطار کي رنگ ڏيو
اڳئين حصي ۾، اسان سکيا ته ٽيبل جي هر بي ترتيب قطار کي ڪيئن رنگ ڪجي. هن سيڪشن ۾، اسان سکنداسين ته ڪيئن ٽيبل جي هر قطار مان لوپ ڪجي ۽ هر هڪ قطار کي رنگ ڪجي ايڪسل ۾ VBA ميڪرو سان>
قدم:
11>8107
توھان جو ڪوڊ ھاڻي تيار آھيهلو.
40>
- اڳيون، چلايو ميڪرو ۽ نتيجو ڏسڻ لاءِ هيٺين تصوير کي ڏسو.
سڀني هڪ نمبر واريون قطارون رنگيل آهن ورڪ شيٽ جي ٽيبل ۾ موجود سڀني قطارن کي لوپ ڪرڻ کان پوءِ.
1 موجوده قطار مان ٽي قطار، B4 . اھو پھريائين ان کي رنگ ڏيندو آھي پوءِ قطار جي ڳڻپ کي 2 وڌائيندو آھي ۽ ان کي رنگ ڏيندو رھندو آھي جيستائين اھو ڊيٽا سيٽ جي آخري قطار تائين پھچندو آھي.
9. ايڪسل ۾ قطارن تائين خالي سيل جي ذريعي ٻيهر ڪرڻ لاءِ ميڪرو لاڳو ڪريو
جيڪڏهن توهان چاهيو ٿا ته توهان جو ڪوڊ ڪم ڪري ته جيئن اهو ٽيبل جي سڀني قطارن کي لوپ ڪري ڇڏي ۽ جڏهن اهو خالي سيل تي پهچي وڃي ته روڪيو ، پوء هي سيڪشن توهان لاء آهي. توھان اھو ڪم ڪري سگھو ٿا ٻئي سان لوپ لاءِ ۽ Do-Until Loop Excel ۾ VBA .
9.1. FOR لوپ سان
قدم لوپ ذريعي قطار ۾ ٽيبل تي جيستائين خالي سيل سان FOR لوپ ۾ VBA Excel هيٺ ڏنل آهن.
قدم:
11>2675
توهان جو ڪوڊ ھاڻي ھاڻي ھلڻ لاءِ تيار آھي.
42>
- پوءِ، رن macro ۽ نتيجو هيٺ ڏنل gif ۾ ڏيکاريو ويو آهي.
ميڪرو کي هلائڻ کان پوء، اهو سڀني قطارن ذريعي لوپ ڪرڻ شروع ڪيو ٽيبل ۾ ۽ هڪ دفعو اهو خالي سيل، سيل B8 تي پهچي ويو، ان تڪرار کي روڪيو .
VBA ڪوڊ وضاحت
9933
متغير جي وضاحت ڪريو.
8553
اسڪرين کي اپڊيٽ ڪرڻ وارو واقعو بند ڪريو.
2774
سڀني قطارن کي اسٽور ڪريو سيل B4 کان شروع ٿيندڙ آخري تائين.
5390
منتخب سيل B4 .
8070
ڪوڊ جو هي ٽڪرو سڀني قطارن مان لوپ ڪرڻ شروع ڪري ٿو. جڏهن اهو قطار ۾ هڪ خالي سيل ڳولي ٿو ته پوءِ ان کي چونڊيو ۽ قطارن کي اسڪين ڪرڻ جاري رکي جيستائين اهو ختم نه ٿئي.
2511
اسڪرين کي اپڊيٽ ڪرڻ واري واقعي کي آن ڪريو.
9.2. Do-Until Loop سان
قدم قطار ذريعي لوپ ڪريو جيستائين خالي سيل ۾ Do-Until loop in VBA هيٺ ڏنل آهن.
قدم:
11>2651
توهان جو ڪوڊ ھاڻي ھاڻي ھلڻ لاءِ تيار آھي.
44>
- بعد ۾، رن ميڪرو. نتيجو هيٺ ڏنل gif ۾ ڏيکاريو ويو آهي.
ميڪرو هلائڻ کان پوء، اهو شروع ڪيو سڀني قطارن ذريعي لوپنگ ٽيبل ۾ ۽ هڪ ڀيرو اهو خالي سيل، سيل B8 تي پهچي ويو، اهو تڪرار کي روڪيو .
7>0> VBA ڪوڊوضاحت7730
سيل کي چونڊيو جنهن مان اسان ڪم ڪنداسين.
9689
شروع ٿئي ٿو ۽ لوپنگ جاري رکي جيستائين خالي سيل نه ملي.
6906
جڏهن هڪ خالي سيل آهي هڪ قطار ۾ مليو ته پوءِ ان کي چونڊيو ۽ ٻيهر ٿيڻ کي روڪيو.
10. VBA ميڪرو کي قطارن ذريعي ٻيهر ڪرڻ لاءِ ايڪسل ۾ ڪيترن ئي خالي سيلن تائين
پوئين حصي ۾، توهان سکيو آهي ته لوپ کي ڪيئن روڪيو وڃي جڏهن هڪ خالي سيل مليو. پر ڇا ڪجي جيڪڏھن توھان ان عمل کي روڪڻ نٿا چاھيو جيستائين ھڪ جي بدران گھڻا خالي خانا ملي وڃن.
قدم قطار ذريعي لوپ ڪريو جيستائين گھڻا خالي خانا ٽيبل ۾ نه ملن سان VBA Excel هيٺ ڏيکاريل آهي.
Steps:
- سڀ کان پهريان، کوليو Visual Basic Editor Dveloper ٽئب ۽ Insert a Module ڪوڊ ونڊو ۾.
- پوءِ، ڪاپي ڪريو ھيٺ ڏنل ڪوڊ ۽ <1 ان کي ڪوڊ ونڊو ۾ پيسٽ ڪريو.
8908
توهان جو ڪوڊ ھاڻي ھاڻي ھاڻي ھلڻ لاءِ تيار آھي.
- ھاڻي، ميڪرو کي هلايو ۽ آئوٽ پُٽ لاءِ هيٺيون گِف ڏسو.
47>
ميڪرو هلائڻ کان پوءِ، اهو پر بند نه ٿيو. پهريون خالي سيل، سيل B8 . اهو بند ٿي ويو جڏهن اهو مليو سيل B16 تي لڳاتار ٻه خالي سيلز .
7>VBA ڪوڊ وضاحت
6507
سيل چونڊيو جنهن کان اسين ڪم ڪنداسين.
4412
شروع ٿئي ٿو ۽ لوپنگ جاري رکي ٿو جيستائين ٻه لڳاتار خالي خانا نه ملن.
5165
جڏهن ٻه لڳاتار خالي خانا مليا وڃن، تڏهنان کي چونڊيو ۽ ان کي روڪيو.
11. ايڪسل ۾ سڀني ڪالمن کي خالي ڪرڻ تائين قطارن جي ذريعي لوپ ڪرڻ لاءِ VBA کي شامل ڪريو
هي سيڪشن توهان کي ڏيکاريندو ته ڪيئن ڪجي سڀني قطارن کي ٽيبل جي ذريعي ۽ سڀني ڪالمن کي هڪ خالي سيل تائين ڳنڍي مليو آهي VBA Excel سان.
اچو ته اهو ڪيئن ڪجي اهو ڪيئن ڪجي ايڪسسل ۾ VBA ميڪرو سان.
قدم:
- سڀ کان پهريان، کوليو Visual Basic Editor مان Developer ٽئب ۽ Insert a Module ڪوڊ ونڊو ۾.
- پوءِ، هيٺ ڏنل ڪوڊ کي ڪاپي ڪريو ۽ پيسٽ ڪريو ان کي ڪوڊ ونڊو ۾.
5083
توهان جو ڪوڊ ھاڻي ھاڻي ھلائڻ لاءِ تيار آھي.
- بعد ۾، ھلايو ميڪرو ۽ ھيٺ ڏنل گف ڏسو نتيجن لاءِ.
جيئن توهان مٿي ڏنل gif مان ڏسي سگهو ٿا ته اتي هڪ پاپ اپ آهي MsgBox توهان کي ڏيکاريندي سڀني ڪالمن جي گڏيل قدر قطار پنھنجي Excel ورڪ شيٽ جي ٽيبل تان. پر اهو روڪجي ويو هڪ دفعو اهو خالي سيل تي پهچي ويو .
7>VBA ڪوڊ وضاحت
1438
متغير کي بيان ڪريو.
6540
شيٽ جو نالو مقرر ڪريو جنهن سان اسان ڪم ڪنداسين (“ ConcatenatingAllColUntilBlank ” ورڪ بڪ ۾ شيٽ جو نالو آهي).
7197
اها حد مقرر ڪريو جنهن سان اسين ڪم ڪنداسين.
9865
ڪوڊ جو ھي ٽڪرو لوپ کي صف سان شروع ڪري ٿو. اهو لوپ جاري رکي ٿو جيستائين اهو صف جو سڀ کان وڏو سبسڪرپٽ ۽ هيٺئين بائونڊ کي واپس نٿو ڪريپهريون طول و عرض. ان کان پوء اهو ٻئي طول و عرض جي هيٺين بائونڊ کي ڪڍڻ جي ورهاڱي ۾ داخل ٿئي ٿو. ان کان پوءِ، اهو iResult variable ۾ سڀني ڪڍيل قدرن کي پاس ڪري ٿو انهن کي ڳنڍيندي ۽ نتيجن کي MsgBox ۾ اڇلائي. اهو ان وقت تائين جاري رهندو جيستائين اهو هڪ خالي سيل ڳولي نه ٿو.
نتيجا
نتيجو ڪرڻ لاءِ، هي آرٽيڪل توهان کي ڏيکاريو 11 مؤثر طريقا انهي تي ته ڪيئن قطار ذريعي لوپ هڪ ٽيبل جي ايڪسل ۾ VBA ميڪرو سان. مون کي اميد آهي ته هي مضمون توهان لاء تمام گهڻو فائدي وارو آهي. موضوع جي حوالي سان ڪي به سوال پڇڻ لاءِ آزاد محسوس ڪريو.
ٽيب ڏانهن ڊولپر -> Visual Basicکولڻ لاءِ Visual Basic Editor.
- اڳيون، پاپ اپ ڪوڊ ونڊو ۾، مينيو بار، ڪلڪ ڪريو داخل ڪريو -> ماڊل .
- پوءِ، هيٺ ڏنل ڪوڊ کي ڪاپي ڪريو ۽ پيسٽ ڪريو ان کي ڪوڊ ۾ ونڊو.
8037
توهان جو ڪوڊ هاڻي هلڻ لاءِ تيار آهي.
17>
- هاڻي، دٻايو F5 ڪي بورڊ يا مينيو بار مان چونڊيو چلايو -> هلايو Sub/UserForm . توھان صرف ڪلڪ ڪري سگھوٿا small Play icon ذيلي مينيو بار ۾ ميڪرو کي هلائڻ لاءِ.
- يا بصري طور تي شاهدي ڏيو ۽ ڊيٽا سيٽ ۽ نتيجن جو مقابلو ڪريو، توھان ڪري سگھو ٿا محفوظ ڪريو ڪوڊ ۽ واپس وڃو ورڪ شيٽ ڏانھن دلچسپي جي.
- اتان، توھان ڪلڪ ڪري سگھو ٿا Macros مان ڊولپر ٽئب، ميڪرو نالو چونڊيو، ۽ پوءِ ڪلڪ ڪريو چلايو .
ڪامياب ڪوڊ لڳائڻ کان پوءِ، نتيجو ڏسڻ لاءِ مٿي ڏنل گف کي ڏسو. اتي هڪ پاپ اپ هوندو MsgBox توهان کي ڏيکاريندو هر سيل جو سيل ريفرنس نمبر هر قطار مان توهان جي Excel شيٽ ۾ ٽيبل تان.
VBA ڪوڊ وضاحت
6279
ٽيبل ۾ آخري قطار نمبر حاصل ڪرڻ لاءِ ڪالم B ڳولھيو.
1311
قطار نمبر 4 سيٽ ڪريو، جتان اسان جو ڊيٽا شروع ٿئي ٿو.
1575
پهرين قطار مان لوپ ڪرڻ لاءِ.
7136
سيٽ ڪريو ڪالم نمبر 2، جتان اسان جو ڊيٽا شروع ٿئي ٿو.
2447
آخري حاصل ڪرڻ لاءِ قطارن مان لوپنگ شروع ڪريوڪالمن جو تعداد موجوده قطار جو جائزو وٺي آخري قطار تائين.
9422
پهرين قطار کان آخري قطار تائين ڪالمن کي لوپ ڪرڻ ۾ واڌارو.
2333
ڪوڊ جو ھي ٽڪرو پروسيس ڪرڻ لاءِ ڪم ڪري ٿو، ھر ھڪ کان پوءِ واڌارو ٻيهر ورجائي ۽ ڪوڊ جو نتيجو ڏيکاريو.
وڌيڪ پڙهو: نئين قطار کي خودڪار طريقي سان ايڪسل ٽيبل ۾ ڪيئن شامل ڪجي
2 . VBA لاڳو ڪريو لوپ ذريعي لوپ ڪرڻ لاءِ هر قطار ۾ هر قطار ۾ قدر جي لحاظ سان
جيڪڏهن توهان چاهيو ٿا ته هر سيل مان لوپ ڪريو ٽيبل جي هر قطار ۾ ۽ سيلز ۾ موجود قدر کي واپسي جي قيمت طور اڇلايو ، پوءِ هي سيڪشن توهان کي اهو سمجهڻ ۾ مدد ڏيندو ته اهو ڪيئن ڪجي VBA Excel.
توهان اهو ڪري سگهو ٿا ListObject ۽ <1 سان>DataBodyRange ملڪيت جي VBA . اسان توهان کي ميڪرو ڪوڊ ڏيکارينداسين اعتراض ۽ ملڪيت ٻنهي سان.
2.1. ListObject سان
قدم هر سيل ذريعي ٽيبل جي هر قطار ۾ سيل جي قيمت سان ListObject ۾ VBA Excel هيٺ ڏنل آهن.
قدم:
- اڳي وانگر، کوليو Visual Basic Editor مان Developer ٽئب ۽ داخل ڪريو a Module ڪوڊ ونڊو ۾.
- پوءِ، ڪوڊ ونڊو ۾، ڪاپي ھيٺ ڏنل ڪوڊ ۽ پيسٽ ڪريو اهو.
4527
توهان جو ڪوڊ هاڻي هلڻ لاءِ تيار آهي.
22>
- ان کان پوءِ، هلايو ميڪرو جيئن اسان توهان کي مٿين حصي ۾ ڏيکاريو. نتيجو gif ۾ ڏيکاريل آهيهيٺ.
هتي هڪ پاپ اپ هوندو MsgBox توهان کي ڏيکاريندي قيمت هر سيل جي هر قطار مان کڻي ويندي آهي توهان جي ايڪسل شيٽ ۾ ٽيبل تان.
VBA ڪوڊ وضاحت
8578
متغير جي وضاحت ڪريو.
9073
هي ٽڪرو ڪوڊ جو پهريون ٽيبل ۾ قطارن ذريعي لوپ ڪرڻ شروع ٿئي ٿو (“ TblStudents ” اسان جي ٽيبل جو نالو آهي). پوء هر قطار لاء ڪالمن ۾ داخل ٿئي ٿو. ان کان پوء، MsgBox ۾ سيل جي قيمت پاس ڪريو. پوء ايندڙ ڪالمن ڏانھن وڃو. ھڪڙي قطار جي سڀني ڪالمن ذريعي ورجائي ختم ڪرڻ کان پوء، اھو ايندڙ قطار ڏانھن وڃي ٿو ۽ آخري قطار تائين ورجائي عمل جاري رکي ٿو.
2.2. DataBodyRange ملڪيت سان
ٽيبل مان ڪڍيل ڊيٽا سان وڌيڪ مخصوص ٿيڻ لاءِ، توھان استعمال ڪري سگھو ٿا DataBodyRange ملڪيت جي ListObject . 1 ڊيٽا بوڊي رينج ۾ VBA Excel سان سيل جي قيمت جي لحاظ سان ٽيبل هيٺ ڏنل آهي.
قدم:
- جيئن ڏيکاريل آهي ان کان اڳ، کوليو Visual Basic Editor مان Developer ٽئب ۽ Insert a Module ڪوڊ ونڊو ۾.
- پوءِ , ڪاپي ڪريو ھيٺ ڏنل ڪوڊ ۽ پيسٽ ڪريو ان کي ڪوڊ ونڊو ۾.
4159
توھان جو ڪوڊ ھاڻي ھاڻي ھلڻ لاءِ تيار آھي.
11>12>بعد ۾، چلايوميڪرو ۽ ھيٺ ڏنل گف کي ڏسو آئوٽ پُٽ ڏسڻ لاءِ.
27>
هڪ پاپ اپ هوندو MsgBox توهان کي ڏيکاري رهيو آهي هر قطار مان هر سيل طرفان ڪيل قيمت توهان جي Excel شيٽ ۾ ٽيبل تان.
0> VBA ڪوڊ وضاحت4907
متغير جي وضاحت ڪريو.
6196
ڪوڊ جو هي ٽڪرو پهريون ڀيرو ٽيبل جي قطارن مان لوپ ڪرڻ شروع ڪري ٿو (“ TblStdnt ” اسان جي ٽيبل جو نالو آهي) ۽ قيمتن جي حد کي واپس ڏئي ٿو سواءِ. ٽيبل جي مٿو قطار. پوء MsgBox ۾ حد جي قيمت پاس ڪريو. ان کان پوءِ اها رينج ڪڍڻ لاءِ ايندڙ قطار ۾ وڃي ٿي ۽ آخري قطار تائين ورجائي عمل جاري رکي ٿي.
3. VBA ميڪرو لاڳو ڪريو قطارن ذريعي ٻيهر ڪرڻ لاءِ ايڪسل ۾ ڪالمن کي ترتيب ڏيڻ سان
هي سيڪشن ڏيکاريندو ته ڪيئن ڪجي پنهنجي ڊيٽا سيٽ مان ڪالمن کي پهرين ڪالمن سان ڳنڍي ٽيبل ۾ قطارن جي ذريعي. ايڪسل ۾.
مثال طور، اسان جي ڊيٽا سيٽ لاءِ، پھريون، اسين انھن کي ڳنڍيندي جان سيل B5 ۾ ۽ 101 سيل C5 ۾ ذريعي ٻيهر ورجائينداسين جان 1 VBA ميڪرو Excel ۾.
Steps:
- سڀ کان پهريان، کوليو Visual Basic Editor مان ڊولپر ٽئب ۽ داخل ڪريو a ماڊول ڪوڊ ونڊو ۾.
- ٻيو، ڪوڊ ونڊو ۾، ڪاپي ھيٺ ڏنل ڪوڊ۽ پيسٽ ڪريو ان کي.
8573
توهان جو ڪوڊ هاڻي هلڻ لاءِ تيار آهي.
28>
- ٽيون، هلايو ميڪرو. نتيجو ڏسڻ لاءِ هيٺ ڏنل GIF ڏسو.
هتي هڪ پاپ اپ هوندو MsgBox توهان کي ڏيکاريو گڏيل قدر سيلز جي پهرين ۽ ٻئي ڪالمن مان ( جان سيل B5 ۾ ڪالم B ۽ 101 سيل C5 ۾ ڪالم C کان) ۽ پوءِ منسلڪ قدر سيلز جي پهرين ۽ ٽئين ڪالمن مان ( John in Cell B5 from Colum B and 89 Cell D5 from Column D ) جي قطار نمبر 5 توهان جي ڊيٽا سيٽ مان. ۽ هي ڪنٽينشن آپريشن جاري رهندو جيستائين اهو ٽيبل جي آخري قطار تائين نه پهچي.
VBA ڪوڊ وضاحت
7464
متغير جي وضاحت ڪريو.
4002
پوءِ ڪوڊ ٽيبل کي فعال شيٽ مان چونڊي ٿو (“ TblConcatenate ” اسان جي ٽيبل جي نالي ۾).
5925
ان کان پوءِ، هيڊر کان سواءِ هر قطار کي ٻيهر ڪرڻ شروع ڪري ٿو. ڪالم. جيڪڏهن iteration ڪالمن جي هيڊر ۽ قطار جي وچ ۾ رينج ۾ هڪ ميچ ڳولي ٿو ته پوء اهو قيمت کي محفوظ ڪري ٿو iValue متغير.
1220
جيڪڏهن مٿين شرط پوري نه ٿي ٿئي، پوء ڪوڊ MsgBox ۾ قيمت اڇلائي ٿو ۽ شرط ختم ڪري ٿو. ان کان پوء، اهو هڪ ٻئي رينج ۾ لوپنگ ڏانهن هلندو آهي ۽ آخري قطار تائين جاري رهي ٿو. هڪ دفعو اهو آخري قطار تائين پهچي ٿو، ميڪرو ڪوڊ جي عمل کي ختم ڪري ٿو.
4. ايٽريٽ ڪرڻ لاءِ ميڪرو کي شامل ڪريوايڪسل ۾ هڪ ٽيبل ۾ سڀني ڪالمن کي گڏ ڪرڻ سان قطار جي ذريعي
هن سيڪشن ۾، اسين سکنداسين ته ڪيئن سڀني ڪالمن کي ڳنڍجي جيڪي هر قطار ۾ رکيل آهن ڊيٽا سيٽ ۾ سان. VBA ميڪرو Excel ۾.
عمل ڪرڻ جا مرحلا جيڪي هيٺ ڏجن ٿا.
Steps:
- پهرين، کوليو Visual Basic Editor مان Dveloper ٽئب ۽ Insert a Module ڪوڊ ونڊو ۾.
- پوءِ، ڪاپي ڪريو ھيٺ ڏنل ڪوڊ ۽ پيسٽ ڪريو ان کي ڪوڊ ونڊو ۾.
7699
توھان جو ڪوڊ ھاڻي ھاڻي ھلڻ لاءِ تيار آھي.
- اڳيون، چلايو ميڪرو ڪوڊ. 14>
جيئن توهان مٿي ڏنل گف مان ڏسي سگهو ٿا ته اهو آهي. هڪ پاپ اپ MsgBox توهان کي ڏيکاريندي سڀني ڪالمن جي گڏيل قدر جيڪا هر قطار ۾ رهي ٿي توهان جي Excel ورڪ شيٽ جي ٽيبل تان.
VBA ڪوڊ جي وضاحت
2784
متغير جي وضاحت ڪريو.
4812
شيٽ جو نالو سيٽ ڪريو جنهن سان اسان ڪم ڪنداسين (“ ConcatenatingAllCol ” شيٽ جو نالو آهي. ڪم بڪ ۾).
4904
ڊي ٽيبل جي نالي کي ٺيڪ ڪريو جنهن سان اسان ڪم ڪنداسين (“ TblConcatenateAll ” اسان جي ڊيٽا سيٽ ۾ ٽيبل جو نالو آهي).
6367
ٽيبل جي هر قطار ذريعي ٻيهر ورجائڻ شروع ڪري ٿو.
1612
ٽيبل جي هر قطار جي هر ڪالمن ذريعي ٻيهر ورجائي شروع ڪري ٿو.
3305
نتيجي کي ذخيرو ڪندي قدرن کي ٽڪرائڻ سان هر قطار جي هر ڪالمن کي ڪيري ٿو. هر قطار ۾ رهندڙ سڀني ڪالمن جي ذريعي اسڪين ڪرڻ کان پوء، اهو گذري ويونتيجو MsgBox ۾. پوءِ وري ٻي قطار ۾ لوپنگ شروع ٿئي ٿي ۽ لوپنگ جاري رکي جيستائين ٽيبل جي آخري قطار تي نه پهچي.
وڌيڪ پڙهو: ڪيئن ترتيب ڏيو هڪ ٽيبل جي ڪيترن ئي ڪالمن کي ايڪسل VBA سان (2 طريقا)
5. Iteration کي روڪيو جيڪڏهن VBA ميڪرو سان ٽيبل جي قطارن ذريعي لوپ ڪندي قدر ملي ٿي
فرض ڪريو ته توهان چاهيو ٿا پنهنجي ٽيبل جي قطارن ذريعي لوپ ڪريو ۽ لوپنگ کي روڪيو جڏهن اهو هڪ خاص قدر ڳولي ٿو . توهان اهو ڪري سگهو ٿا صرف هڪ سادي ميڪرو ڪوڊ سان.
اچو ته اهو ڪيئن ڪجي سکو VBA Excel ۾.
Steps:
- سڀ کان پهريان، کوليو Visual Basic Editor مان Developer ٽئب ۽ Insert a Module ڪوڊ ونڊو ۾.
- پوءِ، ڪوڊ ونڊو ۾، ڪاپي ھيٺ ڏنل ڪوڊ ۽ پيسٽ ڪريو ان کي.
9583
توھان جو ڪوڊ ھاڻي ھاڻي ھلڻ لاءِ تيار آھي .
- بعد ۾، چلايو ميڪرو. 12>اهو لوپ کي شروع ڪندو ۽ ان کي روڪيندو جڏهن اهو رينج ۾ مخصوص قدر (“ Edge ”) ڳولي ٿو ۽ نتيجو MsgBox ۾ اڇلائي ٿو.
جيئن توهان مٿي ڏنل تصوير مان ڏسي سگهو ٿا، اتي هڪ پاپ اپ MsgBox آهي جيڪو توهان کي ڏيکاري رهيو آهي سيل ايڊريس، $B$10 ، جتي اسان مليو بيان ڪيل قدر، “ Edge ” .
VBA ڪوڊ وضاحت
7590
جي وضاحت ڪريو variable.
8228
ڪوڊ جو هي ٽڪرو هتي 1 کان 15 تائين قطارن ۾ لوپ ڪرڻ لاءِ آهي. جيڪڏهن اهو مخصوص لفظ ڳولي ٿو“ Edge “ پوءِ اهو نتيجو پاس ڪري ٿو سيل ايڊريس سان جيڪو لفظ رکي ٿو. اهو ان وقت تائين جاري رهندو جيستائين اهو لفظ جي ڳولا ۾ قطارون 1 کان 15 تائين سڀني ڊيٽا جي اسڪيننگ مڪمل ڪري.
وڌيڪ پڙهو: ايڪسل ٽيبل مان قطارون ۽ ڪالمن ڪيئن داخل ڪريو يا حذف ڪريو
6. VBA کي هر قطار ذريعي لوپ ڪريو ۽ Excel ۾ هڪ مخصوص قدر کي رنگ ڏيو
جيڪڏهن توهان MsgBox ۾ مخصوص قيمت جي سيل ايڊريس کي اڇلائڻ نٿا چاهيو؟ توھان شايد توھان چاھيو ٿا سيل کي رنگ ڏيو جيڪو قيمت رکي ٿو توھان ڳولي رھيا آھيو.
اچو ته سکو ته اھو ڪيئن ڪجي VBA macro.
قدم:
- اڳئين طرح، کوليو Visual Basic Editor مان Developer ٽئب ۽ Insert ڪوڊ ونڊو ۾ هڪ ماڊيول .
- پوءِ، هيٺ ڏنل ڪوڊ کي ڪاپي ڪريو ۽ پيسٽ ڪريو ان کي ڪوڊ ونڊو ۾.
4575
توهان جو ڪوڊ هاڻي هلڻ لاءِ تيار آهي.
- ان کان پوءِ، چلايو ميڪرو.
- اهو لوپ کي شروع ڪندو ۽ ان کي روڪيندو جڏهن اهو مخصوص قدر ڳوليندو (“ Edge ”) رينج ۾ ۽ سيل کي رنگ ڏيو سان ColorIndex جيڪو توهان ڪوڊ ۾ مهيا ڪيو آهي.
جيئن توهان مٿي ڏنل تصوير مان ڏسي سگهو ٿا، C ell B10 ، جتي اسان کي مخصوص قدر مليو، " Edge " رنگ ٿيل آهي ڪوڊ جي عمل کان پوءِ.
VBA ڪوڊ وضاحت
8545
جي وضاحت ڪريو