څنګه د VBA په کارولو سره قطار حذف کړئ (14 لارې)

Hugh West

05-06-2023 میکرو & ایکسل VBA
  • دا شریک کړه
Hugh West

که تاسو د VBA په کارولو سره د قطار حذف کولو ځینې اسانه لارو په لټه کې یاست، نو تاسو په سم ځای کې یاست.

راځئ چې اصلي مقالې ته لاړ شئ.

کاري کتاب ډاونلوډ کړئ

VBA Row.xlsm حذف کړئ

د VBA په کارولو سره د قطار حذف کولو 14 لارې

دلته، زه درې ډاټا لرم جدولونه د VBA په کارولو سره د قطارونو حذف کولو لارې ښودلو لپاره. لومړی جدول د یو شرکت ځینې محصولات او د هغوی سایزونه ، بیې لري.

10>

دویم یو څه لري د محصول کوډونه او د دوی اړونده د محصول اندازه او قیمتونه

11>

او وروستی یو لري ځینې ​​ د پروژې نومونه او د هغوی اړوند پیل نیټې او لګښت .

12>

د مقالې د جوړولو لپاره، زه د مایکروسافټ ایکسل 365 نسخه کارولی شئ، تاسو کولی شئ د خپلې اسانتیا سره سم نورې نسخې وکاروئ.

طریقه-1: د VBA په کارولو سره یو واحد قطار حذف کړئ

راځئ چې ووایو، تاسو غواړئ هغه قطار حذف کړئ چې پکې محصول جوتا 1، او د دې واحد قطار حذف کولو لپاره تاسو کولی شئ دا طریقه تعقیب کړئ.

مرحله-01 :

➤ Developer Tab>> Visual Basic اختیار

ته لاړ شئ

بیا، بصری بنسټیز مدیر به خلاص شي.

➤ لاړ شه انشلو Tab>> ماډل اختیار

له دې وروسته، یو ماډل به رامینځته شي.

0>18>

ګام - 02 :

➤ فول ولیکئ د ټیټ کوډ

7032

دلته، "واحد" دید څو سلسلو اتحاد چې د حجرو سره مطابقت لري 11/12/2021 ، او په پای کې، رینجونه به حذف شي.

➤ فشار ورکړئ F5

پایله :

له دې وروسته، تاسو به هغه قطارونه حذف کړئ چې ټاکلې نیټه لري 11/12/2021 .

69>

اړونده منځپانګه: Excel VBA د ځانګړو ډیټا سره قطارونه ړنګول (9 مثالونه)

تمرین برخه

مهرباني وکړئ دا پخپله وکړئ.

پایله

په دې مقاله کې، ما هڅه وکړه چې د VBA په اغیزمنه توګه کارولو لپاره ترټولو اسانه لارې پوښښ کړم. د قطارونو ړنګول. هیله ده چې ګټور به مو وي. که تاسو کوم وړاندیز یا پوښتنې لرئ، د تبصرې په برخه کې یې شریک کړئ.

د کاري پاڼې نوم، او قطارونه(7)به د قطار شمیره غوره کړي.

.EntireRow.Delete به ټول قطار 7 حذف کړي.

➤ فشار ورکړئ F5

نتیجه :

په دې ډول، تاسو به هغه قطار حذف کړئ چې <1 لري>د محصول نوم جوتا 1 .

0> نور ولولئ: په Excel کې د قطارونو حذف کولو څرنګوالی: 7 میتودونه

میتود-2: د VBA په کارولو سره ډیری قطارونه ړنګ کړئ

که تاسو غواړئ ډیری قطارونه حذف کړئ لکه قطار چې محصول نومونه جوتا 1 ، Shoe2، او Shoe3 ، بیا تاسو کولی شئ دا VBA کوډ تعقیب کړئ.

مرحله-01 :

➤ مرحله-01 د میتود-1 

5142

دلته د قطار شمیره 13، 10 تعقیب کړئ ، او 7 به حذف شي او د قطار شمیرې په ترتیب سره په لیکلو کې تاسو باید د وروستي قطار شمیرې څخه د لومړي قطار شمیرې ته د دې کوډ په څیر ولیکئ.

