Hoe somt u een bereik van cellen op in Excel terwijl u foutwaarden negeert?
Soms bevatten uw werkbladen foutwaarden, maar u wilt het opgegeven celbereik optellen zonder deze fouten mee te rekenen. Als u de SOM-functie direct op het bereik toepast, krijgt u een onjuist resultaat. Hieronder stel ik u enkele eenvoudige en effectieve methoden voor.
Bereik van cellen optellen terwijl fouten worden genegeerd met een matrixformule
Bereik van cellen optellen terwijl fouten worden genegeerd met VBA-code
Bereik van cellen optellen terwijl fouten worden genegeerd met een matrixformule
Stel dat u een bereik met celwaarden hebt, zoals in de volgende schermafbeelding wordt weergegeven. U kunt de volgende matrixformule gebruiken om het bereik op te tellen terwijl fouten automatisch worden genegeerd. Volg deze stappen:
1. Voer in een lege cel de volgende formule in:=SUM(IF(ISERROR(A1:C6),„",A1:C6)), zie schermafbeelding:
Opmerking: In de bovenstaande formule is A1:C6 het bereik dat u wilt optellen; u kunt dit naar wens aanpassen.
2. Druk vervolgens tegelijkertijd op Ctrl + Shift + Enter om de formule af te ronden. U krijgt dan het volgende resultaat:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Bereik van cellen optellen terwijl fouten worden genegeerd met VBA-code
De volgende VBA-code helpt u ook snel de som te berekenen van celwaarden die fouten bevatten.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: bereik van cellen optellen terwijl fouten worden genegeerd
Sub SumNumNoError()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xSum As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If Not (IsError(Rng.Value)) Then
xSum = xSum + Rng.Value
End If
Next
MsgBox xSum
End Sub
3. Druk daarna op de toets F5 om de code uit te voeren. Er verschijnt dan een dialoogvenster waarin u wordt gevraagd het bereik te selecteren dat u wilt optellen.
4. Klik vervolgens op OK, waarna een dialoogvenster met het resultaat wordt weergegeven, zoals hieronder te zien is.
Gerelateerde artikelen:
Hoe telt u de drie grootste of kleinste waarden in een lijst in Excel op?
Hoe telt u snel elke andere of elke n-de rij of kolom op in Excel?
Hoe telt u alleen de gefilterde of zichtbare cellen in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins