VBA ایکسل میں ٹیبل کی قطاروں کے ذریعے لوپ کرنا (11 طریقے)

Hugh West

16-10-2023 میکروس اور ایکسل VBA
  • اس کا اشتراک
Hugh West

فہرست کا خانہ

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

ورک بک ڈاؤن لوڈ کریں۔

آپ یہاں سے مفت پریکٹس ایکسل ورک بک ڈاؤن لوڈ کر سکتے ہیں۔

VBA.xlsm کے ساتھ ٹیبل کی قطاروں میں لوپ کریں

VBA کے ساتھ ایکسل میں ٹیبل کی قطاروں کے ذریعے لوپ کرنے کے 11 طریقے

اس سیکشن کی پیروی کرتے ہوئے، آپ سیکھیں گے کہ 11 مختلف طریقوں کے ساتھ ٹیبل کی قطاروں کو کیسے لوپ کرنا ہے ، جیسے خالی سیل تک قطاروں میں لوپ کریں، ایک خاص قدر ملنے تک قطاروں میں لوپ کریں، قطاروں میں لوپ کریں اور ایکسل میں VBA میکرو کے ساتھ ایک مخصوص سیل وغیرہ کو رنگ دیں۔

اوپر ڈیٹا سیٹ کی مثال ہے جس پر یہ مضمون طریقوں کو بیان کرنے کے لیے عمل کرے گا۔

1۔ سیل ریفرنس نمبر

اگر آپ اپنی ایکسل ورک شیٹ میں ٹیبل کی ہر قطار میں ہر سیل کے ذریعے لوپ کرنے کے لیے VBA کو ایمبیڈ کریں اور واپسی کی قیمت کے طور پر سیل حوالہ نمبر حاصل کریں ، پھر ذیل میں بتائے گئے اقدامات پر عمل کریں۔

مرحلہ:

  • شروع میں اپنے کی بورڈ پر Alt + F11 دبائیں یا چلیں۔متغیر۔ 
9661

کوڈ کا یہ ٹکڑا یہاں 1 سے 15 تک قطاروں میں لوپ کرنے کے لیے ہے۔ اگر اسے مخصوص لفظ " Edge " ملتا ہے تو یہ اس سیل کو رنگ دیتا ہے جس میں لفظ موجود ہے۔ یہ اس وقت تک یہ کام جاری رکھتا ہے جب تک کہ یہ لفظ کی تلاش میں قطار 1 سے 15 تک کے تمام ڈیٹا کی اسکیننگ مکمل نہیں کر لیتا ہے۔

مزید پڑھیں: کی بنیاد پر VLOOKUP ٹیبل ارے کا استعمال کیسے کریں ایکسل میں سیل ویلیو

اسی طرح کی ریڈنگز

  • کیا ایکسل میں TABLE فنکشن موجود ہے؟
  • ایکسل میں ٹیبل کو فہرست میں کیسے تبدیل کریں (3 فوری طریقے)
  • رینج کو ایکسل میں ٹیبل میں تبدیل کریں (5 آسان طریقے)
  • ایکسل ٹیبل میں مؤثر طریقے سے فارمولہ استعمال کریں (4 مثالوں کے ساتھ)
  • Excel ٹیبل کا نام: آپ کو جاننے کی ضرورت ہے

7۔ VBA کو ہر قطار کے ذریعے لوپ کرنے کے لیے لاگو کریں اور Excel میں ہر Odd Row کو کلر کریں

پچھلے حصے سے، ہم نے یہ سیکھا ہے کہ ایک مخصوص قدر رکھنے والے سیل کو کس طرح رنگین کرنا ہے۔ اس سیکشن میں، ہم سیکھیں گے کہ کس طرح ٹیبل کی ہر قطار کو لوپ کرنا ہے اور ایکسل میں VBA میکرو کے ساتھ ہر طاق قطار کو رنگ دینا ہے۔

اس عمل کو انجام دینے کے اقدامات ذیل میں بیان کیا گیا ہے۔

مرحلہ:

  • جیسا کہ پہلے دکھایا گیا ہے، Developer سے Visual Basic Editor کھولیں۔ کوڈ ونڈو میں ٹیب اور داخل کریں ایک ماڈیول ۔
  • پھر، مندرجہ ذیل کوڈ کو کاپی کریں اور اسے پیسٹ کریں کوڈ ونڈو۔ 