که نه نو د لومړي قطار حذف کولو وروسته لکه د قطار 7 پاتې د دې قطار لاندې قطارونه به یو قطار پورته پورته کړي او پدې توګه 10 قطار به 9 قطار وي، او 13 قطار به 12 قطار وي. ason، تاسو به نشئ کولی سم قطارونه حذف کړئ.

➤ فشار ورکړئ F5

پایله :

بیا، تاسو به هغه قطارونه حذف کړئ چې د محصول نومونه لري Shoe 1 ، Shoe2، او Shoe3 .

1 : د

په انتخابولو سره د قطار ړنګول دلته، زه به د قطار د حذف کولو لاره وښیمد دې قطار د فعال حجرې په اړه.

قدم-01 :

➤ تعقیب کړئ پړاو-01 of Method-1 

3282

دا به هغه قطار حذف کړي چې فعاله حجره لري.

25>

➤ کوډ خوندي کړئ.

Step-02 :

➤ د قطار هر هغه حجره وټاکئ چې تاسو یې حذف کول غواړئ (دلته ما سیل غوره کړی دی B7 )

➤ لاړ شئ Developer Tab>> Macros اختیار

26>

له هغې وروسته، ماکرو <2 وزرډ به خلاص شي.

➤ ماکرو نوم dltrow3 وټاکئ او چل کړئ

<3 کېکاږئ>

پایله :

وروسته، تاسو به هغه قطار حذف کړئ چې د محصول نوم لري جوتا 1 .

طریقه-4: په انتخاب کې د ټولو قطارونو حذف کول

د انتخاب د ټولو قطارونو د حذف کولو لپاره تاسو کولی شئ دا طریقه تعقیب کړئ.

پړاو-01 :

➤ پړاو-01 د طریقه-1 

8029

دا تعقیب کړئ د انتخاب ټول قطارونه به حذف کړي.

➤ کوډ خوندي کړئ.

ګام-02 :

➤ د قطارونو لړۍ غوره کړئ چې تاسو یې حذف کول غواړئ (دلته، ما حد انتخاب کړی دی B7:D9 )

➤ لاړ شه Developer Tab>> Macros اختیار

له دې وروسته، میکرو وزرډ به خلاص شي.

➤ د میکرو نوم dltrow4 غوره کړئ او چلوئ

نتیجه :

بیا، تاسو به هغه قطارونه حذف کړئ چې لري د محصول نومونه جوتا 1 ، جاکټ1، او جاکټ2 .

نور ولولئ: په Excel کې د ټاکل شوي قطارونو حذف کولو څرنګوالی (8 طریقې)

طریقه - 5: د قطار ړنګول که کوم حجره خالي وي

دلته، زه یو خالي حجره لرم کوم چې B9 (ما د دې لپاره له دې حجرې څخه ارزښت لرې کړی دی. میتود)، او د VBA کوډ په کارولو سره زه به هغه قطار حذف کړم چې د B9 حجره لري.

34>

مرحله-01 :

➤Follow Step-01 of Method-1 

6159

دا به په رینج کې ټول قطارونه حذف کړي "B5:D13" کوم خالي حجره ولري.

➤ فشار ورکړئ F5

پایله :

بیا، تاسو به وکولی شئ هغه قطار ړنګ کړئ چې خالي حجره لري.

0> نور ولولئ: په Excel کې د خالي قطارونو لرې کولو څرنګوالی (11 میتودونه)

میتود-6: د قطار حذف کول که چیرې ټول قطار خالي وي

دلته، زه یو خالي حجره لرم کوم چې <1 دی>B9 (ما د دې میتود ارزښتونه لرې کړل)، او یو خالي قطار چې 12 قطار دی (ما د دې میتود لپاره ارزښتونه لرې کړل)، او د VBA کوډ او <1 په کارولو سره> COUNTA فعالیت زه به هغه قطار ړنګ کړم کوم چې خالي وي.

قدم-01 :

➤ تعقیب کړئ پړاو-01 د میتود-1 

4354

"B5:D13" د ډیټا رینج دی او فار لوپ به د هرې حجرې لپاره کار وکړي. دا سلسله.

