VBA Compter le nombre de cellules dans la plage de

Essayez de compter le nombre de cellules à l'intérieur d'une fourchette pour afficher la barre d'état. Pas sûr de la façon de compter le nombre de cellules au sein de la gamme à utiliser comme dénominateur pour la barre de progression. Toutes les pensées?

For Each cell In Range("E11:G28,E33:G50,E57:G74,E79:G96,E101:G118,E130:G147,E152:G169,E175:G192,E198:G215,E221:G238")
    **lTotal = Range.Cells.Count**
    Application.StatusBar = "Processing cell " & cell.AddressLocal & _
                                    "    " & Format((lCounter / lTotal), "0%")
    cell.EntireRow.Hidden = (cell.Value = "")
    lCounter = lCounter = 1
Next cell

Merci beaucoup

  • Pourquoi êtes-vous de l'exécution de cette ligne cell.EntireRow.Hidden = (cell.Value = "") en permanence par plusieurs colonnes? La ligne peut afficher ensuite se cacher à nouveau contuouly. Ne voulez-vous cacher la ligne si une cellule est vide - si oui, alors il suffit de cocher pour un sinle vide.
  • merci. Je veux seulement masquer la ligne si toutes les cellules de la ligne sont vides. par exemple, si E11 est vide, mais G11 n'est pas vide, ne pas masquer la ligne. Si E11, F11 et G11 sont vides, masquer la ligne. Si vous connaissez un moyen plus rapide pour ce faire, je voudrais vraiment l'apprécier ce parce qu'actuellement, il est très lent.
  • J'ai mis à jour mon code pour le faire ligne par ligne plutôt que de la cellule par cellule.
InformationsquelleAutor user3450844 | 2014-06-09
  1. 2

    Cette version ressemble à votre portée, ligne par ligne, plutôt que par cellule par cellule

    Il désactive également ScreenUpdating pour éviter le scintillement, réinitialise le StatusBar etc

    Sub ReCut() 
Dim rData As Range 
Dim rng1 As Range 
Dim rng2 As Range 
Dim rcell As Range 
Dim lngCnt As Long 
Dim lngCalc As Long 

Set rData = Range("E11:G28,E33:G50,E57:G74,E79:G96,E101:G118,E130:G147,E152:G169,E175:G192,E198:G215,E221:G238") 

For Each rng1 In rData.Areas 
ltotal = ltotal + rData.Rows.Count 
Next 

With Application 
    .ScreenUpdating = False 
    .EnableEvents = False 
    lngCalc = .Calculation 
    .Calculation = xlCalculationManual 

    For Each rng2 In rData.Areas 
        For Each rcell In rng2.Rows 
            rcell.EntireRow.Hidden = (.CountBlank(rcell) = 3) 
            lngCnt = lngCnt + 1 
            .StatusBar = "Processing row " & lngCnt & "    " & Format((lngCnt / ltotal), "0%") 
        Next rcell 
    Next 


    .ScreenUpdating = True 
    .EnableEvents = True 
    .Calculation = lngCalc 
    .StatusBar = vbNullString 
End With 

End Sub
    • Merci pour cela, mais il ne doit pas masquer les lignes où toutes les cellules de la plage, dans la ligne sont vides. Il ne fait pas masquer toutes les lignes. Aussi, lTotal = rData.Les lignes.Comte revient 18, par opposition à 180. Mise à jour: C'est parce que si il y a une formule, nbval() considère qu'il n'est pas vide. Toutes les cellules ont des formules.
    • Mais votre offre est uniquement les colonnes E:G dans chaque ligne? La deuxième question est de ma faute, la gamme a de multiples domaines et ma réponse boucle à travers la première seulement. Sera mise à jour.
    • Les réponses correctes est de remplacer cell.EntireRow.Hidden = (.CountA(cell) =0) avec cell.EntireRow.Hidden = (Application.CountBlank(cell) = 5) Juste besoin de trouver la bonne ligne de comptage.
    • Mise à jour pour les domaines. le comte est bon maintenant. Je pense que si vous voulez .CountBlank(rcell) = 3) plutôt que 5?
    • yep, 3 plutôt qu'un 5. Merci!
    InformationsquelleAutor brettdj
  2. 1

    Essayez ceci:

    Sub Home()
    Dim cell As Range, N As Long
    For Each cell In Range("E11:G28,E33:G50,E57:G74,E79:G96,E101:G118,E130:G147,E152:G169,E175:G192,E198:G215,E221:G238").Areas
        N = N + cell.Cells.Count
    Next cell
    Debug.Print N
End Sub

    Ce compte toutes les cellules de votre gamme.

    InformationsquelleAutor L42
  3. 1

    Par exemple:

    Dim rData As Range
Set rData = Range("E11:G28,E33:G50,E57:G74,E79:G96,E101:G118,E130:G147,E152:G169,E175:G192,E198:G215,E221:G238")
lTotal = rData.Count
For Each cell In rData.Cells
    Application.StatusBar = "Processing cell " & cell.AddressLocal & _
                                    "    " & Format((lCounter / lTotal), "0%")
    cell.EntireRow.Hidden = (cell.Value = "")
    lCounter = lCounter + 1
Next cell
    InformationsquelleAutor Rory
  4. 1

    Essayer ce - 

    Range(Selection.Address).Count
    • utilisations: (Plage de Sélection.L'adresse).Le comte
    • Merci d'éditer avec plus d'informations. Code-et "essayer cette" réponses sont découragés, car ils ne contiennent pas de contenu disponible pour la recherche, et de ne pas expliquer pourquoi quelqu'un devrait "try this". Nous faisons un effort pour être une ressource pour la connaissance.
    InformationsquelleAutor n3cao