په Excel کې د VBA سره د قطارونو شمیرلو څرنګوالی (5 طریقې)

  • دا شریک کړه
Hugh West

نن زه به تاسو ته وښیم چې څنګه د هر ډیټا سیټ څخه په Excel کې د VBA سره قطارونه شمیرل کیدی شي. زه به تاسو ته وښیم چې څنګه کولی شئ د یو ځانګړي حد څخه قطارونه وشمېرئ، د ټاکل شوي حد څخه، د یو ځانګړي معیار سره سمون، د ځانګړي متن ارزښت سره سمون خوري، او د خالي حجرو په خارجولو سره.

د ډاونلوډ تمرین کاري کتاب

د VBA.xlsm سره د قطارونو شمیرل

5 په Excel کې د VBA سره د قطارونو شمیرل

دلته موږ د لمر ګل وړکتون په نوم په یوه ښوونځي کې د ځینو زده کونکو نومونو او د دوی نښو سره یو معلومات ترلاسه کړل. د VBA کوډ په کارولو سره د قطارونو مجموعه.

1. د VBA کوډ وکاروئ د یو ځانګړي سلسلې قطارونو شمیرلو لپاره

لومړی ګام:

فشار ورکړئ ALT+F11 ستاسو په کیبورډ کې. د VBA کړکۍ به خلاص شي.

1>⧪ ګام 2:

د VBA کړکۍ کې Insert ټب ته لاړ شئ.

د اختیارونو څخه شتون لري، موډل غوره کړئ.

I

دریم ګام:

د نوي ماډل کړکۍ چې "ماډول 1" نومیږي خلاصیږي.

لاندې VBA داخل کړئ کوډ په ماډل کې.

کوډ:

7808

یادونه:

  • دا کوډ تولیدوي ماکرو چې Count_Rows نومیږي.
  • د کوډ درېیم کرښه ټاکل شوې حد لري " B4:C13″. زه غواړم په دې سلسله کې د قطارونو شمیر حساب کړم.
  • تاسوخپل یو وکاروئ.

څلورم ګام:

کاري کتاب د ایکسیل میکرو فعال شوي کاري کتاب په توګه خوندي کړئ.

ګام 5:

➤ بیرته خپل کاري پاڼې ته ورشئ او په خپل کیبورډ کې ALT+F8 فشار ورکړئ.

➤ د ډیالوګ بکس چې د Macro په نوم یادیږي خلاصیږي. وټاکئ شمار_قطارونه ( د میکرو نوم) او په چلولو باندې کلیک وکړئ.

شپږم ګام:

تاسو به یو کوچنی پیغام بکس ومومئ چې د ټولو قطارونو شمیر ښیې ( 10 پدې حالت کې ).

د وتلو لپاره ښه کلیک وکړئ.

20>

نور ولولئ: د ډیټا سره د قطارونو شمیرلو لپاره د اکسل VBA

2. د انتخاب شوي سلسلې قطارونو شمیرلو لپاره د Excel VBA کوډ چل کړئ

په تیرو میتود کې، موږ د یوې ځانګړې سلسلې قطارونو شمیره ( B4:C13 ).

مګر موږ کولی شو د VBA کوډ هم وکاروو ترڅو زموږ د غوښتنې سره سم په هر ټاکل شوي حد کې د قطارونو شمیره وشمېرو.

مرحلې ټول د میتود 1<په څیر دي 2> ( مرحله 1-6 ).

⧪ یوازې په مرحله 3 کې، د پخواني کوډ پرځای، دا کوډ داخل کړئ:

کوډ:

4417

یادونه:

  • دا کوډ یو ماډل رامینځته کوي چې نوم یې Count_Selected_Rows .

⧪  او په پړاو 5 کې، د کوډ چلولو دمخه، لومړی یو سلسله غوره کړئ. دلته ما د خپل ټول ډیټا سیټ انتخاب کړی دی (پرته د کالم سرلیک ).

22>

⧪ بیا ALT+F8 فشار ورکړئ، غوره کړئ Cunt_Selected_rows ، او کلیک وکړئ چلوئ .

تاسو به د پیغام بکس ترلاسه کړئ چې تاسو ته به ستاسو په ټاکل شوي حد کې د قطارونو ټولټال شمیر ښیې ( 10 پدې کې قضیه.)

3. په Excel کې د معیارونو سره د قطارونو شمیرلو لپاره د VBA کوډ داخل کړئ

موږ کولی شو د VBA کوډ هم وکاروو ترڅو د قطارونو ټول شمیر شمیرو لپاره چې یو ځانګړی معیار ساتي.

د مثال په توګه، راځئ چې یو میکرو جوړ کړو چې د هغو زده کونکو شمیر به حساب کړي چې له 40 څخه کمې نمرې ترلاسه کړي.

مرحلې هم د میتود 1 په څیر دي ( مرحله 1-6 ).

⧪ یوازې په مرحله 3 کې، د VBA کوډ دې ته بدل کړئ:

کوډ:

5686

