ايڪسل ۾ ڊيٽا کي فلٽر ڪرڻ لاءِ VBA ڪوڊ (8 مثال)

Hugh West

24-10-2023 Macros & Excel VBA
  • هن کي شيئر ڪريو
Hugh West

Excel ترتيب ڪريو & فلٽر ڪمانڊ وٽ محدود حد آهي ڊيٽا کي فلٽر ڪريو . پر VBA استعمال ڪندي توهان ڊيٽا فلٽر ڪري سگهو ٿا وسيع رينج ۾ جيئن توهان چاهيو. هي آرٽيڪل توهان کي 8 مفيد مثال فراهم ڪندو VBA ڪوڊ استعمال ڪرڻ لاءِ ڊيٽا کي فلٽر ڪرڻ لاءِ ايڪسل ۾ VBA ڪوڊز وشد مثالن سان استعمال ڪندي.

پریکٹس ورڪ بڪ ڊائون لوڊ ڪريو

توهان هتان مفت ايڪسل ٽيمپليٽ ڊائون لوڊ ڪري سگهو ٿا ۽ پنهنجو پاڻ تي مشق ڪري سگهو ٿا.

7> Data.xlsm کي فلٽر ڪرڻ لاءِ VBA ڪوڊ

8 Excel ۾ ڊيٽا کي فلٽر ڪرڻ لاءِ VBA ڪوڊ استعمال ڪرڻ جا مثال

اچو ته سڀ کان پهريان اسان جي ڊيٽا سيٽ کي متعارف ڪرايون جيڪو ڪجهه شاگردن جي صنف، حيثيت، ۽ عمر .

1. ايڪسل ۾ ٽيڪسٽ معيار جي بنياد تي ڊيٽا کي فلٽر ڪرڻ لاءِ VBA ڪوڊ استعمال ڪريو

اسان جي پهرين مثال ۾، اسان استعمال ڪنداسين VBA ڪرڻ لاءِ فلٽر صرف مرد شاگرد جنس ڊيٽا سيٽ جي ڪالمن مان.

قدم:

  • ساڄي ڪلڪ ڪريو تي شيٽ جو عنوان .
  • پوءِ ڪوڊ ڏسو چونڊيو مان ڪانٽيڪسٽ مينيو .

جلد ئي بعد ۾، هڪ VBA ونڊو کلي ويندي.

15>

    12> ٽائپ ڪريو هيٺ ڏنل ڪوڊ ان ۾ it- 
9851
  • بعد ۾، گھٽ ڪيو VBA

16>

