Come faccio a contare le righe in un foglio elettronico di Excel utilizzando una macro VBA?

December 8

Come faccio a contare le righe in un foglio elettronico di Excel utilizzando una macro VBA?


Utilizzo di macro possono accelerare le azioni in Excel che devono essere fatte di volta in volta da loro automatizzando. Le macro possono anche essere utilizzati per raccogliere i dati che possono essere necessari per l'ulteriore programmazione. Ad esempio, può essere necessario il numero di celle o righe di una tabella per garantire che le funzioni automatiche di manipolazione dei dati come previsto. Per dimostrare, una semplice macro può contare il numero di righe in un foglio di calcolo e aprire una finestra di messaggio che indica che il numero.

istruzione

1 Aprire un nuovo foglio di calcolo di Excel e compilare le prime celle della colonna B con parole casuali, lettere o numeri.

2 Fare clic sulla scheda "developer" a nastro menù di Excel. Se non è possibile visualizzare la scheda "Sviluppatore" sulla barra multifunzione del menu, fare clic sull'icona di Microsoft Office in alto a sinistra della finestra, fare clic sul pulsante "Opzioni di Excel" e fare clic nella casella di spunta che dice "Mostra Developer scheda in il nastro. "

3 Avviare Visual Basic Editor facendo clic sull'icona di Visual Basic o premendo Alt e F11 contemporaneamente.

4 Clicca su "Inserisci" dal menu di Visual Basic Editor e scegliere "modulo".

5 Digitare quanto segue nella casella di modulo:

Sub CountNumberofRowsinColumnB ()

NonBlankRange ("Sheet1!B:B")

End Sub

NonBlankRange secondaria (Srange As String)

Dim countNonBlank As Integer, myRange As Range

Set myRange = Range (Srange)

countNonBlank = Application.WorksheetFunction.CountA (myRange)

MsgBox "Numero di righe:" & amp; countNonBlank,, Srange

End Sub

Questo codice è stato adattato da un progetto in "Microsoft Visual Basic .Net passo dopo passo" indicato di seguito.

6 Fare clic sull'icona di Excel in Visual Basic Editor per visualizzare il foglio di calcolo Excel.

7 Fare clic sull'icona Macro sulla barra multifunzione di Excel e selezionare "CountNumberofRowsinColumnB" dalla casella nome della macro.

8 Fai clic su "Esegui" nella casella di macro. Una finestra di messaggio si aprirà che ti dice quante righe sono stati compilati.

Consigli e avvertenze

  • Un altro modo per contare le righe è di utilizzare la funzione "Conteggio". Microsoft dà il seguente frammento di codice in Excel 2003 VBA Language Reference indicato di seguito. Per utilizzare la funzione di conteggio:
  • DisplayRowCount Sub ()
  • Dim iAreaCount As Integer
  • Dim i As Integer
  • Fogli di lavoro ( "Sheet1"). Attiva
  • iAreaCount = Selection.Areas.Count
  • Se iAreaCount <= 1 Poi
  • MsgBox "La selezione contiene" & Selection.Rows.Count e "righe".
  • Altro
  • Per i = 1 a iAreaCount
  • MsgBox "Area" e i & "della selezione contiene" & _
  • Selection.Areas (i) .Rows.Count e "righe".
  • Next i
  • Finisci se
  • End Sub
  • Questo ha bisogno di avere l'area da contare selezionato prima che la macro viene eseguita, quindi, se viene selezionata una sola cella la risposta che dà sarà "1" e se si seleziona l'intero foglio di calcolo si leggerà "1048576" (in Excel 2007) .
  • Utilizzare macro in condizioni di prova prima, utilizzando copie dei fogli di calcolo per verificare le macro su, al fine di salvare perdere dati importanti.