VBA ڏانهن لوپ ذريعي قطار جي ٽيبل ذريعي Excel ۾ (11 طريقا)

  • هن کي شيئر ڪريو
Hugh West

مواد جي جدول

جڏهن اسان وٽ اسان جي 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>
  • سڀ کان پهريان، کوليو Visual Basic Editor مان Developer ٽئب ۽ Insert a Module ڪوڊ ونڊو ۾.
  • پوءِ، هيٺ ڏنل ڪوڊ کي ڪاپي ڪريو ۽ پيسٽ ڪريو ان کي ڪوڊ ونڊو ۾.
  • 8107

    توھان جو ڪوڊ ھاڻي تيار آھيهلو.

    40>

    • اڳيون، چلايو ميڪرو ۽ نتيجو ڏسڻ لاءِ هيٺين تصوير کي ڏسو.

    سڀني هڪ نمبر واريون قطارون رنگيل آهن ورڪ شيٽ جي ٽيبل ۾ موجود سڀني قطارن کي لوپ ڪرڻ کان پوءِ.

    1 موجوده قطار مان ٽي قطار، B4 . اھو پھريائين ان کي رنگ ڏيندو آھي پوءِ قطار جي ڳڻپ کي 2 وڌائيندو آھي ۽ ان کي رنگ ڏيندو رھندو آھي جيستائين اھو ڊيٽا سيٽ جي آخري قطار تائين پھچندو آھي.

    9. ايڪسل ۾ قطارن تائين خالي سيل جي ذريعي ٻيهر ڪرڻ لاءِ ميڪرو لاڳو ڪريو

    جيڪڏهن توهان چاهيو ٿا ته توهان جو ڪوڊ ڪم ڪري ته جيئن اهو ٽيبل جي سڀني قطارن کي لوپ ڪري ڇڏي ۽ جڏهن اهو خالي سيل تي پهچي وڃي ته روڪيو ، پوء هي سيڪشن توهان لاء آهي. توھان اھو ڪم ڪري سگھو ٿا ٻئي سان لوپ لاءِ ۽ Do-Until Loop Excel ۾ VBA .

    9.1. FOR لوپ سان

    قدم لوپ ذريعي قطار ۾ ٽيبل تي جيستائين خالي سيل سان FOR لوپ ۾ VBA Excel هيٺ ڏنل آهن.

    قدم:

    11>
  • پهريون، کوليو Visual Basic Editor مان Dveloper ٽئب ۽ Insert ڪوڊ ونڊو ۾ هڪ ماڊيول .
  • ان کان پوءِ هيٺ ڏنل ڪوڊ کي ڪاپي ڪريو ۽ پيسٽ ڪريو ان کي ڪوڊ ونڊو ۾.
  • 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>
  • سڀ کان پهريان، کوليو Visual Basic Editor مان Developer ٽئب ۽ Insert a ماڊل ڪوڊ ونڊو ۾.
  • پوءِ، هيٺ ڏنل ڪوڊ کي ڪاپي ڪريو ۽ پيسٽ ڪريو ان کي ڪوڊ ونڊو ۾.
  • 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

      جي وضاحت ڪريو

    Hugh West هڪ انتهائي تجربيڪار ايڪسل ٽرينر ۽ تجزيه نگار آهي جنهن سان صنعت ۾ 10 سالن کان وڌيڪ تجربو آهي. هن وٽ اڪائونٽنگ ۽ فنانس ۾ بيچلر جي ڊگري ۽ بزنس ايڊمنسٽريشن ۾ ماسٽر جي ڊگري آهي. Hugh کي تدريس جو شوق آهي ۽ هڪ منفرد تدريس وارو طريقو ٺاهيو آهي جنهن جي پيروي ڪرڻ ۽ سمجهڻ آسان آهي. Excel جي هن جي ماهر ڄاڻ سڄي دنيا ۾ هزارين شاگردن ۽ پروفيسر جي مدد ڪئي آهي انهن جي صلاحيتن کي بهتر بنائڻ ۽ انهن جي ڪيريئر ۾ شاندار. هن جي بلاگ ذريعي، هگ پنهنجي ڄاڻ کي دنيا سان حصيداري ڪري ٿو، مفت ايڪسل سبق ۽ آن لائن ٽريننگ پيش ڪري ٿو ماڻهن ۽ ڪاروبار کي انهن جي مڪمل صلاحيت تائين پهچڻ ۾ مدد ڏيڻ.