ڪوڊ بريڪ ڊائون

  • هتي، مون هڪ ٺاهيو سب طريقي، Filter_Data_Text() .
  • پوءِ استعمال ڪيو رينج ملڪيت جو اعلان ڪرڻ لاءِ اسان جي لاڳاپيل شيٽ جو نالو ۽ رينج
  • اڳيون، مون استعمال ڪيو آٽو فلٽر طريقو استعمال ڪرڻ لاءِ معيار منهنجي پسند جو جتي فيلڊ:=2 مطلب کالم 2 . ۽ Criteria1:=”Male” to Filter data for Male.
  • ان کان پوءِ، <1 ڏانهن> کوليو The Macros dialog box , Click جيئن هيٺ ڏنل: Developer > Macros.

  • چونڊيو The Macro name جيئن ڪوڊز ۾ ذڪر ڪيو ويو آهي .
  • آخرڪار، صرف دٻايو رن .
    • 14>

    هاڻي ڏسو ته اسان وٽ صرف مرد شاگردن جي ڊيٽا فلٽرنگ کان پوءِ.

    21>

    وڌيڪ پڙهو: ايڪسل فلٽر ڊيٽا جي بنياد تي سيل ويليو (6 موثر طريقا)

    9> 2. هڪ ڪالمن ۾ ڪيترن ئي معيارن سان ڊيٽا کي فلٽر ڪرڻ لاءِ VBA ڪوڊ لاڳو ڪريو

    هتي، اسين ڪنداسين فلٽر هڪ ڪالمن ۾ ڪيترن ئي معيارن لاءِ. ڊيٽا سيٽ جي ڪالمن نمبر ٽي مان، اسان گريجوئيٽ ۽ پوسٽ گريجوئيٽ شاگردن لاءِ فلٽر ڪنداسين.

    قدم: VBA ونڊو کولڻ لاءِ

    • پهرين ٻن مرحلن تي عمل ڪريو پهريون مثال .
    • بعد ۾، ٽائپ ڪريو هيٺ ڏنل ڪوڊس ان ۾- 
    6278
      12>پوءِ گھٽ ڪريو VBA

    7>

    ڪوڊ بريڪ ڊائون

    11>12>هتي، مون هڪ ٺاهيو ذيلي طريقي، Filter_One_Column() .
  • پوءِ استعمال ڪيو رينج ملڪيت اسان جي لاڳاپيل شيٽ جو نالو ۽ رينج
  • بيان ڪرڻ لاءِ اڳيون، مون استعمال ڪيو آٽو فلٽر جو طريقو استعمال ڪرڻ لاءِ Criteria منهنجي پسند جو جتي Feld:=3 مطلب کالم 3 . هتي، Criteria1:=”گريجوئيٽ“ ۽ Criteria2:=”پوسٽ گريجوئيٽ“ کان فلٽر شاگرد جي اسٽيٽس .
  • آخرڪار، مون استعمال ڪيو Operator:=xlOr لاڳو ڪرڻ لاءِ يا حالت فلٽر ڪيترن ئي معيارن لاءِ.
  • هن تي لمحو، پيرو ڪريو ٽيون قدم مان پھريون مثال کولڻ لاءِ Macros ڊائلاگ باڪس .
  • بعد ۾، منتخب مخصوص ميڪرو نالو ۽ دٻايو رن .
    • 14>

    ٿوري دير کان پوء، توهان کي هيٺ ڏنل تصوير وانگر ڪيترن ئي معيارن جي بنياد تي فلٽر ٿيل قطارون ملندا.

    وڌيڪ پڙهو: Excel ۾ ڪيترن ئي معيارن کي فلٽر ڪريو (4 مناسب طريقا)

    9>1>3. ايڪسل ۾ مختلف ڪالمن ۾ ڪيترن ئي معيارن سان ڊيٽا کي فلٽر ڪرڻ لاءِ VBA ڪوڊ لاڳو ڪريو

    هاڻي اسان ڪنداسين فلٽر گهڻن معيارن لاءِ- مرد ۽ گريجوئيٽ شاگردن.

    قدم:

    • پهرين ٻن مرحلن تي عمل ڪريو جي پھريون مثال ڏانھن کوليو VBA
    • بعد ۾، لکيو هيٺ ڏنل ڪوڊ ان ۾-
      • 14> 
      1957
      • بعد ۾ ته VBA ونڊو کي گھٽ ڪريو .

      6>7>

      ڪوڊ بريڪ ڊائون

      • هتي، مون هڪ سب پروسيجر ٺاهيو، Filter_Different_Columns() .
      • پوءِ، مون استعمال ڪيو With بيان استعمال ڪرڻ لاءِ گهڻن ڪالمن .
      • پوءِ استعمال ڪيو رينج ملڪيت جو اعلان ڪرڻ لاءِ اسان جي لاڳاپيل شيٽ جو نالو ۽ رينج
      • اڳيون، مون استعمال ڪيو آٽو فلٽر طريقو استعمال ڪرڻ لاءِ معيار جو منهنجي پسند جتي فيلڊ:=2 مطلب آهي ڪالم 2 ۽ فيلڊ:=3 مطلب ڪالم 3 .
      • هتي , منتخب ٿيل Criteria1:=”Male” for Gender کالم ۽ Criteria1:=”Graduate” for Status colum to Filter ڊيٽا مختلف ڪالمنز مان.
      • پوءِ ٽيون قدم تي عمل ڪريو پهريون مثال کان کولڻ لاءِ Macros dialog box .
      • بعد ۾، منتخب ڪريو مخصوص Macro جو نالو ۽ دٻايو رن .

      0>هتي ڪيترن ئي معيارن جي پيداوار آهي.

27>