یادونه:

  • دا کوډ د Count_Rows_with_Criteria په نوم یو ماډل جوړوي.
  • <14 په 6 کرښه کې، موږ "<40" کاروو ځکه چې دا هغه معیار دی چې موږ یې کاروو. تاسو دا د خپلې اړتیا سره سم بدل کړئ.

⧪  او په پړاو 5 کې، د کوډ چلولو دمخه، د حجرو سلسله وټاکئ معیارونه دلته ما یوازې کالم C ( C4:C13 ) غوره کړی دی ځکه چې معیار هلته دی.

25>

⧪ بیا <1 فشار ورکړئ>ALT+F8 ، Count_Rows_with_Criteria وټاکئ، او په چلولو باندې کلیک وکړئ.

تاسو به د پیغام بکس ترلاسه کړئ چې ښودل کیږي تاسو د قطارونو ټول شمیر چې ستاسو معیار پوره کوي ( 3 پدې قضیه کې.)

ورته لوستل

  • د ایکسل شمیره لیدل شوي قطارونه (فارمول او د VBA کوډ) 15>
  • څنګه Excel د ارزښت سره قطارونه شمیرل (8)لارې)

4. د قطارونو شمیرلو لپاره د VBA کوډ شامل کړئ چې د ځانګړي متن ارزښت لري

تاسو کولی شئ د VBA کوډ هم وکاروئ ترڅو د قطارونو شمیره وکاروئ کوم چې د ځانګړي متن ارزښت لري.

0>دې نوي ډیټا سیټ ته وګورئ.

موږ د مارټین بک سټور په نوم د کتاب پلورنځي ځینې کتابونه د کتاب ریکارډونه لرو.

<0 راځئ یو ماکروجوړ کړو چې د دې ډیټا سیټ څخه د ځانګړي متن لرونکي کتابونو شمیر به حساب کړي.

مرحلې هم د میتود 1 په څیر دي ( مرحله 1-6 ).

⧪ یوازې په مرحله 3 کې، د VBA کوډ دې ته بدل کړئ:

کوډ:

9399

یادونه:

  • دا کوډ د Count_Rows_with_Specific_Text په نوم یو ماډل جوړوي.

⧪  او په 5 ګام کې، د کوډ چلولو دمخه، د متن ارزښتونو سره د حجرو لړۍ وټاکئ. دلته ما سلسله غوره کړې ده B4:B13 ( د کتابونو نوم ).

⧪ بیا ALT+ فشار ورکړئ F8 ، Count_Rows_with_Specific_Text وټاکئ، او په Run باندې کلیک وکړئ.

⧪ An Input Box دا به راښکاره شي چې تاسو څخه به وغواړي چې د ځانګړي متن ارزښت دننه کړئ چې تاسو یې سره سمون کول غواړئ.

د دې مثال لپاره، ما دا د "تاریخ" په توګه داخل کړی دی.

په نهایت کې، تاسو به د پیغام بکس ترلاسه کړئ چې تاسو ته د قطارونو ټولټال شمیر ښیې چې ځانګړي متن لري ( 3 پدې حالت کې.)

نور ولولئ: د متن سره قطارونه څنګه شمیرلExcel

5. په Excel کې د VBA په کارولو سره د خالي حجرو سره قطارونه حساب کړئ

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

وګورئ. دا نوی ډیټا سیټ.

موږ د APEX ګروپ په نوم د یوه شرکت د استخدام په ازموینه کې د ځینو نوماندانو نښې لرو.

خو له بده مرغه ځینې نوماندان په ازموینه کې حاضر نه شول او د دوی د نښو پر ځای خالي حجرې شتون لري.

راځئ چې یو میکرو جوړ کړو چې له خالي حجرو پرته د قطارونو ټولیز شمیر به وشمېرو.

<0 د دې معنی دا ده چې څومره نوماندان په ازموینه کې حاضر شوي دي.

مرحلې ټول د میتود 1 ( مرحله 1-6 ) په څیر دي.

0>⧪ یوازې په مرحله 3کې، دا VBAکوډ د مخکیني ځای په ځای کې دننه کړئ:

1>کوډ:

1882

یادونه:

  • دا کوډ د Count_Rows_with_Blank_Cells په نوم یو ماډل جوړوي.

⧪  په 5 ګام کې، د کوډ چلولو دمخه، د خالي حجرو سره د حجرو سلسله غوره کړئ. دلته ما سلسله غوره کړې ده C4:C13 ( په Tes t کې نښانونه).

⧪ بیا ALT فشار ورکړئ +F8 ، Count_Rows_with_Blank_Cells وټاکئ، او په چلولو باندې کلیک وکړئ.

تاسو به د پیغام بکس ترلاسه کړئ چې تاسو ته ښیې د قطارونو ټول شمیر چې د خالي حجرو پرته ( 7 په دې قضیه کې.)

نتیجې

استعمال دا طریقې، تاسو کولی شئ د ډیټا څخه VBA سره قطارونه حساب کړئپه Excel کې د مختلفو شرایطو سره سمون لري. ایا تاسو کومه ستونزه لرئ؟ له موږ څخه پوښتنه وکړئ.

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