2185

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔

  • اب،میکرو کو چلائیں اور آؤٹ پٹ دیکھنے کے لیے درج ذیل تصویر کو دیکھیں۔

تمام طاق نمبر والی قطاریں رنگین ہیں ورک شیٹ کے ٹیبل میں موجود تمام قطاروں کو لوپ کرنے کے بعد۔

VBA کوڈ کی وضاحت 

3923

متغیر کی وضاحت کریں۔<3 <24 25>۔ اگر قطار کے نمبروں کو 2 سے تقسیم کرنے کا طریقہ انٹیجر کی قسم میں ذخیرہ شدہ واپسی قطار نمبر کے برابر ہے، تو یہ کوڈ ان تمام قطاروں کو رنگ دیتا ہے جو کوڈ میں فراہم کردہ کلر انڈیکس کے ساتھ حساب سے نکالی گئی ہیں۔ یہ تمام قطاروں میں اس وقت تک چلتا رہتا ہے جب تک کہ یہ رینج کے اختتام تک نہ پہنچ جائے۔

8۔ ایکسل میں قطاروں کے ذریعے لوپ کرنے کے لیے VBA کو لاگو کریں اور ہر ایک قطار کو رنگ دیں

پچھلے حصے میں، ہم نے سیکھا ہے کہ ٹیبل کی ہر طاق قطار کو کیسے رنگین کیا جاتا ہے۔ اس سیکشن میں، ہم سیکھیں گے کہ کس طرح ایکسل میں VBA میکرو کے ساتھ ٹیبل کی ہر قطار کو لوپ کرنا ہے اور ہر ایک قطار کو رنگ دینا ہے ۔>

اقدامات:

  • سب سے پہلے، Developer ٹیب سے Visual Basic Editor کھولیں اور Insert کوڈ ونڈو میں ایک ماڈیول ۔
  • پھر، مندرجہ ذیل کوڈ کو کاپی کریں اور اسے کوڈ ونڈو میں پیسٹ کریں ۔ 
3166

آپ کا کوڈ اب تیار ہے۔چلائیں۔

  • اس کے بعد، میکرو کو چلائیں اور نتیجہ دیکھنے کے لیے درج ذیل تصویر کو دیکھیں۔
<0

تمام برابر نمبر والی قطاریں ورک شیٹ کے ٹیبل میں موجود تمام قطاروں کو لوپ کرنے کے بعد رنگین ہوجاتی ہیں۔

1 موجودہ قطار سے تین قطاریں، B4 ۔ یہ پہلے اسے رنگ دیتا ہے پھر قطار کی گنتی کو 2 تک بڑھاتا ہے اور اسے اس وقت تک رنگتا رہتا ہے جب تک کہ یہ ڈیٹاسیٹ کی آخری قطار تک نہ پہنچ جائے۔

9۔ ایکسل میں خالی سیل تک قطاروں کے ذریعے تکرار کرنے کے لیے میکرو کا اطلاق کریں

اگر آپ چاہتے ہیں کہ آپ کا کوڈ اس طرح کام کرے کہ یہ ٹیبل کی تمام قطاروں میں سے گزر جائے گا اور خالی سیل تک پہنچنے پر رک جائے گا ، پھر یہ سیکشن آپ کے لیے ہے۔ آپ اس کام کو ایکسل VBA میں فار لوپ اور Do-Until Loop دونوں کے ساتھ انجام دے سکتے ہیں۔

9.1۔ FOR لوپ کے ساتھ

ٹیبل میں قطاروں میں لوپ کرنے کے مراحل جب تک کہ VBA Excel میں FOR Loop کے ساتھ خالی سیل نیچے دیا گیا ہے۔

مرحلہ:

  • سب سے پہلے، Developer ٹیب سے Visual Basic Editor کھولیں اور Insert کوڈ ونڈو میں ایک ماڈیول ۔
  • اس کے بعد، درج ذیل کوڈ کو کاپی کریں اور اسے چسپاں کریں کوڈ ونڈو میں۔ 
4778

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔

  • پھر، چلائیں میکرو اور نتیجہ ذیل میں gif میں دکھایا گیا ہے۔