CountA(cell.EntireRow) به د غیر خالي حجرو شمیر بیرته راولي او کله چې دا 0 شي نو قطار به حذف شي.

<38

➤ فشار ورکړئ F5

پایله :

له دې وروسته، تاسو به وکولی شئ خالي قطار حذف کړئ مګر دا به هیڅ قطار حذف نکړي چې ټول نه لري د دې قطار حجرې خالي دي.

نور ولولئ: په Excel کې د خالي قطارونو حذف کولو لپاره VBA څنګه وکاروئ

میتود-7: د هرې نهم قطار ړنګول

تاسو کولی شئ د دې طریقې په تعقیب هر نهم قطار (په دې حالت کې هر دریم قطار) حذف کړئ.

قدم-01 :

➤ پړاو-01 د طریقه-1 

2034

"B5 تعقیب کړئ :D13" د معلوماتو رینج دی او rc به د دې سلسلې ټول قطار شمیره بیرته راولي کوم چې 9 دی.

دلته، د لپاره لوپ به د وروستي قطار څخه پیل شي کوم چې پدې حالت کې rc یا 9 دی او د لومړي قطار سره پای ته رسیږي.

مرحله -3 په دې سلسله کې د هر درېیم قطار په حذف کولو کې مرسته کوي.

➤ فشار ورکړئ F5

پایله :

بیا، تاسو به هغه قطارونه حذف کړئ چې د محصول نومونه لري جوتا 1 ، Shoe2، او Shoe3 .

نور ولولئ: څنګه کولای شو هره نهمه R حذف کړو ow په Excel کې (په اسانۍ 6 لارې)

ورته لوستل:

  • څنګه د Excel VBA سره ټاکل شوي قطارونه حذف کړئ (یو ګام- د مرحلې لارښود)
  • په Excel کې نه کارول شوي قطارونه حذف کړئ (8 اسانه لارې)
  • څنګه په Excel کې پټ قطارونه حذف کړئ (3 میتودونه)
  • په Excel کې لامحدود قطارونه حذف کړئ (5 اسانه لارې)
  • په Excel کې د قطارونو حذف کولو څرنګوالی چې د تل لپاره ځي (4 اسانهطریقه)

میتود-8: د سیل ارزښت پر بنسټ قطار حذف کول

په دې طریقه کې، زه به هغه قطار حذف کړم چې یو ځانګړی ارزښت لري کمیس 2 .

قدم-01 :

➤ پړاو-01 د طریقه تعقیب کړئ 1 

1926

"B5:D13" د ډیټا رینج دی او د فار لوپ به په دې سلسله کې د هرې حجرې لپاره کار وکړي.

<0 که د قطار کومه حجره د "شرټ 2" ارزښت ولري نو قطار به حذف شي.

➤ F5<2 فشار ورکړئ>

پایله :

په دې ډول، تاسو به هغه قطار حذف کړئ چې د محصول نوم کمیس 2 لري.

نور ولولئ: VBA میکرو د قطار حذف کولو لپاره که چیرې حجره په Excel کې ارزښت ولري (2 میتودونه)

13> طریقه-9: د نقلي قطارونو حذف کول

دلته، زه دوه قطارونه لرم چې یو د محصول کوډ 97375 لري او له همدې امله زه غواړم له دې قطارونو څخه یو حذف کړم کوم چې په نښه شوي دي. لاندې سور بکس.

قدم-01 :

➤ پړاو-01 د <1 تعقیب کړئ>طریقه-1

9422

دلته، "B5:D13" د ډیټا رینج دی او کالمونه:=1 زه دا به یوازې په یوه کالم کې د نقل ارزښتونو لټون وکړي کوم چې د پیل کالم دی کالم B مګر که تاسو غواړئ په نورو کالمونو کې هم وپلټئ نو تاسو کولی شئ دا شمیره د خپلو اړتیاو سره سم وکاروئ.

➤ فشار ورکړئ F5

نتیجه :

وروسته، تاسو به وکولی شئ هغه قطار حذف کړئ کوم چې دی بل قطار ته ورته.

