Sut i Gyfrif Rhesi gyda VBA yn Excel (5 Dull)

  • Rhannu Hwn
Hugh West

Heddiw, byddaf yn dangos i chi sut y gallwch gyfrif rhesi gyda VBA yn Excel o unrhyw set ddata. Byddaf yn dangos i chi sut y gallwch gyfrif rhesi o ystod benodol, o amrediad dethol, trwy gyfateb maen prawf penodol, trwy gyfateb gwerth testun penodol, a thrwy eithrio'r celloedd gwag.

Lawrlwytho Ymarfer Llyfr Gwaith

Cyfri Rhesi gyda VBA.xlsm

5 Dull o Gyfrif Rhesi gyda VBA yn Excel

0>Yma mae gennym set ddata gydag Enwau rhai myfyrwyr a'u Marciau yn Saesneg mewn ysgol o'r enw Sunflower Kindergarten.

Heddiw ein nod yw cyfrif y cyfanswm nifer y rhesi gan ddefnyddio cod VBA .

1. Defnyddiwch God VBA i Gyfrif Rhesi o Amrediad Penodol

Cam 1:

Pwyswch ALT+F11 ar eich bysellfwrdd. Bydd y ffenestr VBA yn agor.

Cam 2:

1> ➤ Ewch i'r tab Mewnosod yn y ffenestr VBA .

O'r opsiynau ar gael, dewiswch Modiwl .

I

Cam 3:

1>➤ Bydd ffenestr modiwl newydd o'r enw “Modiwl 1” yn agor.

Mewnosodwch y canlynol VBA cod yn y modiwl.

Cod:

6138

Nodiadau:

  • Mae'r cod hwn yn cynhyrchu a Macro o'r enw Count_Rows .
  • Mae llinell 3edd y cod yn cynnwys yr amrediad penodedig “ B4:C13″. Rwyf am gyfrif nifer y rhesi yn yr ystod hon.
  • Chidefnyddiwch eich un chi.

Cam 4:

Cadw'r llyfr gwaith fel Gweithlyfr Macro-Galluogi Excel .

Cam 5: <3

➤ Dychwelwch i'ch taflen waith a gwasgwch ALT+F8 ar eich bysellfwrdd.

➤ Bydd blwch deialog o'r enw Macro yn agor. Dewiswch Count_Rows ( Enw'r Macro) a chliciwch ar Rhedeg .

Cam 6:

Fe welwch flwch neges bach yn dangos nifer y rhesi cyfan ( 10 yn yr achos hwn ).

Cliciwch Iawn i adael.

Darllen Mwy: VBA Excel i Gyfrif Rhesi gyda Data

2. Rhedeg Cod VBA Excel i Gyfrif Rhesi o Ystod Dethol

Yn y dull blaenorol, fe wnaethom gyfrif nifer y rhesi o ystod benodol ( B4: C13 ).

Ond gallwn hefyd ddefnyddio cod VBA i gyfri nifer y rhesi mewn unrhyw ystod a ddewiswyd yn ôl ein dymuniad.

Mae'r camau i gyd yr un fath â Dull 1 ( Cam 1-6 ).

⧪ Mewn Cam 3 yn unig, yn lle'r cod blaenorol, mewnosodwch y cod hwn:

Cod:

6709

Sylwer:

  • Mae'r cod hwn yn creu modiwl o'r enw Count_Selected_Rows .

⧪  Ac yn Cam 5 , cyn rhedeg y cod, dewiswch ystod yn gyntaf. Yma rwyf wedi dewis fy set ddata gyfan (Heb y Penawdau Colofn ).

⧪ Yna pwyswch ALT+F8 , dewiswch Cyfrwch_Rhesi_Dewisedig , a chliciwch ar Rhedeg .

Byddwch yn cael blwch neges yn dangos cyfanswm nifer y rhesi yn eich amrediad dewisiedig ( 10 yn hwn achos.)

3. Mewnosod Cod VBA i Gyfrif Rhesi gyda Meini Prawf yn Excel

Gallwn hefyd ddefnyddio cod VBA i gyfrif cyfanswm nifer y rhesi sy'n cynnal maen prawf penodol.

>Er enghraifft, gadewch i ni greu Macro a fydd yn cyfrif nifer y myfyrwyr a gafodd farciau llai na 40.

Mae'r camau hefyd i gyd yr un fath â Dull 1 ( Cam 1-6 ).

⧪ Mewn Cam 3 yn unig, newidiwch y cod VBA i hyn:

Cod:

5830

Sylwer:

  • Mae'r cod hwn yn creu modiwl o'r enw Count_Rows_with_Criteria .
  • >Yn llinell 6 , fe wnaethom ddefnyddio “<40” oherwydd dyma'r maen prawf rydym yn ei ddefnyddio. Rydych chi'n ei newid yn ôl eich angen.

⧪  Ac yng Cam 5 , cyn rhedeg y cod, dewiswch yr ystod o gelloedd gyda'r meini prawf. Yma rwyf wedi dewis colofn C yn unig ( C4:C13 ) oherwydd mae'r maen prawf yn gorwedd yno.

