photosdematures.com

VBA COUNTIF

Ang mga pagpapaandar na batay sa pamantayan ay ang namumuno ng excel sa mga kalkulasyon. Sa simula ng pag-aaral ng excel, dapat ay natutunan natin ang paggana ng COUTNIF sa excel. Sa aming mga naunang artikulo, ipinakita namin sa iyo kung paano gumana sa pagpapaandar ng COUNTIF sa Excel VBA.

Sumangguni sa aming artikulo sa COUNTIF Formula sa Excel upang malaman ang mga pangunahing kaalaman sa pagpapaandar ng COUNTIF sa Excel VBA. Sa artikulong ito, ipapakita namin sa iyo kung paano gamitin ang parehong pag-andar sa VBA coding. Ngayon makikita namin ang parehong pormula sa VBA. Ang unang bagay sa COUNTIF ay hindi isang pagpapaandar ng VBA sa halip ito ay isang pag-andar ng worksheet na maaaring ma-access sa ilalim ng klase ng pagpapaandar ng worksheet.

Halimbawa ng Excel VBA Countif Function

Ok, tingnan natin ang simpleng halimbawa.

Maaari mong i-download ang VBA Countif Function Excel Template dito - VBA Countif Function Excel Template

Tingnan ang nasa ibaba parehong halimbawa ng pagbibilang ng mga halaga mula sa marami.

Sa imahe sa itaas, mayroon kaming mga pangalan ng lungsod mula sa cell A1 hanggang A10. Sa cell C3 kailangan nating bilangin kung gaano karaming beses ang pangalan ng lungsod na "Bangalore" na lumilitaw sa saklaw na A1 hanggang A10.

Ok, sundin ang mga hakbang sa ibaba upang isulat ang code upang mailapat ang pagpapaandar ng COUNTIF.

Hakbang 1: Simulan ang Sub pamamaraan.

Code:

 Opsyon na Maliwanag na Sub Countif_Example1 () End Sub 

Hakbang 2: Dahil kailangan naming itabi ang resulta sa cell C3 simulan ang code bilang Saklaw ("C3"). Halaga.

Code:

 Sub Countif_Example1 () Saklaw ("C3"). Halaga = End Sub 

Hakbang 3: Sa cell C3 sa pamamagitan ng paglalapat ng excel VBA COUNTIF function sinusubukan naming makarating sa resulta. Kaya upang ma-access ang pagpapaandar na kailangan namin upang magamit muna ang klase ng Worksheet Function.

Code:

 Sub Countif_Example1 () Saklaw ("C3"). Halaga = WorksheetFunction. Wakas Sub 

Hakbang 4: Mula sa nawalang select excel VBA COUNTIF function.

Code:

 Sub Countif_Example1 () Saklaw ("C3"). Halaga = WorksheetFunction.CountIf (End Sub 

Hakbang 5: Kung titingnan mo ang mga parameter ng pag-andar ng VBA COUNTIF hindi namin nakikita ang parameter tulad ng nakikita namin sa worksheet.

Tulad ng nakikita natin sa itaas na imahe sa worksheet mayroon kaming malinaw na syntax ngunit sa VBA makikita lamang namin ang Arg 1 & Arg 2.

Saklaw ang Arg 1, kaya piliin ang saklaw bilang A1 hanggang A10.

Code:

 Sub Countif_Example1 () Saklaw ("C3"). Halaga = WorksheetFunction.CountIf (Saklaw ("A1: A10"), End Sub 

Hakbang 6: Ang Arg 2 ay kung ano ang halagang kailangan nating mabilang mula sa saklaw na A1 hanggang A10. Sa halimbawang ito, kailangan nating bilangin ang "Bangalore".

Code:

 Sub Countif_Example1 () Saklaw ("C3"). Halaga = WorksheetFunction.CountIf (Saklaw ("A1: A10"), "Bangalore") End Sub 

Ok, tapos na tayo.

Patakbuhin ang code upang makita ang resulta sa cell C3.

Nakuha namin ang resulta bilang 4. Dahil ang pangalan ng lungsod na "Bangalore" na lumilitaw sa cell A1, A4, A7, at A10 VBA COUNTIF function na bumalik ang resulta bilang 4.

Kung makikita mo ang VBA code ay bumalik lamang sa resulta ng formula, hindi namin makita ang formula sa formula bar.

Upang makarating sa pormula kailangan nating isulat nang kaunti ang code. Nasa ibaba ang code para mailapat mo mismo ang formula sa cell.

Code:

 Sub Countif_Example1 () Saklaw ("C3"). Formula = "= CountIf (A1: A10," "Bangalore" ")" End Sub 

Ilalapat nito ang formula sa cell C3.

Dumating sa Resulta sa Mga variable

Ang mga variable ay isang mahalagang bahagi ng anumang wikang pag-coding. Kailangan naming ideklara ang mga variable upang gumana nang mahusay sa VBA code. Para sa isang halimbawa tingnan ang code sa ibaba.

Code:

 Sub Countif_Example2 () Dim ValuesRange As Range Dim ResultCell As Range Dim CriteriaValue As String Set ValuesRange = Range ("A1: A10") Set ResultCell = Range ("C3") CriteriaValue = "Bangalore" ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaVf ) Tapusin ang Sub 

Hayaan akong i-decode ang code para mas maintindihan mo.

Una ay idineklara ko ang dalawang variable bilang Saklaw.

Dim ValuesRange As Range: Ito ay upang sanggunian ang listahan ng mga halaga.

Dim ResultCell Bilang Saklaw: Ito upang sumangguni sa resulta ng cell.

Pagkatapos ay itinakda ko ang saklaw ng mga sanggunian sa parehong mga variable.

Itakda ang Mga Halaga = = Saklaw ("A1: A10"): Ito ang saklaw kung nasaan ang lahat ng mga pangalan ng lungsod.

Itakda ang ResultCell = Saklaw ("C3"): Sa cell na ito, maiimbak namin ang resulta ng pagpapaandar ng COUNTIF.

Sa mean time, naideklara ko ang isa pang variable upang maiimbak ang halaga ng pamantayan.

Dim CriteriaValue Bilang String

CriteriaValue = "Bangalore"

Kaya ngayon ang variable na "CriteteriaValue" ay nagtataglay ng halagang "Bangalore".

Sa susunod na linya, tulad ng dati, inilapat ko ang pagpapaandar ng COUTNIF.

ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue)

Tulad nito, maaari naming ilapat ang pagpapaandar ng COUNTIF sa Excel VBA upang magkasya sa aming mga pangangailangan.