Si vous vous demandez comment ajouter uniquement des valeurs positives et uniques, cet article est pour vous.

Dans cet article, vous apprendrez comment ajouter uniquement des valeurs positives distinctes dans Excel à l’aide du code VBA.

Question): Je veux qu’une macro additionne tous les nombres positifs distincts dans une plage spécifiée qui comprend des nombres négatifs et positifs.

Voici un aperçu des données dont nous disposons:

image 1

Nous devons suivre les étapes ci-dessous:

Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic

image 2

Saisissez le code suivant dans le module standard: –

Function AddUnique (ByRef inputrange As Range, _

Option IgnoreText As Boolean = True, _

| === Option IgnoreError As Boolean = Vrai, _

Facultatif IgnoreNegativenumbers As Boolean = True)

Dim distinctnumbers As Double

Dim cellule comme plage

Dim dict comme objet

Set dict = CreateObject (« Scripting.dictionary »)

numéros distincts = 0

Pour chaque cellule de inputrange.Resize (inputrange.Rows.Count, 1)

cval = cell.Value

If IgnoreText Then

Sinon (VBA.IsNumeric (cval)) Alors cval = 0

Sinon

AddUnique = CVErr (0)

Fonction de sortie

Fin si

===

If IgnoreError Then

If IsError (cval) Then cval = 0

Sinon

AddUnique = CVErr (1)

Fonction de sortie

Fin si

If IgnoreNegativenumbers Then

Si cval <0 Alors cval = 0

Sinon

AddUnique = CVErr (2)

Fonction de sortie

Fin si

Si non dict.Exists (cval) Then

dict.Add cval, cval

numéros distincts = numéros distincts + cval

Fin si

Suivant

AddUnique = numéros distincts

Fonction de fin

image 4

  • Dans la cellule C2, la formule serait

* = AddUnique (A2: A6)

image 5

  • Pour vérifier si le code ignore la valeur répétée ou non; changeons la valeur de la cellule A1 à 50 et voyons le résultat.

image 6

De cette façon, nous pouvons ajouter des valeurs positives distinctes via un code de macro.

Excel//wp-content/uploads/2015/06/Download-Sample-File-xlsm.xlsm[Download-Sample File-xlsm]