میکرو کو چلانے کے بعد، اس نے ٹیبل میں تمام قطاروں کو لوپ کرنا شروع کردیا اور ایک بار جب یہ خالی سیل، سیل B8 تک پہنچ گیا، تو اس نے دوہرانا بند کر دیا ۔

VBA کوڈ کی وضاحت 

9120

متغیر کی وضاحت کریں۔

3188

اسکرین اپ ڈیٹ کرنے والے ایونٹ کو بند کردیں۔

4510

سب قطاریں سیل B4 سے شروع ہونے والی آخری قطار تک اسٹور کریں۔

6783

منتخب کریں سیل B4 ۔

4534

کوڈ کا یہ ٹکڑا تمام قطاروں میں لوپ کرنا شروع کرتا ہے۔ جب اسے قطار میں ایک خالی سیل ملتا ہے تو پھر اسے منتخب کرتا ہے اور قطاروں کو اسکین کرنا جاری رکھتا ہے جب تک کہ یہ اختتام تک نہ پہنچ جائے۔

7759

اسکرین اپڈیٹنگ ایونٹ کو آن کریں۔

9.2۔ Do-Until Loop کے ساتھ

قطاروں میں لوپ کرنے کے مراحل جب تک کہ VBA میں Do-Until loop کے ساتھ خالی سیل نہ آجائے۔

مرحلہ:

  • سب سے پہلے، Developer ٹیب سے Visual Basic Editor کھولیں اور Insert a ماڈیول کوڈ ونڈو میں۔
  • پھر، درج ذیل کوڈ کو کاپی کریں اور اسے کوڈ ونڈو میں پیسٹ کریں ۔ 
3251

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔

  • بعد میں، چلائیں میکرو۔ نتیجہ مندرجہ ذیل gif میں دکھایا گیا ہے۔

میکرو چلانے کے بعد، اس نے ٹیبل میں تمام قطاروں میں لوپ کرنا شروع کیا اور ایک بار یہ خالی سیل، سیل B8 تک پہنچ گیا، اس نے تکرار کو روک دیا ۔

VBA کوڈوضاحت 

8058

اس سیل کو منتخب کریں جس سے ہم کام کریں گے۔

5838

شروع ہوتا ہے اور اس وقت تک لوپ کرنا جاری رکھتا ہے جب تک کہ ایک خالی سیل نہ مل جائے۔

7824

جب ایک خالی سیل ایک قطار میں ملا پھر اسے منتخب کریں اور تکرار کو روکیں۔

10۔ VBA میکرو ایکسل میں ایک سے زیادہ خالی سیلوں تک قطاروں کے ذریعے اعادہ کرنے کے لیے

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

قطاروں میں لوپ کرنے کے مراحل جب تک کہ ایک ٹیبل میں متعدد خالی خلیات نہ مل جائیں VBA Excel کے ساتھ ذیل میں دکھایا گیا ہے۔

اقدامات:

  • سب سے پہلے، Visual Basic Editor کھولیں کوڈ ونڈو میں ڈیولپر ٹیب اور داخل کریں ایک ماڈیول ۔
  • پھر، درج ذیل کوڈ کو کاپی کریں اور <1 اسے کوڈ ونڈو میں چسپاں کریں۔ 
5027

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔

  • اب، میکرو کو چلائیں اور آؤٹ پٹ کے لیے درج ذیل gif دیکھیں۔

میکرو کو چلانے کے بعد، یہ پر نہیں رکا۔ پہلا خالی سیل، سیل B8 ۔ یہ اس وقت رک گیا جب اسے سیل B16 پر لگاتار دو خالی سیل ملے۔

VBA کوڈ کی وضاحت 

3369

سیل کو منتخب کریں۔ جس سے ہم کام کریں گے۔

7527

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

3360

جب لگاتار دو خالی سیل مل جائیں، تباسے منتخب کریں اور تکرار کو روکیں۔

11۔ ایکسل میں خالی ہونے تک تمام کالموں کو جوڑ کر قطاروں کے ذریعے لوپ کرنے کے لیے VBA کو ایمبیڈ کریں

