VBA ridade arv - kuidas loendada VBA kasutatud ridade arvu?

Lang L: none (table-of-contents)

Exceli VBA ridade arv

VBA programmeerimisel on ka ridadele viitamine kõige olulisem ning ridade loendamine on üks asi, mida peate VBA kodeerimisel teadma. Palju väärtust saame, kui saame aru nende ridade loendamise olulisusest, mille töölehel on andmeid. Selles artiklis näitame teile, kuidas VBA kodeerimise abil ridu loendada.

Kuidas lugeda VBA-s ridu?

Näide 1

Ridade loendamiseks peame kasutama objekti RANGE, selles objektis peame kasutama objekti ROWS ja selles peame kasutama atribuuti COUNT.

Näiteks vaadake Exceli allolevaid andmeid.

Ülaltoodud andmete põhjal peame tuvastama, kui palju ridu on vahemikus A1 kuni A8. Seega määrake kõigepealt muutuja täisarvuna, et salvestada ridade arv.

Kood:

Alamarvu_Read_näide1 () Dim No_Of_Rows kui täisarvu lõpp-alam

Selle muutuja jaoks määrame reanumbrid, nii et sisestage muutuja nimi ja välja võrdusmärk.

Kood:

Sub Count_Rows_Example1 () Dim No_Of_Rows as Integer No_Of_Rows = End Sub

Peame pakkuma lahtrivahemiku, nii et avage objekt RANGE ja sisestage vahemik tähega “A1: A8”. Kood:

Alamarv_Read_näide1 () Hämardab No_Of_Rows kui täisarv No_Of_Rows = Vahemik ("A1: A8") Lõpp

Kui vahemik on esitatud, peame loendama ridade arvu, seega valige objekti RANGE omadus ROWS.

Objekti RANGE atribuudis ROWS loeme ridu, seega valige atribuut „COUNT”.

Nüüd kuvage sõnumikastis muutuja väärtus.

Kood:

Sub Count_Rows_Example1 () Dim No_Of_Rows as Integer No_Of_Rows = Range ("A1: A8"). Read. Count MsgBox No_Of_Rows End Sub

Nüüd käivitage kood ja vaadake tarnitud rakkude vahemiku ridade arvu.

Ok, vahemikku on tarnitud 8 rida, seega on sõnumikastis ridade arv 8.

Näide 2

Ridade loendamiseks on meil ka teisi viise, ülaltoodud meetodi jaoks peame pakkuma lahtri vahemiku ja selles vahemikus näitab see valitud ridade arvu.

Kuid kujutage ette stsenaariumi, kus peame leidma mõne veeru viimati kasutatud, näiteks võtke samad andmed, nagu ülal näha.

Lahtrist A1 viimati kasutatud lahtrisse liikumiseks vajutame exceli kiirklahvi „Ctrl + nool alla” , nii et see viib teid viimasele lahtrile enne tühja lahtrit.

Esiteks varustage lahter A1-ga, kasutades objekti RANGE.

Kood:

Sub Count_Rows_Eexample2 () Dim No_Of_Rows as Integer No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub

Sellest lahtrist peame liikuma alla ja töölehel kasutame klahve Ctrl + allanool, kuid VBA-s kasutame omadust END, valime selle omaduse ja avame sulgude, et näha valikuid.

Vaadake seal klahvi END, et näeksime kõiki nooleklahve, näiteks "xlDown, xlToLeft, xlToRight ja xlUp", kuna peame alla liikuma, kasutades valikut "xlDown".

Kood:

Sub Count_Rows_Example2 () Dim No_Of_Rows as Integer No_Of_Rows = Range ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub

See viib teid viimasesse lahtrisse enne mis tahes pausi, nüüd vajame aktiivses lahtris rea numbrit, seega kasutage omadust ROW.

Kood:

Sub Count_Rows_Example2 () Dim No_Of_Rows as Integer No_Of_Rows = Range ("A1"). End (xlDown). Rida MsgBox No_Of_Rows End Sub

Olgu, tehtud. Nüüd näitab see viimase rea numbrit ja see on mitme rea arv.

Nii et ridades on meil andmed.

Näide # 3 - leidke viimati kasutatud rida

Viimati kasutatud rea leidmine on nii oluline, et otsustada, mitu korda silmus peab jooksma, ja ka ülaltoodud meetodis peatub viimane rida, et valida, kas katkestuspunkti lahtrit on, nii et selle meetodi korral võime leida viimase kasutatud rea ilma mingeid probleeme.

Avage vara CELL.

Kood:

Alamarvude_Read_Näide3 () Dim No_Of_Rows kui täisarv No_Of_Rows = Lahtrid (MsgBox No_Of_Rows End Sub

Alustuseks peame mainima rea ​​numbrit, siin on probleemiks see, et me pole kindlad, mitu andmerida meil on, nii et mida me saame teha, on kohe minna töölehe viimasele reale, selle mainimise jaoks ROWS .COUNT vara.

Kood:

Alamarvude_Read_näide3 () Hämarda No_Of_Rows kui täisarv No_Of_Rows = Lahtrid (Read.Count, MsgBox No_Of_Rows End Sub

Järgmisena peame mainima, millises veerus leiame viimati kasutatud rea, nii et sel juhul leiame esimesest veerust, nii et mainige 1.

Kood:

Alamarv_Read_Näide3 () Hämardab No_Of_Rows kui täisarv No_Of_Rows = Lahtrid (Read.Count, 1) MsgBox No_Of_Rows End Sub

Sel hetkel viib see esimese veeru viimasesse lahtrisse, sealt edasi peame liikuma ülespoole, et minna viimati kasutatud lahtrisse, seega kasutage omadust Lõpeta (xlUp).

Kood:

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

Nii viib see teid veeru 1 viimati kasutatud lahtrisse ja selles lahtris vajame rea numbrit, seega kasutage rea numbri saamiseks omadust ROW.

Kood:

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

Asjad, mida meeles pidada

  • COUNT annab töölehele hulga ridu.
  • Kui teil on vahemik, annab see vahemikus valitud hulga ridu.
  • Atribuut ROW tagastab aktiivse lahtri rea numbri.

Huvitavad Artiklid...