VBA-rivien määrä - Kuinka laskea käytettyjen rivien määrä VBA: ssa?

Sisällysluettelo

Excelin VBA-rivien määrä

VBA-ohjelmoinnissa riveihin viittaaminen on myös tärkeintä ja rivien laskeminen on yksi niistä asioista, jotka sinun on oltava tietoinen VBA-koodauksesta. Paljon arvoa voimme saada, jos ymmärrämme niiden rivien laskemisen tärkeyden, joilla on tietoja laskentataulukossa. Tässä artikkelissa näytämme, kuinka rivejä lasketaan VBA-koodauksen avulla.

Kuinka laskea rivejä VBA: ssa?

Esimerkki 1

Riveiden laskemiseksi meidän on käytettävä RANGE-objektia, tässä objektissa meidän on käytettävä ROWS-objektia ja tässä on käytettävä COUNT ominaisuutta.

Katso esimerkiksi alla olevia tietoja Excelissä.

Yllä olevien tietojen perusteella meidän on tunnistettava, kuinka monta riviä alueella A1 - A8 on. Joten määritä ensin muuttuja kokonaislukuna rivien määrän tallentamiseksi.

Koodi:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

Tälle muuttujalle osoitamme rivinumerot, joten kirjoita muuttujan nimi ja poista yhtälömerkki.

Koodi:

Alamäärä_Rivit_esimerkki1 () Himmennä No_Of_Rows kokonaislukuna No_Of_Rows = Lopeta osa

Meidän on annettava joukko soluja, joten avaa RANGE-objekti ja anna alue muodossa "A1: A8". Koodi:

Alamäärä_Rivit_esimerkki1 () Himmennä No_Of_Rows kokonaislukuna No_Of_Rows = Alue ("A1: A8") Loppu

Kun alue on annettu, meidän on laskettava rivien määrä, joten valitse RANGE-objektin ROWS-ominaisuus.

RANGE-objektin ROWS-ominaisuudessa laskemme useita rivejä, joten valitse nyt ominaisuus "COUNT".

Nyt viestikentässä näytä muuttujan arvo.

Koodi:

Alamäärä_Rivit_esimerkki1 () Himmennä No_Of_Rows kokonaislukuna No_Of_Rows = Alue ("A1: A8"). Rivit.Määrä MsgBox No_Of_Rows End Sub

Suorita nyt koodi ja katso toimitettujen solualueiden rivien määrä.

Ok, alueella on 8 riviä, joten rivien määrä on 8 viestiruudussa.

Esimerkki 2

Meillä on myös muita tapoja laskea rivejä, edellä mainittua menetelmää varten meidän on toimitettava solualue, ja tällä alueella soluilla se näyttää valittujen rivien määrän.

Mutta kuvittele skenaario, jossa meidän on löydettävä minkä tahansa sarakkeen viimeksi käytetty, esimerkiksi ottakaa samat tiedot kuin yllä.

Siirtyäksesi viimeksi käytettyyn soluun solusta A1, painamme Excel-pikanäppäintä “Ctrl + alanuoli” , joten se vie sinut viimeiseen soluun ennen tyhjää solua.

Anna ensin solu A1: ksi RANGE-objektilla.

Koodi:

Alamäärä_Rivit_esimerkki2 () Himmennä No_Of_Rows kokonaislukuna No_Of_Rows = Alue ("A1") MsgBox No_Of_Rows End Sub

Tästä solusta meidän on siirryttävä alaspäin, ja laskentataulukossa käytämme Ctrl + alanuoli, mutta VBA: ssa käytämme END-ominaisuutta, valitse tämä ominaisuus ja avaa hakasulku nähdäksesi vaihtoehdot.

Katso END-näppäimellä kaikki nuolinäppäimet, kuten "xlDown, xlToLeft, xlToRight ja xlUp", koska meidän on siirryttävä alaspäin käyttämällä "xlDown" -vaihtoehtoa.

Koodi:

Alamäärä_Rivit_esimerkki2 () Himmennä No_Of_Rows kokonaislukuna No_Of_Rows = Alue ("A1"). Loppu (xlDown) MsgBox Ei_Of_Rows Loppu

Tämä vie sinut viimeiseen soluun ennen taukoa, nyt aktiivisessa solussa tarvitsemme rivinumeron, joten käytä ROW-ominaisuutta.

Koodi:

Alamäärä_Rivit_esimerkki2 () Himmennä No_Of_Rows kokonaislukuna No_Of_Rows = Alue ("A1"). Loppu (xlDown). Rivi MsgBox No_Of_Rows End 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:

Alamäärä_Rivit_esimerkki3 () Himmennä No_Of_Rows kokonaislukuna No_Of_Rows = Solut (Rivit.Määrä, 1) .End (xlUp) .Rivi MsgBox Ei_Of_Rivit End Sub

Muistettavaa

  • COUNT antaa laskentataulukolle useita rivejä.
  • Jos sinulla on alue, se antaa joukon rivejä, jotka on valittu alueelta.
  • ROW-ominaisuus palauttaa aktiivisen solurivin numeron.

Mielenkiintoisia artikkeleita...