Dator > Hur gör jag för att räkna rader i ett Excel- arket med hjälp av ett VBA makro?

  • Hur gör jag för att räkna rader i ett Excel- arket med hjälp av ett VBA makro?


  • Använda makron kan skynda på åtgärder i Excel som måste göras gång på gång genom att automatisera dem . Makron kan också användas för att samla in data som kan behövas för ytterligare programmering . Till exempel kan antalet celler eller rader i en tabell behövas för att säkerställa att automatisk data manipulation fungerar som avsett. För att visa , kan ett enkelt makro räkna antalet rader i ett kalkylblad och öppna en meddelanderuta som anger att antalet
    1

    Öppna ett nytt Excel-ark och fylla i de första cellerna i kolumn B med slumpmässiga ord , bokstäver eller siffror.
    2 .
    Klicka på " Utvecklare "-fliken i Excel meny band . Om du inte kan se " Utvecklare "-fliken i menyn band , klicka på Microsoft Office -ikonen längst upp till vänster i fönstret , klicka på " Excel -alternativ " -knappen och klicka i kryssrutan som heter " Visa fliken Utvecklare i menyfliksområdet. "
    3 .
    Starta Visual Basic Editor genom att klicka på Visual Basic ikonen eller trycka på Alt och F11 samtidigt .
    4 .

    Klicka på " Infoga " på Visual Basic Editor -menyn och välj " modul . "
    5
    Skriv följande i modulen ruta: .



    Sub CountNumberofRowsinColumnB ( )

    NonBlankRange ( " Blad1 B : B " )

    End Sub



    Sub NonBlankRange ( sRange As String )

    Dim countNonBlank As Integer , myRange Som Range

    Set myRange=Range ( sRange )

    countNonBlank=Application. WorksheetFunction. CountA ( myRange )

    MsgBox " Antal rader : " countNonBlank , sRange

    End Sub



    Denna kod var anpassad från ett projekt i " Microsoft Visual Basic . Net Step by Step " som anges nedan .
    6 .
    Klicka på Excel -ikonen på Visual Basic Editor för att visa Excel- kalkylbladet .
    7 .

    Klicka på Makro ikonen på Excel band och välj " CountNumberofRowsinColumnB " från makro rutan .
    8 .
    Klicka på "Kör " i makrot rutan . En meddelanderuta öppnas som talar om hur många rader som har fyllts i.

    tips och varningar


  • annat sätt att räkna rader är att använda " Count " -funktion . Microsoft ger Följande kodavsnitt i Excel 2003 VBA Språkreferens anges nedan . För att använda funktionen Antal :
  • Sub DisplayRowCount ()
  • Dim iAreaCount As Integer
  • Dim I As Integer
  • kalkylblad ( " Blad1 " ) . aktivera
  • iAreaCount=Selection. Areas. Count
  • Om iAreaCount <= 1 Sedan
  • MsgBox " Urvalet innehåller " Selection. Rows . Räkna " rader . "
  • Else
  • För i=1 till iAreaCount
  • MsgBox " Area " i " i urvalet innehåller " _
  • Selection. Areas (i ) . Rows. Count " rader . "
  • Nästa jag
  • End If
  • End Sub
  • Detta måste ha det område som ska räknas ut innan makrot körs , så om bara en cell är markerad svaret det ger kommer att vara "1" och om hela kalkylbladet är valt Det kommer att läsa " 1048576 " ( i Excel 2007) .
  • Använd makron under förhållanden först , genom att använda kopior av kalkylprogram för att testa makron , för att rädda att förlora viktiga data .

Previous:nothing Next:hur man använder bildkontroll med Visual Basic 6,0





Relaterade artiklar


  • hur man gör en väska från soppåsar , post - it-lappar och registerkort
  • hur du vill visa en ståndpunkt filmklipp med Action Script i Flash MX
  • JavaScript galleri tutorial
  • hur man skapar ett diagram i python
  • hur man gör gratis fasa banners
  • hur man kan kontrollera skrivaren tillgänglighet med java
  • html tutorial för en textruta
  • hur du tar bort dubbletter från arrayer i Java
  • hur man skapar en uppfattning uttalande
  • hur du uppdaterar m810lr bios