Excel 2007/2010 couleur de l'échelle de mise en forme conditionnelle basée sur la formule de

Supposons que j'ai le tableau suivant de la structure (A1:C3)

     A   B   C
1    H1  H2  H3
2    1   1   3
3    4   5   4

Comment puis-je appliquer une mise en forme conditionnelle avec les conditions suivantes:

  • Seulement les cellules d'en-tête (H1,H2,H3) sont de couleur
  • Le schéma de couleurs est de 2 ou 3 couleurs-échelle
  • Les valeurs utilisées pour le calcul de la couleur doit être A2/A3, B2/B3, C2/C3 (la plage va de 0 à 1)

Note: je ne suis pas à la recherche d'une solution VBA, que je peux le faire moi-même, mais si vous avez quelques fous 1 liner s'il vous plaît dites 🙂
Remarque: je ne veux pas d'appliquer un grand nombre de règles comme if x<0.3 red, if 0.3<x<0.6 orange etc.

Est-il propre solution pour cela?
Pouvez un 3-couleur-échelle à être appliquées sur la base de la valeur d'une formule?

Demandez-vous si il est possible d'avoir une mise en forme conditionnelle sans avoir conditions?
Non, je me demande si la mise en forme conditionnelle à l'aide d'un 3-couleur-style de l'échelle est possible en conjonction avec des formules; ainsi, au lieu de coloration en fonction de la valeur de la cellule, j'ai pu la couleur en fonction du résultat d'une formule faisant intervenir d'autres cellules
Je vais aussi accepter un script VBA, si c'est vraiment une très courte durée. Je suis à la recherche d'un moyen rapide et sale hack 🙂 je sais comment écrire une longue solution itération sur tous les en-têtes, le calcul de la couleur ... mais juste pour le fun je veux voir quelques solutions intelligentes 😀

OriginalL'auteur Dan Manastireanu | 2011-04-19

  1. 1

    Je pense que vous êtes à la recherche de quelque chose de chouette qui, malheureusement, n'existe pas. Je viens de voir les deux options.

    Vous pouvez soit faire une mise en forme conditionnelle avec trois conditions, ou même les deux si vous voulez utiliser par défaut la couleur de la cellule comme l'un des trois (par exemple, la Formule Est =(A2/A3)<de 0,3, la Formule Est =(A2/A3)<0.6, ou ce que vous voulez que vos valeurs de seuil). Vous pouvez appliquer cette fomatting manuellement sur un en-tête de cellule dans Excel, et copie à tous les en-têtes, ou de l'appliquer à travers VBA.

    Ou vous pouvez couleur des en-têtes dans VBA, et placez un bouton sur votre feuille qui appelle le code pour mettre à jour les couleurs. 

    With Range("A1")
    For i = 1 To 3
        colorscale = .Cells(2, i).Value /.Cells(3, i).Value
        .Cells(1, i).Interior.Color = _
            RGB(colorscale * 255, colorscale * 255, _
            colorscale * 255) ' for example. Or pick your colors otherwise.
    Next i
End With

    Me semble que la première option (mise en forme conditionnelle) est mieux adapté, car il mettra à jour les couleurs automatiquement sur la base des valeurs de cellule. Je dois admettre, cependant, je n'arrive pas à voir pourquoi vous êtes à la recherche de quelque chose de plus "propre" que cela, car c'est vraiment une solution simple. Deux conditions constituent "un grand nombre de règles"? Pas par un tronçon de la langue anglaise...

    Ce n'est pas seulement deux règles. Je veux voir le gradient de rouge-jaune-vert basé sur le résultat, qui peut être une sous-unité de la fraction. J'espérais quelque sorte être en mesure de calculer ce gradient à l'aide directe de l'API, mais je ne pense pas qu'il y est quelque chose à faire.
    Aha. Par "2 ou 3 couleurs-échelle" je pensais que vous parliez d'une balance avec deux ou trois couleurs possibles. Vous voulais simplement dire qu'en RVB.

    OriginalL'auteur Jean-François Corbett

  2. 0

    Ici est une adaptation de Jean-François Corbett du code qui prend la couleur d'un rouge-jaune-vert dégradé:

    With Range("A1")
    For i = 1 To 3
        ColorScale = .Cells(2, i).Value /.Cells(3, i).Value
        If ColorScale < 0.5 Then
            red = 255
            green = ColorScale * 2 * 255
        Else
            red = (1 - ColorScale) * 2 * 255
            green = 255
        End If

        .Cells(1, i).Interior.Color = RGB(red, green, 0)
    Next i
End With
    Excel 2007 accepter n'importe quelle couleur de la cellule? Ou est-il toujours limité à 40 palette de couleurs comme Excel 2003? (Je suis toujours à l'aide de 2003.)
    Je crois que oui, j'ai juste couru une boucle de 1 à 100 et j'ai obtenu un joli dégradé. (dans Excel 2010, au moins, je n'ai pas de 2007 à la maison)
    Nice. Les Palettes sont donc trois décennies!

    OriginalL'auteur Dan Manastireanu