Comment mettre en évidence vide/vide cellules à l'aide de macro VBA

J'ai réalisé que j'ai foiré de poser ma première question, donc je vais essayer une dernière fois. Je suis ciblant le même 4 colonnes à partir de 2 feuilles séparées qui ont des cellules qui contiennent du texte ou pas. Feuille 1 sera mis à jour automatiquement, donc je vais être en cours d'exécution de ce code au quotidien pour mettre à jour manuellement la feuille 2. Je suis en train d'essayer de trouver un moyen pour l'essentiel à savoir laquelle les cellules sont absents du texte à l'aide d'une macro. J'ai essayé à l'aide d'un code que j'ai trouvé sur ce site qui met frontières sur des cellules contenant du texte et efface les frontières pour les cellules vides. 

Sub BorderForNonEmpty()
Dim myRange As Range
Set myRange = Sheet1.Range("C2:C252")

' Clear Existing Borders
myRange.Borders.Linestyle = xlLineStyleNone

' Test Each Cell and Put a Border Around it if it has content
For Each myCell in myRange
If myCell.Text <> "" Then
myCell.BorderAround (xlContinuous)
End If
Next
End Sub

Ce code fonctionne, mais je veux essayer de mettre en évidence les cellules vides avec une couleur opposée à la compensation de ses frontières. C'est aussi mon premier temps à poster sur StackOverflow, donc je m'excuse à l'avance. Merci.

InformationsquelleAutor user3688713 | 2014-05-30
  1. 4

    Au lieu d'une boucle dans toutes les cellules, Excel dispose d'une fonction intégrée pour sélectionner des Cellules vides. Cela devrait être plus rapide et plus fiable.

    Sub BorderForNonEmpty()
    Dim myRange As Range
    Set myRange = Sheet1.Range("C2:C252")

    'clear all color
    myRange.Interior.ColorIndex = xlNone

    'color only blank cells
    myRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 6
End Sub

    Une autre option pourrait être d'utiliser la mise en forme conditionnelle (une autre fonctionnalité intégrée), mais qui peut être difficile à contrôler pour la modification des plages.

    • Merci cela a très bien fonctionné.
    • Ravi de vous aider. Vous avez de bonnes réponses ici. Vous devez marquer un d'entre eux comme la réponse à aider les autres utilisateurs qui peuvent avoir une question similaire.
    InformationsquelleAutor guitarthrower
  2. 0

    Remplacer 

    myCell.BorderAround (xlContinuous)

    avec 

    myCell.Interior.Color = RGB(100, 100, 100)
    InformationsquelleAutor avb
  3. 0

    Donner à ceci un essai:

    Sub BorderForNonEmpty()
    Dim myRange As Range
    Set myRange = Sheet1.Range("C2:C252")
    For Each myCell In myRange
        If myCell.Text = "" Then
            myCell.Interior.ColorIndex = 6
        End If
    Next
End Sub

    EDIT#1:

    Sub BorderForNonEmpty()
    Dim myRange As Range
    Set myRange = Sheet1.Range("C2:C252")
    For Each myCell In myRange
        If myCell.Text = "" Then
            myCell.Interior.ColorIndex = 6
        Else
            myCell.Interior.ColorIndex = xlNone
        End If
    Next
End Sub

    EDIT#2:

    De faire de la macro "cliquables":

    1. De mettre de la forme Automatique dans la feuille de calcul
    2. Format de la forme Automatique
    3. Cliquez-droit sur la Forme et affecter la macro à elle.
    • Hé Gary de l'Étudiant. Qui a résolu le problème avec la mise en évidence, mais je me demandais si il était possible de sélectionner uniquement les cellules vides opposition aux cellules qui ont le texte en eux. Il est actuellement à la mise en évidence des cellules avec du texte. Je vous remercie pour l'aide.
    • Je ne comprends pas????????
    • Donc, ce que je suis en train de faire est d'exécuter le code pour mettre en valeur tout en blanc/cellules vides dans une colonne spécifique. Le but de cela est de lancer le code pour voir s'il y a des cellules vides, afin que je puisse le mettre à jour manuellement. Le code que vous avez écrit ne met en évidence qu'cellules avec du texte et non pas les cellules vides. Laissez-moi savoir si vous avez besoin de plus de précisions.
    • Sur mon ordinateur, la macro de couleurs tous des cellules vides. Il ne sera pas de la couleur des cellules contenant des espaces tels que =" "
    • Je ne suis toujours pas sûr de mettre en évidence uniquement les cellules vides. Il continue en soulignant les cellules qui ont des valeurs/texte. Pensez-vous que cela pourrait changer si je ciblée cette ligne: Si myCell.Text = "" Then
    • Voir mon EDIT#1
    • Cela a parfaitement fonctionné, Gary l'Étudiant. Je vous remercie pour votre aide. Est-il possible de créer un bouton de cette opposition en appuyant sur F8 -> Exécuter?
    • Voir mon EDIT#2

    InformationsquelleAutor Gary's Student