comment obtenir un objet 'Cell' dans Excel VBA

J'ai donc été à l'aide d'une boucle for each de passer par un tas de lignes. J'ai rencontré un problème lorsque j'ai été la suppression de lignes, et cela a provoqué une rangée pour obtenir ignorée, donc j'ai changé pour une boucle do while.

Le problème que je vais avoir est d'essayer d'obtenir une "cellule" de l'objet. Avant, quand j'ai eu:

For Each C In Worksheets("Blah").Range("A2:A" & lastRow).Cells

Je pouvais faire des choses comme

C.Offset(1, 0)
C.Value = "Troy"

Etc. J'ai essayé d'utiliser:

C = Worksheets("Blah").Cells(iRow, 2)

mais qui donne juste à C la valeur de la cellule. Comment puis-je obtenir le véritable objet de cellule?

Grâce

source d'informationauteur Troy Cosentino | 2012-08-13

  1. 15

    Lorsque vous supprimez des lignes, il est toujours préférable d'aller du bas vers le haut. Votre problème est que vous avez besoin de Définir des mots clés pour définir C à l'objet de la plage plutôt que de "Laisser" C à la Valeur de plage. Gamme ont une propriété par défaut, la Valeur, et lorsque vous omettez une propriété de la propriété qui est utilisée. Pour cette raison, vous devez utiliser Jeu lors de l'affectation des variables d'objet. Voici un exemple d'une boucle en arrière pour supprimer des lignes, et d'affecter une variable objet.

    Sub DeleteRows()

    Dim i As Long
    Dim rRng As Range
    Dim rCell As Range

    Set rRng = Sheet1.Range("A1:A9")

    For i = rRng.Rows.Count To 1 Step -1
        Set rCell = rRng.Cells(i, 1)
        If rCell.Value Mod 2 = 1 Then
            rCell.EntireRow.Delete
        End If
    Next i

End Sub