VBA rindu skaits - kā uzskaitīt izmantoto rindu skaitu VBA?

Satura rādītājs

Excel VBA rindu skaits

VBA programmēšanā vissvarīgākā ir arī atsauce uz rindām, un rindu skaitīšana ir viena no lietām, kas jums jāzina, runājot par VBA kodēšanu. Ir daudz vērtības, ko mēs varam iegūt, ja mēs saprotam, cik svarīgi ir skaitīt rindas, kuru darblapā ir dati. Šajā rakstā mēs parādīsim, kā skaitīt rindas, izmantojot VBA kodēšanu.

Kā saskaitīt rindas VBA?

1. piemērs

Lai uzskaitītu rindas, mums jāizmanto objekts RANGE, šajā objektā mums jāizmanto objekts ROWS, un šajā gadījumā mums jāizmanto rekvizīts COUNT.

Piemēram, Excel programmā apskatiet tālāk norādītos datus.

No iepriekš minētajiem datiem mums jāidentificē, cik rindu ir no diapazona A1 līdz A8. Tāpēc vispirms definējiet mainīgo kā veselu skaitli, lai saglabātu rindu skaitu.

Kods:

Apakšskaitlis_Rindas_piemērs1 () Dim No_Of_Rows kā vesels skaitlis Beigu apakšnodaļa

Šim mainīgajam mēs piešķirsim rindu numurus, tāpēc ievadiet mainīgā nosaukumu un vienādības zīmi.

Kods:

Apakšskaitlis_Rindas_Piemērs1 () Dim No_Of_Rows kā vesels skaitlis No_Of_Rows = Beigas Sub

Mums jānodrošina šūnu diapazons, tāpēc atveriet objektu RANGE un piegādājiet diapazonu kā “A1: A8”. Kods:

Apakšskaitlis_Rindas_piemērs1 () Dim No_Of_Rows kā vesels skaitlis No_Of_Rows = Diapazons ("A1: A8") Beigas Sub

Kad diapazons ir piegādāts, mums jāuzskaita rindu skaits, tāpēc izvēlieties objekta RANGE īpašību ROWS.

Objekta RANGE īpašumā ROWS mēs skaitām rindu skaitu, tāpēc tagad izvēlieties rekvizītu “COUNT”.

Tagad ziņojuma lodziņā parādiet mainīgā vērtību.

Kods:

Apakšskaitlis_Rindas_piemērs1 () Dim No_Of_Rows kā vesels skaitlis No_Of_Rows = Diapazons ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub

Tagad palaidiet kodu un skatiet piegādāto šūnu diapazona rindu skaitu.

Labi, diapazonam ir piegādātas 8 rindas, tāpēc ziņojumu lodziņā ir 8 rindas.

2. piemērs

Mums ir arī citi rindu skaitīšanas veidi, iepriekš minētajai metodei mums jāpiegādā šūnu diapazons, un šajā diapazona šūnās tas parāda atlasīto rindu skaitu.

Bet iedomājieties scenāriju, kurā mums jāatrod pēdējais jebkuras kolonnas lietojums, piemēram, ņemiet tos pašus datus, kas redzami iepriekš.

Lai pārietu uz pēdējo izmantoto šūnu no šūnas A1, mēs nospiežam īsinājumtaustiņa Excel taustiņu “Ctrl + lejupvērstā bultiņa” , tāpēc tas aizvedīs jūs uz pēdējo šūnu pirms tukšās šūnas.

Pirmkārt, piegādājiet šūnu kā A1, izmantojot objektu RANGE.

Kods:

Apakšskaitlis_Rindas_Piemērs2 () Dim No_Of_Rows kā vesels skaitlis No_Of_Rows = Diapazons ("A1") MsgBox No_Of_Rows Beigas Sub

No šīs šūnas mums jāpārvietojas uz leju, un darblapā mēs izmantojam Ctrl + lejupvērstā bultiņa, bet VBA mēs izmantojam rekvizītu END, izvēlieties šo rekvizītu un atveriet iekavu, lai redzētu opcijas.

Paskaties tur ar END taustiņu, mēs varam redzēt visus bulttaustiņus, piemēram, “xlDown, xlToLeft, xlToRight un xlUp”, jo mums ir jāvirzās uz leju, izmantojot opciju “xlDown”.

Kods:

Apakšskaitlis_Rindas_Piemērs2 () Dim No_Of_Rows kā vesels skaitlis No_Of_Rows = Diapazons ("A1"). Beigas (xlDown) MsgBox No_Of_Rows Beigas Sub

Tas jūs aizvedīs uz pēdējo šūnu pirms pārtraukuma, tagad aktīvajā šūnā mums ir nepieciešams rindas numurs, tāpēc izmantojiet rekvizītu ROW.

Kods:

Apakšskaitlis_Rindas_Piemērs2 () Dim No_Of_Rows kā vesels skaitlis No_Of_Rows = Diapazons ("A1"). Beigas (xlDown). Rinda MsgBox No_Of_Rows Beigas Sub

Ok, done. Now, this will show the last row number, and that will be the count of a number of rows.

So in rows, we have data.

Example #3 - Find Last Used Row

Finding the last used row is so important to decide how many times the loop has to run and also in the above method the last row stops to select if there is any breakpoint cell, so in this method, we can find the last used row without any problems.

Open CELL property.

Code:

Sub Count_Rows_Example3() Dim No_Of_Rows As Integer No_Of_Rows = Cells( MsgBox No_Of_Rows End Sub

Now we need to mention the row number to start with, the problem here is we are not sure how many rows of data we have, so what we can do is we straight away go to the last row of the worksheet, for this mention ROWS.COUNT property.

Code:

Sub Count_Rows_Example3() Dim No_Of_Rows As Integer No_Of_Rows = Cells(Rows.Count, MsgBox No_Of_Rows End Sub

Next, we need to mention in which column we are finding the last used row, so in this case, we are finding in the first column, so mention 1.

Code:

Sub Count_Rows_Example3() Dim No_Of_Rows As Integer No_Of_Rows = Cells(Rows.Count, 1) MsgBox No_Of_Rows End Sub

At this moment, it will take you to the last cell of the first column, from there onwards we need to move upwards to go the last used cell, so use End(xlUp) property.

Code:

Sub Count_Rows_Example3() Dim No_Of_Rows As Integer No_Of_Rows = Cells(Rows.Count, 1).End(xlUp) MsgBox No_Of_Rows End Sub

So this will take you to the last used cell of column 1, and in this cell, we need the row number, so use ROW property to get the row number.

Code:

Apakšskaitlis_Rindas_Piemērs3 () Dim No_Of_Rows kā vesels skaitlis No_Of_Rows = Šūnas (Rows.Count, 1) .End (xlUp) .Rinda MsgBox No_Of_Rows End Sub

Atceramās lietas

  • COUNT darblapā piešķirs vairākas rindas.
  • Ja jums ir diapazons, tas dos virkni rindā atlasīto rindu.
  • Rekvizīts ROW atgriezīs aktīvās šūnas rindas numuru.

Interesanti raksti...