Comment faire une Boucle à Travers 5 Cellules dans une Ligne à l'Aide de VBA Excel

Je veux faire une boucle par 5 cellules, Q5 - U5.

Chaque cellule je veux vérifier si la valeur est égale à "Y", et si oui, mettez en surbrillance la cellule à rendre vert.

Comment pourrai-je le faire? Ne semble pas le comprendre.

For Each c In Range("Q5:U5").Cells
c.Select
If c.Value = Y Then
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 5287936
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
End If
Next

OriginalL'auteur blahblahblahblah | 2013-06-17

  1. 8

    Vous devriez essayer d'éviter de sélectionner/activer des plages: dans 99% des cas il n'est pas nécessaire (bien que l'enregistreur de macros toujours suggèrent le contraire)

    For Each c In ActiveSheet.Range("Q5:U5").Cells
    If c.Value = "Y" Then
    With c.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    End If
Next

    OriginalL'auteur Tim Williams

  2. 1

    Lorsque vous ne définissez pas c comme une plage, la déclaration

    For Each c in ActiveSheet.Range("Q5:U5").Cells

    bien que valables, sous c ayant la valeur de chacune des cellules. Pour résoudre ce problème, de déclarer le type explicitement:

    Dim c as Range

    Ensuite, quand vous faites la comparaison (comme l'a déjà souligné), l'utilisation

    If c.Value = "Y"

    Remarque - si vous déclarez

    Option Compare Text

    à droite en haut de votre module, la comparaison sera pas sensible à la casse; sinon, un "Y" ne correspondra pas à un "y".

    L'ensemble du module devrait ressembler à ceci:

    Option Explicit
Option Compare Text

Sub colorMe()
Dim c as Range
For Each c In Range("Q5:U5").Cells
  c.Select
  If c.Value = "Y" Then
    With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .Color = 5287936
      .TintAndShade = 0
      .PatternTintAndShade = 0
    End With
  End If
Next
End Sub

    Je suis sûr qu'il n'a pas besoin de faire remarquer que vous pouvez obtenir la même chose avec une mise en forme conditionnelle...

    OriginalL'auteur Floris

  3. 0

    Dans votre code, Y semble être une variable non définie. Pour vérifier la valeur, de le mettre entre guillemets doubles:

    If c.Value = "Y" Then

    Merci. Fixe. Debugger me dit qu'il y est une erreur "code" c.Sélectionnez

    OriginalL'auteur mr.Reband