نور ولولئ: په کې د نقل شوي قطارونو د حذف کولو څرنګوالیاکسل د VBA سره (8 اغیزمنې لارې)

میتود - 10: په جدول کې د قطارونو حذف کول

فرض کړئ، تاسو لاندې جدول لرئ چې نوم یې جدول 1 او اوس تاسو غواړئ د دې جدول شپږم نمبر قطار حذف کړئ. د دې کولو لپاره تاسو کولی شئ دا طریقه تعقیب کړئ.

قدم-01 :

➤ تعقیب کړئ ګام -01 <2 د میتود-1 

5334

دلته "جدول" د شیټ نوم دی، "جدول1" د میز نوم دی او 6 د دې جدول د قطار شمیره ده چې تاسو یې حذف کول غواړئ.

➤ فشار ورکړئ F5

نتیجه :

په دې ډول، تاسو به د دې جدول خپل مطلوب قطار حذف کړئ.

55>

نور ولولئ: د ایکسل VBA په کارولو سره د یو کالم پراساس د نقل قطارونو لرې کولو څرنګوالی

میتود - 11: د فلټر کولو وروسته د لید وړ قطارونو حذف کول

دلته ، زه د ډیټا جدول لرم چې فلټر شوی د قیمت کالم د $1,500.00 څخه ډیر ارزښتونو لپاره او زه غواړم چې د فلټر کولو وروسته ټول ښکاره شوي قطارونه حذف کړم.

56>

قدم-01 :

➤ پړاو-01 د طریقه-1 

1907

دلته، "B5 تعقیب کړئ: D13” د ډاټا رینج دی.

➤ F5

اوس فشار ورکړئ، د فلټر کولو وروسته به ټول ښکاره شوي قطارونه حذف شي تاسو اوس کولی شئ د قیمت کالم کې د فلټر نښه په غوره کولو سره پټ قطارونه بیرته راوړئ.

58>

➤په ټول انتخاب کړئ اختیار

➤ فشار ورکړئ ښه

59>

پایله :

0> په نهایت کې ، تاسو به پټ قطارونه بیرته دننه ترلاسه کړئد معلوماتو جدول.

نور ولولئ: څنګه په Excel کې د VBA سره قطارونه فلټر او حذف کړئ (2 میتودونه) <3

طریقه-12: د وروستي فعال حجرې پراساس د قطار حذف کول

دلته زما وروستی فعاله حجره ده B13 او زه غواړم دا د لاندې وروستي فعال حجرې سره حذف کړم د معلوماتو جدول.

مرحله-01 :

➤د طرحه پړاو-01 طریقه تعقیب کړئ -1

Sub dltrow14() Dim FirstRow As Long Dim LastRow As Long Dim CriteriaColumn As Long Dim myDate As Date Dim sheet As Worksheet Dim i As Long Dim myRowsWithDate As Range FirstRow = 5 CriteriaColumn = 3 myDate = DateValue("11/12/2021") Set sheet = Worksheets("Date") With sheet     LastRow = .Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _     SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row     For i = LastRow To FirstRow Step -1         With .Cells(i, CriteriaColumn)             If .Value = myDate Then                 If Not myRowsWithDate Is Nothing Then                 Set myRowsWithDate = Union(myRowsWithDate, .Cells)                 Else                 Set myRowsWithDate = .Cells                 End If             End If         End With         Next i     End With     If Not myRowsWithDate Is Nothing Then myRowsWithDate.EntireRow.Delete End Sub

دلته، 2 مطلب کالم B په کوم کې چې زه خپل فعال حجره لرم، تاسو کولی شئ د خپلو اړتیاو سره سم شمیر بدل کړئ.

➤ فشار ورکړئ F5

پایله :

په دې توګه، تاسو به خپل حذف کړئ وروستی فعال قطار.

نور ولولئ: د ایکسسل VBA کوډ د څو حجرو ارزښت (3 معیارونو) پر بنسټ قطارونه حذف کړئ

طریقه- 13: د هر ډول تارونو درلودو قطارونو حذف کول

فرض کړئ، تاسو غواړئ هغه قطارونه حذف کړئ چې کوم تار لري، او د دې کولو لپاره تاسو کولی شئ دا طریقه تعقیب کړئ.

