Soms , moet u het aantal rijen wordt gebruikt in een Excel-spreadsheet kennen , hetzij voor een formule of soms zelfs een VBA- macro . Gelukkig , er zijn een paar eenvoudige manieren om dit te bereiken , en Excel VBA is slechts een van hen . De eenvoudigste manier om deze informatie te vinden is om naar de bodem van uw spreadsheet scrollen en merk het nummer rechts van de laatste gegevens wijzen , maar om het te doen door middel van VBA is ook vrij eenvoudig . Instructies
programmeren Macro
1 Open uw Excel-spreadsheet en open de VBA- editor door op ' Alt + F11 . " Kopen van 2 Start een nieuwe VBA project -bestand door met de rechtermuisknop te klikken op uw werkboek op het menu aan de rechterkant en het kiezen van de " New " optie .
3 Start de nieuwe functie door het intikken van " Sub COUNTROWS ( ) . " ; Dit informeert de VBA compiler dat er een nieuwe subroutine in het projectdossier . Indien u liever de subroutine een andere naam te geven , gewoon veranderen " COUNTROWS " aan wat u wilt zeggen , maar het moet de open en gesloten haakjes hebben achter het, zoals in " UwNaam ( ) " . < Br > Goedkope 4 Maak een variabele door het opnemen van " Dim Graaf als Long " in de volgende regel
Type 5 in de volgende code : . Graaf
= 0DoCount = Graaf + 1ActiveCell.Offset ( 1 , 0 ) . SelectLoop tot IsEmpty ( ActiveCell.Offset ( 0 , 1 ) ) op Twitter Dit vertelt de compiler programma om eerst duidelijk uit de graaf variabele , vervolgens beginnen te bewegen door de spreadsheet . Het voegt men de totale graaf , gaat vervolgens naar de volgende cel , zolang de volgende cel leeg . Als het een lege cel bereikt, zal hij stoppen .
6 Breng een bericht door het toevoegen van een nieuwe regel met " MsgBox graaf " daarin . Dit zal een pop - up box weer te geven met het totale aantal rijen in het. Om het vak Bericht lijken een beetje meer nuttig , kunt u wat meer tekst aan toe te voegen . Verander de regel als volgt : MsgBox
" Er zijn " Tel " Rijen "
U kunt de tekst tussen aanhalingstekens om weg wat u zou willen dat het verandert .
7 slot type " End Sub " in een nieuwe lijn om de functie te sluiten uit .
het uitvoeren van de Macro
8 Keer terug naar uw Excel- spreadsheet , en sla het op .
9 Markeer de eerste cel in de kolom met de meeste gegevens . Dit zal een kolom die geen lege cellen tussen de bovenkant en de onderkant heeft worden.
10 Open het menu "Extra " en selecteer " Macro's " te brengen dialoog met alle macro's geprogrammeerd macro's in de spreadsheet .
11 Kies een macro van afdeling 1 , " COUNTROWS " of welke naam je het gaf . Klik op " Uitvoeren . " Als het klaar is , zal de Macro verschijnen met de boodschap doos verslag van het aantal rijen die je hebt ingevuld .
|