وڌيڪ پڙهو: Excel VBA ساڳي ڪالمن ۾ فلٽر ڪرڻ لاءِ گھڻن معيارن (6 مثالن)

4. ايڪسل ۾ مٿين 3 شيون فلٽر ڪرڻ لاءِ VBA ڪوڊ استعمال ڪريو

هن مثال ۾، اسان فلٽر ڪنداسين مٿين ٽن شاگردن کي سندن عمر مطابق.

قدم:

11>12> پهرين ٻن قدمن تي عمل ڪريو جي پھريون مثال کولڻ لاءِ VBA ونڊو کولڻ لاءِ .
  • پوءِ ٽائپ ڪريو هيٺ ڏنل ڪوڊ ان ۾-
    • 14> 
    1479
    • ان کان پوءِ کي ننڍو ڪريو. VBA ونڊو .

    ڪوڊ بريڪ ڊائون

    11>
  • هتي، آئون ٺاهيو هڪ Sub طريقي، Filter_Top3_Items() .
  • ۽ پوءِ استعمال ڪيو آپريٽر:=xlTop10Items to فلٽر لاءِ مٿيون ٽي ڊيٽا .
    • هاڻي ٽيون قدم تي عمل ڪريو پهريون مثال کان کولڻ لاءِ Macros dialog box .
    • پوءِ ڪوڊ ۾ بيان ڪيل ميڪرو نالو چونڊيو ۽ رن کي دٻايو .

    29>3>> پوءِ توھان کي ھيٺ ڏنل تصوير وانگر ٻاھر نڪرندو-

    0>30> 0>> وڌيڪ پڙھو: 1 سيل ويليو جي بنياد تي ڪيئن فلٽر ڪجي Excel VBA استعمال ڪندي (4 طريقا)

    ساڳئي پڙھڻ

    • ڪيئن ڪاپي ۽ پيسٽ ڪريو جڏھن فلٽر ايڪسل ۾ لاڳو ڪيو ويو آهي
    • ڪيئن فلٽر ڪجي منفرد قدرن کي Excel ۾ (8 آسان طريقا)
    • فلٽر ڪيترن ئي معيارن کي ايڪسل ۾ VBA سان (ٻنهي) AND and OR Types)
    • ايڪسل ۾ ٽيڪسٽ فلٽر ڪيئن استعمال ڪجي (5 مثال)
    • ڪيئن فلٽر ڪجي تاريخ طرفان Excel ۾ (4 Quick) طريقا)

    1>5. ايڪسل ۾ مٿين 50 سيڪڙو کي فلٽر ڪرڻ لاءِ VBA ڪوڊ استعمال ڪريو

    اچو استعمال ڪريو VBA ڪوڊز کي فلٽر ڪرڻ لاءِ مٿين پنجاهه سيڪڙو شاگردن جي سندن عمر جي بنياد تي .

    قدم:

    • پهريون، پهرين ٻن مرحلن تي عمل ڪريو جي پھريون مثال کولڻ لاءِ VBA ونڊو .
    • بعد ۾، ٽائپ ڪريو هيٺ ڏنل ڪوڊ ان ۾- 
    9068
    • گھٽ ۾ گھٽ VBA ونڊو .

    31>

    7>

    ڪوڊ بريڪ ڊائون

    • هتي، مون هڪ سب پروسيجر ٺاهيو، Filter_Top50_Percent() .
    • بعد ۾، استعمال ڪيو آپريٽر:=xlTop10Percent to کان مٿي پنجاهه سيڪڙو فلٽر ڪريو کالم-4 .
    • هن وقت، ٽيون قدم فالو ڪريو پهرين مثال کان کولڻ لاءِ Macros dialog box.
    • پوءِ منتخب مخصوص Macro نالو ۽ دٻايو رن .

    مجموعي طور تي 7 شاگرد هئا، تنهنڪري 50 سيڪڙو لاءِ، اهو ڏيکاري رهيو آهي تقريبن ٽي شاگرد .

    وڌيڪ پڙهو: ڪسيل ۾ منافعي جو سيڪڙو فارمولو ڪيئن استعمال ڪجي (3 مثال)

    6 . وائلڊ ڪارڊ استعمال ڪندي ڊيٽا کي فلٽر ڪرڻ لاءِ VBA ڪوڊ لاڳو ڪريو

    اسان استعمال ڪري سگھون ٿا وائلڊ ڪارڊ اکر-* (اسٽريسڪ) ۾ VBA ڪوڊس Excel ۾ ڊيٽا کي فلٽر ڪرڻ لاءِ. اسٽيٽس ڪالمن مان، اسان صرف ويلوز کي فلٽر ڪنداسين جن ۾ 'پوسٽ' شامل آهن.

    Steps:

    • پهرين ٻن مرحلن تي عمل ڪريو جي پهريون مثال کولڻ لاءِ VBA ونڊو .
    • پوءِ لکيو هيٺ ڏنل ڪوڊس ان ۾- 
    8904
    • بعد ۾، VBA ونڊو کي ننڍو ڪريو.

    ڪوڊ بريڪ ڊائون

    • هتي، مون هڪ سب طريقي، Filter_with_Wildcard()<ٺاهيو 18>.
    • پوءِ استعمال ڪيو رينج (“B4”) رينج مقرر ڪرڻ لاءِ.
    • اڳيون ، استعمال ٿيل آٽو فلٽر کان فلٽر ۾ فيلڊ:=3 مطلب ڪالم 3.
    • معيار1:=”*پوسٽ *” ڪرڻ فلٽر قدر جيڪي 'پوسٽ' تي مشتمل آهن.
    • هاڻي ٽيون قدم فالو ڪريو کان پهرين مثال کولڻ لاءِ Macros dialogباڪس.
    • منتخب مخصوص Macro نالو ۽ دٻايو رن .

    پوءِ توهان کي گهربل پيداوار ملندي.

    36>

    وڌيڪ پڙهو: ڪسيل ۾ فلٽر ڪيئن شامل ڪجي (4 طريقا )

    7. ايڪسل ۾ نئين شيٽ ۾ فلٽر ٿيل ڊيٽا کي نقل ڪرڻ لاءِ ايڪسل VBA کي شامل ڪريو

    ڏسو ته منهنجي ڊيٽا سيٽ ۾ ڪجهه فلٽر ٿيل ڊيٽا موجود آهن. ھاڻي مان انھن کي نقل ڪندس نئين شيٽ ۾ استعمال ڪندي VBA . 1 1>دٻايو Alt+F11 کولڻ لاءِ VBA

    • پوءِ ڪلڪ ڪريو داخل ڪريو > Module to module کوليو .

    • هاڻي لکيو هيٺ ڏنل ڪوڊ – 
    7542
    • پوءِ گھٽ ڪريو VBA

    39>

    ڪوڊ بريڪ ڊائون

    • هتي، مون هڪ سب طريقي تيار ڪيو، Copy_Filtered_Data_NewSheet() .
    • ان کان پوءِ ٻه-متغير اعلان ڪيو- x Rng رينج جي طور تي ۽ xWS ورڪ شيٽ جي طور تي.
    • پوءِ استعمال ڪيو a IF بيان ڏانهن چيڪ ڪريو فلٽر ٿيل
    • بعد ۾، استعمال ڪيو MsgBox آئوٽ پُٽ ڏيکارڻ لاءِ.
    • پوءِ استعمال ڪيو ورڪ شيٽ(“ڪپي فلٽر ٿيل ڊيٽا”).آٽو فلٽر رينج کي چونڊڻ لاءِ فلٽر ٿيل رينج ۽ استعمال ڪيو شامل ڪريو نئين شيٽ شامل ڪرڻ لاءِ.
    • آخر ۾، ڪپي رينج(“G4”) فلٽر ٿيل ڊيٽا کي نئين شيٽ ڏانهن نقل ڪندو.
    • بعد ۾، پيرو ڪريوٽيون قدم پهرين مثال مان Macros ڊائلاگ باڪس کي کولڻ لاءِ.
    • پوءِ منتخب ڪريو مخصوص ميڪرو نالو ۽ دٻايو رن .

    هاڻي ڏسو ته ايڪسل هڪ نئين شيٽ کولي آهي ۽ فلٽر ٿيل قطارن کي نقل ڪيو آهي.

    0> وڌيڪ پڙهو: Excel فلٽر لاءِ شارٽ ڪٽ (3 تڪڙا استعمال مثالن سان)

    8. ڊراپ ڊائون لسٽ استعمال ڪندي ڊيٽا کي فلٽر ڪرڻ لاءِ VBA ڪوڊ لاڳو ڪريو

    اسان جي آخري مثال ۾، اسان پهرين صنفن لاءِ ڊراپ ڊائون لسٽ ٺاهينداسين پوءِ ان کي استعمال ڪنداسين ڊيٽا کي فلٽر ڪرڻ لاءِ. ان لاءِ، مون صنفي معيار کي ٻي جاءِ تي رکيو آهي ۽ اسان سيل D14 ۾ ڊراپ-ڊائون لسٽ ٺاهينداسين.

    قدم:

    • منتخب سيل D14 .
    • پوءِ ڪلڪ ڪريو جيئن هيٺ ڏنل: ڊيٽا > ڊيٽا جا اوزار > ڊيٽا جي تصديق > ڊيٽا جي تصديق.

    جلدي کان پوءِ، هڪ ڊائيلاگ باڪس کوليندو.

    42>

    چونڊ فهرست مان ڊراپ-ڊائون جي اجازت ڏيو .

    پوءِ اوپن آئڪن تي ڪلڪ ڪريو مان ذريعو باڪس .

    هاڻي معيار جي حد چونڊيو ۽ دٻايو بٽڻ دٻايو .

    44>

    • هن وقت، بس ٺيڪ کي دٻايو .
      • 14>

      45>

      هاڻي اسان جي ڊراپ-ڊائون فهرست تيار آهي.

      • هاڻي پهرين ٻن مرحلن تي عمل ڪريو جي پهريون مثال کولڻ لاءِ VBA ونڊو .
      • پوءِ لکيو هيٺ ڏنل ڪوڊ ان ۾-
        • 14> 
        6671
        • پوءِ وي بي اي کي ننڍو ڪريوwindow .

        ڪوڊ بريڪ ڊائون

        • هتي، مون ٺاهيو a نجي ذيلي طريقي، ورڪ شيٽ_تبديل (بائيوال ٽارگيٽ جي حد تائين).
        • پوءِ، مون چونڊيو ورڪ شيٽ مان جنرل ۽ تبديل مان اعلان .
        • پوءِ سيٽ ڪريو ايڊريس جڳه کي ڄاڻڻ لاءِ.
        • آخر ۾ IF بيان ۾ استعمال ڪيو ويو آٽو فلٽر طريقي سان فيلڊ ۽ Criteria
        • هاڻي صرف ڊراپ-ڊائون لسٽ مان معيار چونڊيو ۽ فلٽر چالو ڪيو ويندو .

        هتي آهي فلٽر ٿيل آئوٽ پٽ چونڊڻ کان پوءِ مرد مان ڊراپ-ڊائون .

        وڌيڪ پڙهو: 1>ڪيئن فلٽر ڪجي لسٽ ۾ ٻي شيٽ ۾ Excel (2 طريقا)

        پریکٹس سيڪشن

        توهان مٿي ڏنل ايڪسل فائل ۾ مشق شيٽ حاصل ڪندا وضاحت ڪيل طريقن تي عمل ڪرڻ لاءِ.

        50>

        نتيجو

        مون کي اميد آهي ته مٿي بيان ڪيل طريقا ڪافي سٺا هوندا استعمال ڪرڻ لاءِ VBA code to Filter data excel ۾. تبصرو سيڪشن ۾ ڪو به سوال پڇڻ لاء آزاد محسوس ڪريو ۽ مهرباني ڪري مون کي موٽ ڏيو.

    پويون پوسٽ Excel VBA: هڪ حد ۾ ڪيترن ئي معيارن سان ترقي يافته فلٽر (5 طريقا) -
    ايندڙ پوسٽ ايڪسل ۾ فارميٽ پينٽر شارٽ ڪٽ ڪيئن استعمال ڪجي (5 طريقا)

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