پړاو-01 :

➤ پړاو-01 د طریقه-1 

8318
<0 تعقیب کړئ دلته، "سټرینګ" د شیټ نوم دی، د دې ډیټا رینج د لومړي قطار شمیره 5 ده او د پیل کالم شمیره ده 2

د سره بیان تاسو ته اجازه درکوي یو څیز مشخص کړئ یا د بیاناتو د ټولې لړۍ لپاره یو ځل د کارونکي لخوا ټاکل شوی ډول.

په تېروتنه بیا پیل کړئ راتلونکی بیان په ګوته کوي چې کله د چلولو وخت تېروتنه واقع کیږي، کنټرول د بیان تعقیب بیان ته ځي چیرې چې تېروتنه رامنځته کېږي.

وروستۍ کرښه او LastColumn د ډیټا رینج وروستی قطار او کالم بیرته راګرځوي.

SpecialCells(xlCellTypeConstants, xlTextValues) به هغه قطارونه وټاکي چې کوم متن ارزښت ولري range.

➤ فشار F5

پایله :

وروسته، تاسو به هغه قطارونه ړنګ کړئ چې کوم متن تار لري.

نور ولولئ: د قطارونو حذف کولو لپاره د ایکسل شارټ کټ (د بونس تخنیکونو سره) <3

طریقه-14: د نیټې په اساس قطار حذف کول

دلته، زه به هغه قطارونه حذف کړم چې ځانګړې نیټه لري 11/12/2021 (mm/dd/yyyy) پدې کې د DATEVALUE فعالیت کارولو طریقه.

قدم-01 :

➤ تعقیب کړئ ګام- 01 د طريقه-1 

7353

دلته، "تاریخ" د شیټ نوم دی، د دې ډیټا رینج لومړی قطار نمبر دی 5 او د معیار کالم (کوم کالم نیټې لري) شمیره ده 3 .

د سره بیان تاسو ته اجازه درکوي یو ځل یو اعتراض یا د کارونکي لخوا ټاکل شوی ډول مشخص کړئ د بیانونو د یوې بشپړې لړۍ لپاره.

په تېروتنه بیا پیل کړئ بل بیان په ګوته کوي چې، کله چې د چلولو وخت تېروتنه رامنځ ته شي، کنټرول د بیان څخه وروسته بیان ته ځي چیرې چې تېروتنه رامنځته کیږي.

وروستۍ قطار د ډیټا رینج وروستی قطار بیرته راګرځوي او دلته د لپاره لوپ به د وروستي قطار څخه پیل شي کوم چې په دې حالت کې LastRow یا 6 دی، او د لومړي قطار سره پای ته رسیږي.

DATEVALUE به د متن نیټه په ارزښت بدله کړي.

دلته، یونین به بیرته راستانه شي

مخکینی پوسټ په Excel کې د کیریج بیرته راګرځولو څرنګوالی: 3 اسانه لارې
بل پوسټ دوه جدولونه پرتله کړئ او په Excel کې توپیرونه روښانه کړئ (4 میتودونه)

هیګ ویسټ په صنعت کې د 10 کلونو تجربې سره خورا تجربه لرونکي ایکسل روزونکی او شنونکی دی. هغه د محاسبې او مالیې په برخه کې د لیسانس سند او د سوداګرۍ اداره کې د ماسټرۍ سند لري. هیګ د تدریس لپاره لیوالتیا لري او د تدریس یوه ځانګړې طریقه یې رامینځته کړې چې تعقیب او پوهیدل یې اسانه دي. د ایکسل په اړه د هغه ماهر پوهه د نړۍ په زرګونو زده کونکو او مسلکيانو سره مرسته کړې چې خپل مهارتونه ښه کړي او د دوی په مسلک کې غوره شي. د خپل بلاګ له لارې، هیګ خپله پوهه له نړۍ سره شریکوي، د وړیا Excel ټیوټوریلونه او آنلاین روزنه وړاندې کوي ترڅو د افرادو او سوداګرۍ سره مرسته وکړي چې خپل بشپړ ظرفیت ته ورسیږي.