Comment créer une bordure conditionnelle avec VBA?

Question

Fondamentalement, je veux faire un code qui sélectionne les cellules d'Excel en fonction du contenu. J'ai trouvé difficile d'expliquer les mots, alors j'ai téléchargé cette image.

Je veux sélectionner avec une bordure rouge toutes les lignes qui contient la coche. Mais si une ligne avec la coche est suivie par une autre avec la coche, faites simplement une grande sélection. (comme je l'ai fait manuellement dans l'image)

Une solution?

Merci à l'avance

Answer 1

Je sais que je disais le contraire dans les commentaires, mais maintenant que je l'ai pensé un peu plus, ce qui est entièrement réalisable avec mise en forme conditionnelle. L'idée est de définir toutes les bordures à l'avance, puis d'utiliser la mise en forme conditionnelle pour supprimer les bordures que vous ne souhaitez pas.

D'abord, définissez les bordures de chaque ligne selon la manière dont vous souhaitez qu'elles apparaissent lorsqu'aucune coche n'est cochée.

Lorsque la colonne « Pass » est « Non », vous voulez supprimer la gauche et la bordure droite. Mettre en place un format conditionnel en utilisant une règle de formule pour y parvenir. Assurez-vous de verrouiller la colonne D parce que la formule est appliquée à plusieurs colonnes et que vous voulez toujours regarder la colonne D.

Si la ligne actuelle a « Oui » dans la colonne de passage et la ligne ci-dessous il a aussi "Oui", vous voulez supprimer la bordure inférieure. Vous pouvez utiliser un format conditionnel supplémentaire pour ce faire.

Vous aurez besoin de couvrir quelques autres cas avec des formules conditionnelles supplémentaires, mais cela est l'idée générale.

Answer 2

Mon approche serait la suivante: Tout d'abord écrire un sous qui met une bordure rouge autour de l'extérieur de toute portée. Il devrait ressembler à quelque chose comme ceci:

Sub ApplyBorder(inputRg as Range) 
    Call inputRg.BorderAround(Weight:=xlMedium, Color:=vbRed) 
End Sub 

Maintenant, nous pouvons parcourir notre gamme. Si nous trouvons un chèque, incluez-le dans la plage pour avoir une bordure. Si nous trouvons un x, alors appliquez la bordure rouge autour de la gamme que nous avons, et réinitialisez-la à rien.

Sub FormatTable() 

    Dim AllTable As Range, oneRedRg As Range, oneRow As Range 
    Dim iRow As Integer 

    Set AllTable = GetTable 

    For iRow = 1 To AllTable.Rows.Count 
     Set oneRow = AllTable.Rows(iRow) 
     If oneRow.Cells(1, 3) = True Then 
      If oneRedRg Is Nothing Then  'if our current redRg is unset, 
       Set oneRedRg = oneRow  'then this is the first one, so set it 
      Else 
       Set oneRedRg = Range(oneRedRg, oneRow) 'if it is already set, then expand oneRedRg to include this one 
      End If 
     Else 
      if Not oneRedRg Is Nothing Then Call ApplyBorder(oneRedRg) 'if we find a range that need not be red, then 
      Set oneRedRg = Nothing  'apply the border to our redRg and reset it to nothing 
     End If 
    Next iRow 
    If Not oneRedRg Is Nothing Then Call ApplyBorder(oneRedRg) 'this last line captures a group of reds 
                   'that are at the end of the table. 
End Sub 

J'ai exclu la fonction "GetTable". Dans ma réponse, GetTable renvoie la table entière à parcourir, sans les en-têtes. Notez également que j'ai changé les contrôles et x pour être les valeurs "Vrai" ou "Faux" dans la feuille de calcul pour plus de facilité.

Bonne codification!

Answer 3

CF avec ces quatre règles peut servir, où ce n'est pas visible est le point de code pour les tiques (peut-être « 252 »):

et les plages ajustées, le cas échéant, en fonction de .