Excel 2000: Hoe u programmatisch alleen de zichtbare cellen in een bereik tellen

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 213313 - Bekijk de producten waarop dit artikel van toepassing is.
Alles uitklappen | Alles samenvouwen

Samenvatting

In Microsoft Excel kunt u een Microsoft Visual Basic for Applications aangepaste functie SOM alleen de zichtbare cellen in een bereik.

De werk blad functie SOM () totaal van alle cellen in een bereik, met inbegrip van verborgen cellen.

De werk blad functie SUBTOTAL() negeert verborgen rijen alleen als zij deel uitmaken van een gefilterde lijst die is gemaakt met deAuto FilterofGeavanceerd Filteropdracht.

In dit artikel wordt beschreven hoe u de aangepaste functie Sum_Visible_Cells() waarvan de som van de zichtbare cellen in een bereik maken.

Meer informatie

Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder garantie of impliciete, met inbegrip van maar niet beperkt tot, de impliciete garanties van verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeer taal worden opgespoord en de hulp programma's en procedures voor fout opsporing. Microsoft support professionals kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar ze zal niet deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke behoeften aanpassen.
Als u zoveel program meer ervaring hebt, kunt u contact opnemen met een Microsoft Certified Partner of Microsoft Advisory Services. Meer informatie vindt u op deze Microsoft-websites:

Microsoft Certified Partners-https://partner.Microsoft.com/Global/30000104

Microsoft Advisory Services-http://support.Microsoft.com/gp/advisoryservice

Ga naar de volgende Microsoft-website voor meer informatie over de ondersteuningsopties die beschikbaar zijn en hoe u contact kunt opnemen met Microsoft:http://support.Microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSMaken en gebruiken van een steek proef monster Visual Basic-functie SOM alleen zichtbare cellen in een bereik, gebruikt u de stappen in het volgende voorbeeld:
  1. Start Excel en druk vervolgens op ALT + F11 om de Visual Basic editor gestart.
  2. Op deInvoegenmenu, klikt u opModule.
  3. Voer de volgende voorbeeldcode in het module werk blad:
    Function Sum_Visible_Cells(Cells_To_Sum As Object)
        Application.Volatile
        For Each cell In Cells_To_Sum
            If cell.Rows.Hidden = False Then
                If cell.Columns.Hidden = False Then
                    total = total + cell.Value
                End If
            End If
        Next
        Sum_Visible_Cells = total
    End Function
    					
  4. Druk op ALT + F11 om terug te keren naar Excel.
  5. Maak het volgende werk blad:
       A1: 1   B1: 2
       A2: 2   B2: 4
       A3: 3   B3: 6
       A4: 4   B4: 8
       A5: 5   B5: 10
    					
  6. Selecteert u rij 3.
  7. Op deIndelinghet menuRij, en klik vervolgens opVerbergen.

    Rij 3 verdwijnt.
  8. Typ de volgende formule in cel A6:
    =SUM(a1:B5)
    De formule resulteert in 45, de som van alle cellen met inbegrip van verborgen cellen.
  9. Typ de volgende formule in cel A7:
    =Sum_Visible_Cells(a1:a5)
    De formule resulteert in 36, de som van alleen de zichtbare cellen.
OPMERKING: Als u verbergen of cellen weer geven nadat u de formule in het werk blad invoert, wordt de formule niet automatisch herberekend. Kunt u de formules herb ere kenen alsBerekeningis ingesteld opAutomatische(Klik opOptiesop deHulp programma'smenu) en u een van de volgende acties ondernemen:
  • U kunt een willekeurige cel op het werk blad bewerken.

    - of -
  • U drukt op F9, waardoor een herberekening.

    - of -
  • U sluit de werkmap.

Eigenschappen

Artikel ID: 213313 - Laatste beoordeling: dinsdag 20 september 2011 - Wijziging: 3.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Excel 2000 Standard Edition
Trefwoorden: 
kbdtacode kbhowto kbprogramming kbmt KB213313 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:213313

Geef ons feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com