یہ سیکشن آپ کو دکھائے گا کہ کس طرح ایک ٹیبل میں تمام قطاروں کو لوپ کرنا ہے اور خالی سیل تک تمام کالموں کو جوڑنا ہے۔ VBA Excel کے ساتھ پایا جاتا ہے۔

آئیے سیکھیں کہ اسے Excel میں VBA میکرو کے ساتھ کیسے کرنا ہے۔

اقدامات:

  • سب سے پہلے، Developer ٹیب سے Visual Basic Editor کھولیں اور Insert a Module کوڈ ونڈو میں۔
  • پھر، درج ذیل کوڈ کو کاپی کریں اور اسے کوڈ ونڈو میں پیسٹ کریں ۔ 
4834

آپ کا کوڈ اب چلانے کے لیے تیار ہے۔

  • بعد میں، چلائیں میکرو اور نتیجہ کے لیے درج ذیل gif دیکھیں۔

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

VBA کوڈ کی وضاحت 

7945

متغیرات کی وضاحت کریں۔

2798

اس شیٹ کا نام سیٹ کریں جس کے ساتھ ہم کام کریں گے (“ ConcatenatingAllColUntilBlank ” ورک بک میں شیٹ کا نام ہے)۔

2414

اس رینج کی وضاحت کریں جس کے ساتھ ہم کام کریں گے۔

4032

کوڈ کا یہ ٹکڑا سرنی کے ساتھ لوپ کو شروع کرتا ہے۔ یہ اس وقت تک لوپ کرتا رہتا ہے جب تک کہ یہ صف کا سب سے بڑا سب اسکرپٹ اور نچلی حد کو واپس نہ کر دے۔پہلی جہت. پھر یہ دوسری جہت کی نچلی حد کو نکالنے کے تکرار میں داخل ہوتا ہے۔ اس کے بعد، یہ تمام نکالی گئی اقدار کو iResult متغیر میں جوڑ کر اور نتیجہ کو MsgBox میں پھینک کر پاس کرتا ہے۔ یہ اس وقت تک کرتا رہتا ہے جب تک کہ اسے خالی سیل نہ ملے۔

نتیجہ

نتیجہ پر پہنچنے کے لیے، اس مضمون نے آپ کو قطاروں سے باہر نکلنے کے 11 موثر طریقے دکھائے ہیں۔ ایک میز کا ایکسل میں VBA میکرو کے ساتھ۔ مجھے امید ہے کہ یہ مضمون آپ کے لیے بہت فائدہ مند رہا ہے۔ موضوع سے متعلق کوئی بھی سوال پوچھیں۔

ٹیب پر ڈویلپر -> Visual Basicکھولنے کے لیے Visual Basic Editor.

  • اس کے بعد، پاپ اپ کوڈ ونڈو میں، مینو بار، کلک کریں داخل کریں -> ماڈیول ۔

  • پھر، مندرجہ ذیل کوڈ کو کاپی اور پیسٹ اسے کوڈ میں ونڈو۔ 
3856

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔

  • اب، دبائیں F5 کی بورڈ یا مینو بار سے منتخب کریں چلائیں -> ذیلی/یوزر فارم چلائیں۔ آپ میکرو کو چلانے کے لیے ذیلی مینو بار میں موجود چھوٹے پلے آئیکن پر بھی کلک کر سکتے ہیں۔

  • یا ڈیٹاسیٹ اور نتیجہ کو بصری طور پر دیکھیں اور اس کا موازنہ کریں، آپ کوڈ کو محفوظ کر سکتے ہیں اور ورک شیٹ پر واپس جا سکتے ہیں دلچسپی کے۔
  • وہاں سے، آپ <1 پر کلک کر سکتے ہیں۔>Macros Developer ٹیب سے، Micro کا نام منتخب کریں، اور پھر چلائیں پر کلک کریں۔

کامیاب کوڈ کے نفاذ کے بعد، نتیجہ دیکھنے کے لیے اوپر دیے گئے GIF کو دیکھیں۔ ایک پاپ اپ MsgBox ہوگا جو آپ کو ہر قطار سے ہر سیل کا سیل حوالہ نمبر دکھاتا ہے آپ کی ایکسل شیٹ میں ٹیبل سے۔

VBA کوڈ کی وضاحت 

3434

ٹیبل میں آخری قطار نمبر حاصل کرنے کے لیے کالم B تلاش کرکے

