L'identification de l'itération d'une boucle For each en VBA?

Si j'ai une boucle qui commence:

For each c in Range("A1:C8")

Est-il une propriété de l'espace réservé c (c.count, c.value, c.something,...) qui identifie le nombre de fois que la boucle est itéré jusqu'à présent? Je préfère utiliser quelque chose comme ceci que, y compris d'une autre variable.

  • Nope. Vous devez compter vous-même.
InformationsquelleAutor GrahamD | 2013-02-15
  1. 4

    Au lieu d'utiliser un "for each c in range" vous pouvez faire quelque chose comme ceci:

    Dim c as Long 'presumably you did this as a Range, just change it to Long.
Dim myRange as Range 'Use a range variable which will be easier to call on later
Set myRange = Range("A1:C8")

For c = 1 to myRange.Cells.Count
    'Do something to the cell, identify it as myRange.Cells(c), for example:
    myRange.Cells(c).Font.Bold = True   '<--- replace with your code that affects the cell
Next

    Cela vous permet de faire exactement la même Pour le/la boucle Suivante, sans y compris l'inutile de la variable compteur. Dans ce cas, c est un compteur, mais sert également dans le but d'identifier les cellules touchées par le code.

    • Si vous utilisez le For Each c In Range syntaxe, vous pouvez utiliser c.Font.Bold = True l'intérieur de la boucle, donc il n'est pas nécessaire pour le Long variable...
    • Le problème avec cette technique est qu'elle nécessite un indice d'accès pour se rendre à la plage de cellules qui est généralement celui de wole point de la itteration.
    • il y a est nécessité pour le Long variable si l'OP veut être en mesure de compter le nombre d'itérations effectuées sans l'utilisation d'un autre variable compteur.
    • N'est pas la résultante c de chaque itération dans un For Each c ... le même que myRange.Cells(c)? Donc, pour des OP de la requête, il y a un moyen de faire ce qu'il veut sans le "plus" variable compteur. Il peut ne pas fonctionner pour tout, mais dans mon expérience, il travaille sur les cellules de gamme, specialcells, les éléments dans un tableau, les points en série, en série dans le graphique, les contrôles sur la forme, les formes sur la feuille, etc. -- pouvez-vous donner quelques exemples de cas où cette méthode ne fonctionne pas si l'OP peut déterminer quelle sera la meilleure approche pour son problème?
    • OK, peut-être que la coopérative doit le compteur de quelque chose d'autre, mais dans cette réponse, la seule chose que le compteur est utilisé pour quelque chose que vous n'avez pas vraiment besoin de le comptoir (réglage de la police en gras à l'aide d'un indice, quand on a déjà la référence en c dans le po exemple de code).
    • mon exemple n'est qu'un exemple (font.bold = true était juste quelque chose que j'ai pensé rapidement. Je ne sais pas ce que la coopérative doit ou veut le comptoir et il n'a pas vraiment d'importance. Oui, il a déjà une référence à c dans son exemple de code, mais il voulait un moyen de l'indice de la cellule touchée sans créer une variable supplémentaire à compter de l'itération.
    • OK, vous gagnez. 😉

    InformationsquelleAutor David Zemens
  2. 1

    Vous avez besoin de compter vous-même comme ce

    Dim i as integer
i = 0    
For each c in Range("A1:C8")
    i = i + 1

    Ou

    Dim i as integer
Dim c as Range
For i = 0 to Range("A1:C8").Count - 1
    Set c = Range("A1:C8").Cells(i)
    • Il n'est pas nécessaire d'ajouter une variable supplémentaire pour effectuer le comptage, si la structure de la boucle un peu différemment. Vous pouvez faire référence à une plage de cellules comme Range("A1:C8").Cells(c) tant que c est dimensionnée comme une longue/nombre entier.
    InformationsquelleAutor Dale M
  3. 0

    (Révisée)

    À l'aide de la Colonne ou de la Rangée des propriétés, selon la direction que vous itération, vous pouvez calculer un nombre ordinal à la volée. Ainsi

    For Each c1 in myRange
    myOrdinal = c1.row - myRange.row + 1       ' down contiguous cells in one column
    myOrdinal = c1.Column - myRange.Column + 1 ' contiguous columns, L2R
Next
    • J'aime bien ton idée, mais ne devrait-elle pas être myOrdinal = (c1,.Ligne - 1)*myRange.Les colonnes.Compter + c1.Colonne? Comme un vieux C/C++ programmeur je suppose que pour chaque boucle de traverse sur une rangée d'abord, puis les colonnes, mais vous savez ce qu'ils disent sur des hypothèses. Si c'est en bas des colonnes d'abord, il serait myOrdinal = (c1.Colonne - 1)*myRange.Les lignes.Compter + c1.Ligne.. BTW, est-il possible de préciser dans quel sens pour chaque boucle parcourt la gamme, de manière analogue à l' .trouver la fonction (byRows ou byColumns)?
    InformationsquelleAutor K. Rhodes