VBA eilučių skaičius - kaip suskaičiuoti VBA naudotų eilučių skaičių?

„Excel VBA“ eilučių skaičius

VBA programuojant taip pat svarbiausia nurodyti eiles, o eilučių skaičiavimas yra vienas iš dalykų, kuriuos turite žinoti, kai kalbama apie VBA kodavimą. Yra daug vertės, kurią galime gauti, jei galime suprasti eilučių, kurių darbalapyje yra duomenų, skaičiavimo svarbą. Šiame straipsnyje mes parodysime, kaip skaičiuoti eilutes naudojant VBA kodavimą.

Kaip suskaičiuoti eiles VBA?

1 pavyzdys

Norėdami suskaičiuoti eilutes, turime naudoti objektą RANGE, šiame objekte turime naudoti objektą ROWS ir tuo pačiu naudoti COUNT ypatybę.

Pavyzdžiui, pažiūrėkite į žemiau pateiktus duomenis „Excel“.

Iš aukščiau pateiktų duomenų turime nustatyti, kiek eilučių yra nuo A1 iki A8. Taigi pirmiausia nustatykite kintamąjį kaip sveikąjį skaičių, kad išsaugotumėte eilučių skaičių.

Kodas:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

Šiam kintamajam priskirsime eilučių numerius, todėl įveskite kintamojo pavadinimą ir iš lygybės ženklo.

Kodas:

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

Turime pateikti langelių diapazoną, todėl atidarykite objektą RANGE ir pateikite diapazoną kaip „A1: A8“. Kodas:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8") End Sub

Kai diapazonas pateiktas, turime suskaičiuoti eilučių skaičių, todėl pasirinkite objekto RANGE savybę ROWS.

Objekto RANGE nuosavybėje ROWS skaičiuojame eilučių skaičių, todėl dabar pasirinkite „COUNT“ nuosavybę.

Dabar pranešimų laukelyje parodykite kintamojo vertę.

Kodas:

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

Dabar paleiskite kodą ir peržiūrėkite pateiktų langelių diapazono eilučių skaičių.

Gerai, diapazone yra 8 eilutės, todėl pranešimų laukelyje eilučių skaičius yra 8.

2 pavyzdys

Mes taip pat turime kitų eilučių skaičiavimo būdų. Pirmiau nurodytam metodui turime pateikti langelių diapazoną, o šiame diapazone esančiuose langeliuose jis rodo pasirinktų eilučių skaičių.

Bet įsivaizduokite scenarijų, kai turime rasti paskutinį kartą panaudotą bet kurį stulpelį, pavyzdžiui, paimkite tuos pačius duomenis, kaip parodyta aukščiau.

Norėdami pereiti prie paskutinio panaudoto langelio iš langelio A1, paspauskite sparčiojo klavišo „ Excel“ klavišą „Ctrl + rodyklė žemyn“ , taigi jis nukels jus į paskutinį langelį prieš tuščią langelį.

Pirmiausia pateikite langelį kaip A1 naudodami objektą RANGE.

Kodas:

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

Iš šios langelio turime judėti žemyn, o darbalapyje naudojame „Ctrl“ + rodyklę žemyn, tačiau VBA - „END“ nuosavybę, pasirinkite šią ypatybę ir atidarykite skliaustą, kad pamatytumėte parinktis.

Pažvelkite ten naudodami END klavišą ir galime pamatyti visus rodyklių klavišus, pvz., „XlDown, xlToLeft, xlToRight ir xlUp“, nes turime judėti žemyn naudodami parinktį „xlDown“.

Kodas:

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

Tai nukels jus į paskutinį langelį prieš bet kokią pertrauką. Dabar aktyvioje langelyje mums reikia eilutės numerio, todėl naudokite savybę ROW.

Kodas:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown). Eilutė MsgBox No_Of_Rows End Sub

Gerai, baigta. Dabar tai parodys paskutinės eilutės numerį ir tai bus kelių eilučių skaičius.

Taigi eilėse turime duomenų.

3 pavyzdys - raskite paskutinį kartą naudotą eilutę

Rasti paskutinę naudotą eilutę yra taip svarbu, norint nuspręsti, kiek kartų kilpa turi būti paleista, taip pat aukščiau nurodytu metodu paskutinė eilutė sustoja, kad pasirinktų, ar yra pertraukos taško langelis, taigi, taikydami šį metodą, galime rasti paskutinę naudojamą eilutę bet kokių problemų.

Atidarykite CELL nuosavybę.

Kodas:

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

Dabar mes turime paminėti eilutės numerį, kad galėtume pradėti. Problema yra ta, kad mes nesame tikri, kiek duomenų eilučių turime, taigi, ką mes galime padaryti, mes iš karto einame į paskutinę darbalapio eilutę, jei norite paminėti ROWS .COUNT nuosavybė.

Kodas:

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

Toliau turime paminėti, kuriame stulpelyje randame paskutinę naudojamą eilutę, taigi šiuo atveju mes randame pirmąjį stulpelį, todėl paminėkite 1.

Kodas:

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

Šiuo metu jis nukels jus į paskutinį pirmojo stulpelio langelį, iš ten turime judėti aukštyn, kad pereitume paskutinį panaudotą langelį, todėl naudokite ypatybę Pabaiga (xlUp).

Kodas:

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

Taigi jūs pateksite į paskutinį naudojamą 1 stulpelio langelį, o šioje langelyje mums reikia eilutės numerio, todėl naudokite savybę ROW, kad gautumėte eilutės numerį.

Kodas:

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

Ką reikia atsiminti

  • COUNT pateiks eilučių skaičių darbalapyje.
  • Jei turite diapazoną, jis suteiks diapazone pasirinktų eilučių skaičių.
  • Ypatybė ROW grąžins aktyvios langelio eilutės numerį.

Įdomios straipsniai...