Ziel suchen mehrere Zeilen - MS-Excel-Makro

habe ich 5028 Zeilen außer der überschrift und 3 Spalten festlegen möchten, wird der Wert 1,7 in der cloumn "C", indem Sie den Wert in der Spalte "B".

Verwendung die Zielwertsuche option ist es möglich, nur für eine Zelle. ich möchte das gleiche zu tun, für 5028 Zeilen, bitte helfen, die Aufgabe zu tun, indem Sie einige makro.

  • Sollte es möglich sein. Haben Sie versucht, zu Experimentieren mit Ihren eigenen Makros? Excel können Sie ein makro erstellen, die automatisch mit der Aufzeichnung Ihrer Aktionen und später können Sie den code Bearbeiten es gemacht.
  • Neugierig... ist dies eine Art von one-way-hash, der würde verhindern, dass Sie nur die Umkehrung der Berechnung, um zu bestimmen, der Wert in Spalte B? I. e., eine einfache Formel? Klingt wie Sie vielleicht nicht brauchen, ein makro oder das "Ziel Suchen" - Funktion.
InformationsquelleAutor davidb | 2012-11-15
  1. 2

    Bustos John wies auf die richtige Idee, hier eine funktionierende Lösung:

    Public Sub Demo()
  Dim rngRow As Range
  For Each rngRow In UsedRange.Rows
    rngRow.Cells(1, 3).GoalSeek Goal:=1.7, ChangingCell:=rngRow.Cells(1, 2)
  Next rngRow
End Sub

    Edit:

    Verwenden ActiveSheet.UsedRange.Rows statt UsedRange.Rows, wenn Sie beabsichtigen, verwenden Sie diese als Makro in ein Modul, nicht als ein von einem Arbeitsblatt oder in einem anderen Bezug zu einem gültigen Bereichs.

    Für Ihr Beispiel, Sie bevorzugen könnte, um zu verwenden: Range("A2:C5028").Rows oder MySheet.Range("A2:C5028").Rows.

    Edit:

    Public Sub Demo()
  On Error Resume Next
  Dim rngRow As Range
  For Each rngRow In ActiveSheet.UsedRange.Rows 
    rngRow.Cells(1, 3).GoalSeek Goal:=1.7, ChangingCell:=rngRow.Cells(1, 2)
  Next rngRow
End Sub
    • hi jook, vielen Dank.. aber ich bin null in vba, ich habe gerade versucht zu kopieren, den code im Modul und ausführen, ich hab 'Objekt erforderlich' Fehler, dann als u sagte, dass ich es geändert activesheet.usedrange.Zeilen, dann bekomme ich ' - Referenz ist nicht gültig Fehler. bitte helfen Sie, wenn möglich, bitte geben Sie mir genaue code, der palaced in das Modul.
    • Hi jook, es hat Super geklappt. ich danke Ihnen sehr.
    • ok, nun, dies wird nicht unterbrechen, aber denken Sie daran, es dauert eine ganze Weile, für 5028 Zeilen. Es sollte funktionieren wie ein Modul-Makro. Wenn Sie es brauchen, um nur für ein bestimmtes Arbeitsblatt oder Bereich, z.B. CodeNameOfYourWorksheet.Range("A2:C5028").Rows - der codename ist nicht das gleiche wie der Arbeitsblatt-name Sie können finden Sie in der excel - google es einfach 😉
    InformationsquelleAutor Jook
  2. 1

    Können Sie ein makro erstellen, das Schleifen und dann wird ein Spektrum-Zielwertsuche - http://msdn.microsoft.com/en-us/library/office/bb209907%28v=office.12%29.aspx

    InformationsquelleAutor John Bustos
  3. 0

    Dies ist guter code. Ich modifizierte es für meine Zwecke, das ist nicht nur eine Spalte, sondern mehrere Spalten. Um meinen code, müssen Sie zuerst wählen (markieren) Sie alle die Zellen, die Sie wollen, GoalSeek (angeschlossen wie in einer Tabelle, nicht getrennte Bereiche). Mein code:

    Sub GoalSeek_To_0()
' Macro created 15 Jun '18 by Benjamin Cohen

On Error Resume Next

Dim row_, col_ As Range
Dim i_, j_ As Integer
' i_ = 1
  j_ = 1

For Each col_ In Selection.Columns
 For Each row_ In Selection.Rows
  row_.Cells(1, j_).GoalSeek Goal:=0, ChangingCell:=row_.Cells(1, j_).Offset(0, -1)
   row_.Cells(1, j_).Value = 1
 Next row_
  j_ = j_ + 1
Next col_

End Sub
    InformationsquelleAutor xcohenx
Schreibe einen Kommentar