1837

قطار نمبر 4 سیٹ کریں، جہاں سے ہمارا ڈیٹا شروع ہوتا ہے۔

Sub LoopThroughRowsAndColorEvenRows() Dim iRow As Long With Range("B4").CurrentRegion For iRow = 3 To .Rows.Count Step 2 .Rows(iRow).Interior.ColorIndex = 8 Next End With End Sub

پہلی قطار سے لوپ کرنے کے لیے۔

6726

کالم نمبر 2 سیٹ کریں، جہاں سے ہمارا ڈیٹا شروع ہوتا ہے۔

9260

آخری حاصل کرنے کے لیے قطاروں میں لوپ کرنا شروع کریں۔آخری قطار تک موجودہ قطار کا جائزہ لے کر کالم نمبر۔

1743

کالم کو پہلی قطار سے آخری قطار تک لوپ کرتے ہوئے انکریمنٹ کریں۔

7782

کوڈ کا یہ ٹکڑا پروسیس کرنے کے لیے کام کرتا ہے، ہر ایک کے بعد انکریمنٹ تکرار کریں اور کوڈ کا نتیجہ ظاہر کریں۔

مزید پڑھیں: ایکسل ٹیبل میں خودکار طور پر نئی قطار کیسے شامل کی جائے

2 . VBA کو ہر قطار میں ہر ایک سیل کے ذریعے لوپ کرنے کے لیے قدر کے لحاظ سے لاگو کریں

اگر آپ ٹیبل کی ہر قطار میں ہر سیل کے ذریعے لوپ کرنا چاہتے ہیں اور سیلز میں موجود قدر کو واپسی کی قدر کے طور پر پھینکنا چاہتے ہیں۔ ، پھر یہ سیکشن آپ کو یہ جاننے میں مدد کرے گا کہ اسے VBA Excel کے ساتھ کیسے کرنا ہے۔

آپ اسے ListObject اور <1 کے ساتھ کر سکتے ہیں۔>DataBodyRange VBA کی پراپرٹی۔ ہم آپ کو آبجیکٹ اور پراپرٹی دونوں کے ساتھ میکرو کوڈ دکھائیں گے۔

2.1۔ ListObject کے ساتھ

VBA ایکسل میں ListObject کے ساتھ سیل ویلیو کے ذریعہ ٹیبل کی ہر قطار میں ہر سیل میں لوپ کرنے کے اقدامات ذیل میں دیئے گئے ہیں۔

اقدامات:

  • پہلے کی طرح، Developer ٹیب سے Visual Basic Editor کھولیں اور داخل کریں کوڈ ونڈو میں ایک ماڈیول ۔
  • پھر، کوڈ ونڈو میں، درج ذیل کوڈ کو کاپی اور پیسٹ کریں یہ۔ 
8336

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔

22>

  • اس کے بعد، چلائیں میکرو جیسا کہ ہم نے آپ کو اوپر والے حصے میں دکھایا ہے۔ نتیجہ gif میں دکھایا گیا ہے۔ذیل میں۔

ایک پاپ اپ MsgBox ہوگا جو آپ کو ہر قطار سے ہر سیل کے ذریعہ کی جانے والی قدر دکھاتا ہے <2 اپنی ایکسل شیٹ میں ٹیبل سے۔

VBA کوڈ کی وضاحت 

5344

متغیرات کی وضاحت کریں۔

1699

یہ ٹکڑا آف کوڈ سب سے پہلے ٹیبل میں قطاروں سے گزرنا شروع کرتا ہے (" TblStudents " ہمارے ٹیبل کا نام ہے)۔ پھر ہر قطار کے لیے کالم داخل کرتا ہے۔ اس کے بعد MsgBox میں سیل کی ویلیو پاس کریں۔ پھر اگلے کالم پر جائیں۔ ایک قطار کے تمام کالموں میں تکرار ختم کرنے کے بعد، پھر یہ اگلی قطار میں جاتا ہے اور آخری قطار تک تکرار کا عمل جاری رکھتا ہے۔

2.2۔ DataBodyRange پراپرٹی کے ساتھ

