'Wenn ... Dann' Anweisung mit Schleife

Ich habe, was scheint wie eine ziemlich einfache Anwendung, mit looping und "Wenn..Dann" - Aussagen, aber brauche etwas Hilfe bei der Strukturierung der it.

Sehr ein einfaches Beispiel, ich habe eine Liste mit zahlen in Spalte A und die Werte PM oder AM aufgeführt in Spalte B. ich möchte schreiben eine Schleife, die Suche wird jeder Wert in Spalte B bis zum Ende des Datensatzes, und fügen Sie 12 zu jedem Wert in Spalte A jedes mal, wenn Spalte B einen Wert hat, der PM. Kurz gesagt, würde es so Aussehen:

  • Wenn Spalte B = PM
  • dann fügen Sie 12 auf die entsprechende Zelle in Spalte A
  • sonst nach unten bewegen, um die nächste Zeile und das gleiche tun, bis Sie in eine leere Zelle
  • Nicht vertraut? Holen Sie sich vertraut. Google for Schleife.
  • Sie nicht brauchen, vba, dies zu tun. Sie können generieren, die das gewünschte Ergebnis in Spalte C mit einem =IF Formel, dann kopieren Sie C und einfügen von Werten in A.
InformationsquelleAutor Willarci3 | 2015-10-07
  1. 3

    Gibt es viele Möglichkeiten, hier ist typisch:

    Sub dural()
   Dim i As Long

   i = 1
   Do While Cells(i, "B").Value <> ""
      If Cells(i, "B").Value = "PM" Then
            Cells(i, "A").Value = Cells(i, "A").Value + 12
      End If
      i = i + 1
   Loop
End Sub
    InformationsquelleAutor Gary's Student
  2. 0

    können Sie es mit For next-Schleife und 2 Variablen. einen für die Letzte Zeile und die 2. für die Zeile count:

       Sub Macro1()

        Dim LastRow As String
        Dim i As Integer
        LastRow = Cells(Rows.Count, "A").End(xlUp).Row
        For i = 1 To LastRow
        If Cells(i, 2).Value = "PM" Then Cells(i, 1).vlaue = Cells(i, 1).vlaue + 10
        Next i
        End

        '
        End Sub
    InformationsquelleAutor Balinti
  3. 0

    Dies ist ein weiterer Weg, dies zu tun. 

    Option Explicit

Sub Add()
    Dim rData As Range
    Dim r As Range

    Set rData = Cells(1, 1).CurrentRegion.Columns("B").Cells

    For Each r In rData
        If UCase$(r.Value) = "PM" Then
            r.Offset(, -1).Value = r.Offset(, -1).Value + 12
        End If
    Next r
End Sub
    • Tut UCase$(r.Value) nehmen r.Value und mit Gewalt in einen string? (In anderen Worten, was ist der $ tut es)?
    • UCase ist eine Funktion, die einen Wert in den Oberen Fall. Dies ist der generische Typ, wenn Sie fügen Sie die $ (UCase$), dann bedeutet es, dass speziell für string-Werte und der code wird schneller ausgeführt.
    InformationsquelleAutor
Schreibe einen Kommentar