Excel Fonction Définie par l'Utilisateur: changer la couleur des cellules

J'ai une fonction définie par l'utilisateur dans Excel. Elle est appelée comme une fonction de formule à partir de cellules de feuille de calcul et fonctionne très bien.

J'aimerais la fonction pour être en mesure de modifier la couleur des cellules en fonction de la valeur qu'elle retourne. Essentiellement, la modification de la couleur des cellules est un effet secondaire de la fonction.

J'ai essayé

Application.ThisCell.Interior.ColorIndex = 2

Mais il échoue.

double possible de à l'Aide d'un fichier UDF dans Excel pour mettre à jour la feuille de calcul

OriginalL'auteur Larry K | 2012-12-04

  1. 6

    Cela ne peut être fait. Fonctions définies par l'utilisateur ne peut pas modifier l'état de l'classeur/feuille de calcul etc.

    La mise en forme Conditionnelle pour atteindre ce que vous voulez.

    EDIT: C'est plus une suggestion, pas une vraie réponse.

    +1: avec Plus de précision, ce qui peut être fait, mais absolument ne devrait pas être fait. Mise en forme conditionnelle est presque certainement le chemin à parcourir dans cette circonstance.
    Cela peut être fait dans UDF?. Si oui, comment? Merci pour les +1.
    Merci, c'est utile.
    il peut être fait avec un UDF comme par stackoverflow.com/questions/8520732/.... Alors que c'est complexe, je ne serais pas "absolu", comme Daniel, pour ce cas, il est excessif, il peut y avoir d'autres cas où il est d'usage
    Pour référence, pour aider à prévenir un "profond trou de lapin", voici un peut plus propre version de ce que @brettdj posté le: stackoverflow.com/questions/23433096/...

    OriginalL'auteur shahkalpesh

  2. 10

    Voici une démonstration de la façon dont un VBA UDF pouvez modifier la coloration des feuilles de contenu plutôt que d'utiliser la mise en forme conditionnelle.

    Tant que les deux feuilles de rangées et de colonnes dans le même ordre, alors ce sera de comparer les différences dans chaque cellule entre deux séparer les feuilles de calcul Excel.

    Vous pouvez ajouter ce en autant de cellules que vous devez sur une troisième feuille de détecter les différences entre les deux mêmes cellules sur les deux feuilles avec des données sur: =DifferenceTest(Sheet1!A1,Sheet2!A1)

    Et de la fonction pour être stockés dans l'éditeur VBA comme suit:

    Function DifferenceTest(str1 As String, str2 As String) As String

    If str1 = str2 Then
            Application.Caller.Font.ColorIndex = 2
    Else
            Application.Caller.Font.ColorIndex = 3
            DifferenceTest = str1 & " vs " & str2
    End If

End Function

    OriginalL'auteur JonoMac

  3. 1

    Non, vous ne pouvez pas modifier une cellule de la couleur à l'aide d'un Function(). Vous pouvez, cependant, modifier un Sub() routine.

    Il suffit d'écrire une Sub() qui va lancer votre fonction sur les cellules que vous souhaitez exécuter, puis après chaque exécution, mettre un if pour voir si vous voulez à la couleur sur la base de la valeur qu'elle renvoie.

    OriginalL'auteur aevanko

  4. 1

    Vous pouvez créer un code vba qui s'exécute automatiquement après il y a un changement dans votre feuille.
    Au lieu de hving le code dans un autre module, vous devez l'intégrer dans la feuille elle-même.

    Clic droit sur l'onglet de la feuille, choisissez Afficher le Code et créer le code suivant:

    Private Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Range("A1:B8") 'change cell range as needed

Select Case cell.Value
Case 8
cell.Interior.ColorIndex = 4 'cell color becomes green when cell value is 8
Case ""
cell.Interior.ColorIndex = 1 'cell color becomes black when cell is empty
Case Is < 6
cell.Interior.ColorIndex = 7 'cell color becomes pink when cell value is smaller than 6
Case Else
cell.Interior.ColorIndex = 0 'all other cells get no color
End Select

Next cell

End Sub

    OriginalL'auteur Diederik

  5. 0
    Function HexToLongRGB(sHexVal As String) As Long
    Dim lRed As Long
    Dim lGreen As Long
    Dim lBlue As Long
    lRed = CLng("&H" & Left$(sHexVal, 2))
    lGreen = CLng("&H" & Mid$(sHexVal, 3, 2))
    lBlue = CLng("&H" & Right$(sHexVal, 2))
    HexToLongRGB = RGB(lRed, lGreen, lBlue)
End Function

Function setBgColor(ByVal stringHex As String)
    Evaluate "setColor(" & Application.Caller.Offset(0, 0).Address(False, False) & ",""" & stringHex & """)"
    setBgColor = ""
End Function
    Sub setColor(vCell As Range, vHex As String)
    vCell.Interior.Color = HexToLongRGB(vHex)
End Sub
    Evaluate? Vraiment?

    OriginalL'auteur Đinh Quốc Tuấn

  6. 0

    J'ai essayé le Evaluate méthode, qui a travaillé, mais immédiatement écrasé (2007). L'aide mentionne la mise en cache de l'adresse, de sorte que mon approche - magasin de la cellule et de la couleur dans une collection, puis changez la couleur après le calcul.

    Dim colorCells As New Collection

Function UDF...
    UDF = <whatever>
    color = <color for whatever>
    colorCells.Add (Application.Caller)
    colorCells.Add (color)
End Function

Sub SetColor()
    While colorCells.Count <> 0
        colorCells(1).Interior.Color = colorCells(2)
        colorCells.Remove (1)
        colorCells.Remove (1)
    Wend
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    SetColor
End Sub

    OriginalL'auteur adoxa