ٹیبل سے نکالے گئے ڈیٹا کے ساتھ مزید مخصوص ہونے کے لیے، آپ ListObject کی DataBodyRange پراپرٹی استعمال کرسکتے ہیں۔ DataBodyRange پراپرٹی آپ کو ہیڈر قطار اور داخل کرنے والی قطار کے درمیان فہرست سے رینج پر مشتمل نتیجہ پھینک دے گی۔

اس بات کے اقدامات کہ آپ کس طرح ہر قطار میں ہر سیل کو لوپ کرسکتے ہیں۔ VBA Excel میں DataBodyRange کے ساتھ سیل ویلیو کے لحاظ سے ایک ٹیبل ذیل میں دیا گیا ہے۔

مرحلہ:

  • جیسا کہ دکھایا گیا ہے۔ اس سے پہلے، Developer ٹیب سے Visual Basic Editor کھولیں اور کوڈ ونڈو میں Insert a Module ۔
  • پھر مندرجہ ذیل کوڈ کو کاپی کریں اور اسے کوڈ ونڈو میں پیسٹ کریں ۔ 
7912

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔

  • بعد میں،میکرو کو چلائیں اور آؤٹ پٹ دیکھنے کے لیے درج ذیل gif کو دیکھیں۔

ایک پاپ اپ ہوگا MsgBox آپ کو آپ کی ایکسل شیٹ میں موجود ٹیبل سے ہر قطار سے ہر سیل کی کی قیمت دکھا رہا ہے۔

VBA کوڈ کی وضاحت 

3381

متغیر کی وضاحت کریں۔

3711

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

3۔ ایکسل میں کالموں کو جوڑنے کے ذریعے قطاروں کے ذریعے تکرار کرنے کے لیے VBA میکرو کا اطلاق کریں

یہ سیکشن دکھائے گا کہ کس طرح اپنے ڈیٹاسیٹ سے کالموں کو پہلے کالم کے ساتھ جوڑ کر ٹیبل میں قطاروں کے ذریعے لوپ کریں ایکسل میں۔

مثال کے طور پر، ہمارے ڈیٹاسیٹ کے لیے، پہلے ہم جان سیل B5 اور 101 سیل C5 کے ذریعے ان کو جوڑ کر دوبارہ کریں گے سیل B5 میں جان اور 89 سیل D5 میں ان کو قطار 5 سے جوڑ کر۔ ایکسل میں VBA میکرو۔

مرحلہ:

  • سب سے پہلے، Visual Basic Editor <سے کھولیں۔ کوڈ ونڈو میں 1>ڈیولپر ٹیب اور داخل کریں ایک ماڈیول ۔ کوڈاور پیسٹ کریں اسے۔ 
4084

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔

  • تیسرے، چلائیں میکرو۔ نتیجہ دیکھنے کے لیے نیچے دیے گئے gif کو دیکھیں۔

ایک پاپ اپ MsgBox آپ کو مربوط قدر دکھائے گا۔ پہلے اور دوسرے کالم سے سیلز کا ( کالم B سے سیل B5 میں جان اور کالم C سے سیل C5 میں 101) اور پھر مربوط قدر پہلے اور تیسرے کالم کے سیلز ( کالم B سے سیل B5 میں جان اور کالم D سے سیل D5 میں 89) قطار نمبر 5 آپ کے ڈیٹاسیٹ سے۔ اور یہ کنکٹیشن آپریشن اس وقت تک جاری رہے گا جب تک یہ ٹیبل کی آخری قطار تک نہیں پہنچ جاتا۔

VBA کوڈ کی وضاحت 

1257

متغیر کی وضاحت کریں۔

9262

پھر کوڈ فعال شیٹ سے ٹیبل کو منتخب کرتا ہے (" TblConcatenate " ہمارے ٹیبل کے نام میں)۔

9101

اس کے بعد، ہیڈر کو چھوڑ کر ہر قطار کو دہرانا شروع کرتا ہے۔ کالم اگر تکرار کو کالم ہیڈر اور قطاروں کے درمیان رینج میں کوئی مماثلت ملتی ہے تو یہ قیمت کو iValue متغیر میں محفوظ کرتا ہے۔

6644

