Excel Formule cellule basée sur la couleur de fond

Question

J'ai besoin d'une formule dans EXCEL qui place un nombre 1 dans la cellule à côté de la cellule où le fond de la cellule est rouge. Voir l'exemple ci-dessous.

Est-ce possible à tout sans VBA?

Answer 1

Ouvrez l'éditeur VBA et ajoutez un nouveau module. Pour ce faire, accédez à l'onglet Developer et cliquez sur Visual Basic. Si vous n'avez pas l'onglet développeur sur le ruban, vous devrez l'ajouter (faire une recherche rapide sur Google). Une fois que l'éditeur VBA est ouvert, faites un clic droit sur le projet VBA qui a votre nom de classeur sur la gauche et insérez un module.

Placez le code suivant dans le nouveau module:

Function IsRed(rng As Range) As Integer 
    IsRed = (rng.Interior.Color = vbRed) * -1 
End Function 

alors vous pouvez utiliser la formule =IsRed(A1) pour déterminer si A1 a un fond rouge

Note: celui-ci utilise le rouge par défaut dans la norme couleurs

Answer 2

cela peut être fait à partir Name Manager cela peut être accessible en appuyant sur les touches Ctrl + F3.

Vous voudrez créer une référence nommée (j'ai appelé cette "couleur") et faites-la se référer à =GET.CELL(63,OFFSET(INDIRECT("RC",FALSE),0,-1)) dans la barre de formule.

Vous pouvez maintenant utiliser cette 1 cellule à droite pour déterminer l'indice de couleur nombre d'une cellule:

Alors que le rouge est l'indice de couleur 3 dans la cellule à côté vous pouvez appliquer la formule:

=IF(color=3,1,0)

Answer 3

Vous pouvez réaliser manuellement sans VBA en utilisant un filtre automatique:

1. Assurez-vous que vous avez un titre au-dessus de la colonne avec des couleurs et au-dessus de la colonne où vous voulez que la valeur 1 placé

2. Ajouter un Autofilter (Sélectionnez les deux colonnes, cliquez sur le bouton Filtrer sur l'onglet Données du ruban)

3. cliquez sur le menu déroulant filtre sur la colonne avec des couleurs, puis cliquez sur Filtrer par couleur, le choix de la couleur rouge

4. dans votre deuxième colonne, entrez 1 dans toutes les cellules visibles. (Entrez 1 dans la première cellule, puis remplissez.ou, sélectionnez toutes les cellules, tapez 1 puis appuyez sur ctrl-enter)