Ajouter " 1 " pour toutes les cellules dans une plage

Je suis en train d'ajouter une unité de 1 à de nombreuses cellules dans une plage. Ci-dessous est là où j'en suis et je reçois une erreur d'incompatibilité de type:

Dim r As Range, cell As Range

Set r = Range("D2:E1000")

For Each cell In r
    If cell.Value > 0 Then
        cell.Value = cell.Value + 1
    End If
Next
Voulez-vous ajouter un "1" à ce qui est actuellement dans la cellule? Ou remplacer le contenu de la cellule avec un "1"? (Je suis en supposant que la première fonction de votre code).

OriginalL'auteur ackdaddy | 2013-11-06

  1. 3

    Comment sur:

    Sub marine()
    Dim r As Range, cell As Range

    Set r = Range("D2:E1000")

    For Each cell In r
        If IsNumeric(cell.Value) Then
            If cell.Value > 0 Then
                cell.Value = cell.Value + 1
            End If
        Else
            MsgBox "Cell " & cell.Address(0, 0) & " does not have a number"
            Exit Sub
        End If
    Next
End Sub
    Le champ est en fait un temps sous la forme de "h:mm AM/PM". Je suis en train d'ajouter un jour. Je peux le faire avec une seule cellule, mais pas toutes les cellules d'une plage.
    si vous avez un moment dans ces créneaux horaires, ce qui sont que vous essayez de faire avec le temps? Je pense que l'ajout de 1 à un, permettra dans le même temps. Est-il une date aussi dans le domaine que vous essayez d'augmenter?
    Si une cellule contient une date/heure, puis ajouter un à la cellule va incrémenter la date de 1 jour.
    Étudiant: Vous avez raison. Il a augmenté d'un jour, qui est ce que je cherchais.

    OriginalL'auteur Gary's Student

  2. 5

    Voici une autre façon

    Sub Sandwich()

    Dim rTemp As Range
    Dim rTarget As Range
    Dim sNumFmt As String

    'Define the ranges
    Set rTemp = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Offset(1, 0)
    Set rTarget = Sheet2.Range("D2:E1000")

    'store a temporary value and the current number format
    rTemp.Value = 1
    sNumFmt = rTarget.Cells(1).NumberFormat

    'copy and paste special-add
    rTemp.Copy
    rTarget.PasteSpecial , xlPasteSpecialOperationAdd

    'get rid of the temp and reapply the format
    rTemp.ClearContents
    rTarget.NumberFormat = sNumFmt

End Sub

    OriginalL'auteur Dick Kusleika

  3. 3

    S'arrêtant à OK, I'm trying to add a unit of "1" to many cells in a range. le plus simple est bien souvent sans VBA ou code. Il suffit d'insérer 1 quelque part sur la feuille de calcul, copiez cette cellule, sélectionnez la plage de l'intérêt et de collage Spécial avec l'Opération Ajouter. Le 1 peut alors être supprimé.

    OriginalL'auteur pnuts

  4. 0
    Dim r As Range, cell As Range

Set r = Range("D2:E1000")

For Each cell In r
    If cell > 0 Then
        cell.Value = cell.Value + 1
    End If
Next

    Est de Travailler pour moi , peut-être que vous voulez, SI la cellule = 0 ???
    En attente de vos commentaires pour voir si je anwsered votre question.

    OriginalL'auteur Stephenloky