اگر اوپر کی شرط پوری نہیں ہوتی ہے، تو پھر کوڈ قدر کو MsgBox میں ڈالتا ہے اور شرط کو ختم کرتا ہے۔ اس کے بعد، یہ دوسری رینج میں لوپنگ کی طرف بڑھتا ہے اور آخری قطار تک اعادہ کرتا رہتا ہے۔ ایک بار جب یہ آخری قطار تک پہنچ جاتا ہے، میکرو کوڈ پر عمل درآمد ختم کر دیتا ہے۔

4۔ دوبارہ کرنے کے لیے میکرو کو ایمبیڈ کریں۔ایکسل میں ایک ٹیبل میں تمام کالموں کو جوڑ کر قطاروں کے ذریعے

اس سیکشن میں، ہم سیکھیں گے کہ ڈیٹاسیٹ میں کے ساتھ ہر قطار میں موجود تمام کالموں کو کیسے جوڑنا ہے ۔ ایکسل میں VBA میکرو۔

عمل کرنے کے اقدامات جو نیچے دکھائے گئے ہیں۔

مرحلہ:

  • سب سے پہلے، کھولیں Visual Basic Editor Developer ٹیب سے اور Insert a Module کوڈ ونڈو میں۔
  • پھر، درج ذیل کوڈ کو کاپی کریں اور اسے کوڈ ونڈو میں پیسٹ کریں ۔ 
3047

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔

<3

  • اس کے بعد، چلائیں میکرو کوڈ۔

جیسا کہ آپ اوپر والے gif سے دیکھ سکتے ہیں کہ وہاں موجود ہے ایک پاپ اپ MsgBox آپ کو آپ کی ایکسل ورک شیٹ کے ٹیبل سے ہر قطار میں موجود تمام کالموں کی مربوط قدر دکھاتا ہے۔

1 ورک بک میں)۔ 

9855

De ٹیبل کے نام کو ٹھیک کریں جس کے ساتھ ہم کام کریں گے (“ TblConcatenateAll ” ہمارے ڈیٹاسیٹ میں ٹیبل کا نام ہے)۔ 

3590

ٹیبل کی ہر قطار میں تکرار شروع کرتا ہے۔ 

8867

ٹیبل کی ہر قطار کے ہر کالم کے ذریعے تکرار شروع کرتا ہے۔ 

5654

ہر قطار کے ہر کالم میں کی جانے والی قدروں کو کاٹ کر نتیجہ کو اسٹور کریں۔ ہر قطار میں رہنے والے تمام کالموں کو اسکین کرنے کے بعد، یہ گزر گیا۔نتیجہ MsgBox میں۔ پھر اگلی قطار میں دوبارہ لوپ کرنا شروع کرتا ہے اور اس وقت تک لوپ کرنا جاری رکھتا ہے جب تک کہ یہ ٹیبل کی آخری قطار تک نہ پہنچ جائے۔

مزید پڑھیں: ایکسل VBA کے ساتھ ٹیبل کے متعدد کالموں کو کیسے ترتیب دیا جائے (2 طریقے)

5۔ VBA میکرو

فرض کریں کہ آپ اپنی ٹیبل کی قطاروں کے ذریعے لوپ کرنا چاہتے ہیں اور جب اسے کوئی خاص قدر مل جائے تو لوپنگ کو روکیں ۔ آپ اسے صرف ایک سادہ میکرو کوڈ سے کر سکتے ہیں۔

آئیے سیکھیں کہ اسے کیسے کرنا ہے VBA ایکسل میں۔

مرحلہ:

  • سب سے پہلے، ڈیولپر ٹیب سے بصری بنیادی ایڈیٹر کھولیں اور کوڈ ونڈو میں داخل کریں ایک ماڈیول ۔
  • پھر، کوڈ ونڈو میں، درج ذیل کوڈ کو کاپی اور پیسٹ کریں اسے۔ 
4216

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔ .

  • بعد میں، میکرو کو چلائیں ۔
  • یہ لوپ کو شروع کرے گا اور اسے روکے گا جب یہ رینج میں مخصوص قدر (“ Edge ”) تلاش کرتا ہے اور نتیجہ MsgBox میں پھینک دیتا ہے۔

جیسا کہ آپ اوپر کی تصویر سے دیکھ سکتے ہیں، وہاں ایک پاپ اپ MsgBox ہے جو آپ کو سیل ایڈریس، $B$10 دکھا رہا ہے، جہاں ہمیں ملا مخصوص قدر، “ Edge ” .