⧪ Yna pwyswch ALT+F8 , dewiswch Count_Rows_with_Criteria , a chliciwch ar Rhedeg .

Bydd blwch neges yn dangos chi gyfanswm nifer y rhesi sy'n bodloni eich maen prawf ( 3 yn yr achos hwn.)

Darlleniadau Tebyg

  • Sut mae Excel yn Cyfrif Rhesi Gweladwy (Fformiwla a Chod VBA)
  • Sut mae Excel yn Cyfrif Rhesi â Gwerth (8Ffyrdd)

4. Mewnosod Cod VBA i Gyfrif Rhesi Cael Gwerth Testun Penodol

Gallwch hefyd ddefnyddio cod VBA i gyfrif nifer y rhesi sy'n cynnwys gwerth testun penodol.

0>Edrychwch ar y set ddata newydd hon.

Mae gennym Cofnodion Llyfrau rhai o lyfrau siop lyfrau o'r enw Martin Bookstore.

>Dewch i ni greu Macro a fydd yn cyfrif nifer y llyfrau sydd â thestun penodol o'r set ddata hon.

Mae'r camau hefyd i gyd yr un fath â Dull 1 ( Cam 1-6 ).

⧪ Mewn Cam 3 yn unig, newidiwch y cod VBA i hyn:

Cod:

7496

Sylwer:

  • Mae'r cod hwn yn creu modiwl o'r enw Count_Rows_with_Specific_Text .

⧪  Ac yn Cam 5 , cyn rhedeg y cod, dewiswch yr ystod o gelloedd gyda'r gwerthoedd testun. Yma rwyf wedi dewis ystod B4:B13 ( Enw'r Llyfrau ).

⧪ Yna pwyswch ALT+ F8 , dewiswch Count_Rows_with_Specific_Text , a chliciwch ar Rhedeg .

⧪ Blwch Mewnbwn yn ymddangos a fydd yn gofyn i chi nodi'r gwerth testun penodol yr ydych am ei gydweddu.

Er mwyn yr enghraifft hon, rwyf wedi ei nodi fel "hanes" .

0>

Yn olaf, fe gewch flwch neges yn dangos cyfanswm y rhesi sy'n cynnwys y testun penodol ( 3 yn yr achos hwn.)

Darllen Mwy: Sut i Gyfrif Rhesi gyda Thestun ynddoExcel

5. Cyfrif Rhesi gyda Chelloedd Gwag Gan ddefnyddio VBA yn Excel

Yn olaf, byddwn yn datblygu Macro a fydd yn cyfrif cyfanswm nifer y rhesi heb gynnwys y celloedd gwag o set ddata.

Edrychwch ar y set ddata newydd hon.

Mae gennym Marciau rhai ymgeiswyr mewn prawf recriwtio cwmni o'r enw APEX group.

Ond yn anffodus, ni allai rhai ymgeiswyr ymddangos yn y prawf ac mae celloedd gwag yn lle eu marciau.

Dewch i ni ddatblygu Macro a fydd yn cyfrif cyfanswm y rhesi heb gynnwys y celloedd gwag.

Mae hynny'n golygu, faint o ymgeiswyr a ymddangosodd yn y prawf.

Mae'r camau i gyd yr un fath â Dull 1 ( Cam 1-6 ).

⧪ Dim ond yn Cam 3 , rhowch y cod VBA hwn yn lle'r un cynharach:

Cod:

1978

Sylwer:

  • Mae'r cod hwn yn creu modiwl o'r enw Count_Rows_with_Blank_Cells .

>⧪  Yn Cam 5, cyn rhedeg y cod, dewiswch yr ystod o gelloedd gyda'r celloedd gwag. Yma rwyf wedi dewis ystod C4:C13( Marciau yn y Test).

⧪ Yna pwyswch ALT +F8 , dewiswch Count_Rows_with_Blank_Cells , a chliciwch ar Rhedeg .

Byddwch yn cael blwch neges yn dangos y cyfanswm nifer y rhesi heb gynnwys y celloedd gwag ( 7 yn yr achos hwn.)

Casgliad

Defnyddio Gyda'r dulliau hyn, gallwch gyfrif rhesi gyda VBA o ddatagosod yn Excel cyfateb amodau amrywiol. Oes gennych chi unrhyw broblemau? Mae croeso i chi ofyn i ni.

Mae Hugh West yn hyfforddwr a dadansoddwr Excel hynod brofiadol gyda dros 10 mlynedd o brofiad yn y diwydiant. Mae ganddo radd Baglor mewn Cyfrifeg a Chyllid a gradd Meistr mewn Gweinyddu Busnes. Mae gan Hugh angerdd am addysgu ac mae wedi datblygu dull addysgu unigryw sy’n hawdd ei ddilyn a’i ddeall. Mae ei wybodaeth arbenigol o Excel wedi helpu miloedd o fyfyrwyr a gweithwyr proffesiynol ledled y byd i wella eu sgiliau a rhagori yn eu gyrfaoedd. Trwy ei flog, mae Hugh yn rhannu ei wybodaeth gyda’r byd, gan gynnig tiwtorialau Excel am ddim a hyfforddiant ar-lein i helpu unigolion a busnesau i gyrraedd eu llawn botensial.