VBA کوڈ کی وضاحت

Set iSheet = Sheets("ConcatenatingAllColUntilBlank")

کی وضاحت کریں متغیر۔ 

5326

کوڈ کا یہ ٹکڑا یہاں 1 سے 15 تک قطاروں کو لوپ کرنے کے لیے ہے۔ اگر اسے مخصوص لفظ مل جاتا ہے۔" Edge " پھر یہ نتیجہ کو سیل ایڈریس کے ساتھ پاس کرتا ہے جس میں لفظ موجود ہے۔ یہ اس وقت تک یہ کام جاری رکھتا ہے جب تک کہ یہ لفظ کی تلاش میں قطار 1 سے 15 تک کے تمام ڈیٹا کو اسکین نہیں کر لیتا۔

مزید پڑھیں: ایکسل ٹیبل سے قطاروں اور کالموں کو کیسے داخل یا حذف کریں

6۔ VBA کو ہر قطار کے ذریعے لوپ کریں اور ایکسل میں ایک مخصوص ویلیو کو رنگ دیں

اگر آپ مخصوص ویلیو کے سیل ایڈریس کو MsgBox میں نہیں پھینکنا چاہتے تو کیا ہوگا؟ ہو سکتا ہے کہ آپ اس سیل کو رنگ دینا چاہیں جس میں وہ قدر ہے جو آپ تلاش کر رہے ہیں ۔

آئیے سیکھتے ہیں کہ اسے VBA میکرو کے ساتھ کیسے کرنا ہے۔

اقدامات:

  • پہلے کی طرح، Developer ٹیب سے Visual Basic Editor کھولیں اور Insert ایک ماڈیول کوڈ ونڈو میں۔
  • پھر، درج ذیل کوڈ کو کاپی کریں اور اسے کوڈ ونڈو میں پیسٹ کریں ۔ 
7704

آپ کا کوڈ اب چلنے کے لیے تیار ہے۔

  • اس کے بعد، چلائیں میکرو۔
  • یہ لوپ کو شروع کرے گا اور اسے روک دے گا جب اسے مخصوص قدر مل جائے گی (“ Edge ”) رینج میں اور ColourIndex کے ساتھ سیل کو رنگ دے گا جو آپ نے کوڈ میں فراہم کیا ہے۔

جیسا کہ آپ اوپر کی تصویر سے دیکھ سکتے ہیں، C ell B10 ، جہاں ہمیں مخصوص قدر ملی، " Edge " رنگین ہے کوڈ کے نفاذ کے بعد۔

VBA کوڈ کی وضاحت 

7776

کی وضاحت کریں

پچھلی پوسٹ ایکسل میں اعشاریہ کو منٹ اور سیکنڈ میں کیسے تبدیل کریں (3 آسان طریقے)
اگلی پوسٹ ایکسل میں ایک اور دو متغیرات کی حساسیت کا تجزیہ (2 مثالیں)

ہیو ویسٹ ایک انتہائی تجربہ کار ایکسل ٹرینر اور تجزیہ کار ہے جس کا انڈسٹری میں 10 سال سے زیادہ کا تجربہ ہے۔ انہوں نے اکاؤنٹنگ اور فنانس میں بیچلر کی ڈگری اور بزنس ایڈمنسٹریشن میں ماسٹر کی ڈگری حاصل کی۔ ہیو کو پڑھانے کا جنون ہے اور اس نے ایک منفرد تدریسی نقطہ نظر تیار کیا ہے جس کی پیروی کرنا اور سمجھنا آسان ہے۔ ایکسل کے بارے میں ان کے ماہرانہ علم نے دنیا بھر میں ہزاروں طلباء اور پیشہ ور افراد کو اپنی صلاحیتوں کو بہتر بنانے اور اپنے کیریئر میں بہترین کارکردگی دکھانے میں مدد کی ہے۔ اپنے بلاگ کے ذریعے، ہیو اپنے علم کو دنیا کے ساتھ بانٹتا ہے، مفت Excel سبق اور آن لائن تربیت کی پیشکش کرتا ہے تاکہ افراد اور کاروبار کو ان کی مکمل صلاحیت تک پہنچنے میں مدد ملے۔