Erstellen von Variablen innerhalb einer Schleife

Arbeite ich in VBA und ich wollte wissen, ob es möglich war, zu erstellen und benennen von Variablen innerhalb einer while-Schleife. Mein Ziel ist es, sich durch eine Besondere Spalte in dem Arbeitsblatt, und erstellen Sie die Variablen, deren Werte den text in den Zellen der Spalte.

Idealerweise werden die Variablennamen und Ihre Werte wäre etwas entlang der Linien von:

party1 = "Owner" 
party2 = "Contractor" 
party3 = "Subcontractor"

Und so auf ein so weiter, basierend auf einer Anzahl von Parteien.

Bisher habe ich:

Dim i As Integer, j As Integer
i = 2
j = 1
Do While Cells(i, 7).Value <> ""
    Dim partyName As String
    ' Pulls the text from the worksheet cell
    partyName = Cells(i, 7).Text
    Dim curNum As String
    curNum = CStr(j)
    Dim tempParty As String
    tempParty = "party" & curNum
    i = i + 1
    j = j + 1
Loop

Ich denke, das kommt auf die Frage: Wie mache ich das dann bekommen partyX zu den Variablen name und Wert der variable wird der string gespeichert, in partyName?

Diese scheint, wie es ist, entlang der Linien von dem, was ich Suche, aber es hat nicht ganz meine Frage beantworten. Auch, ich erkenne es möglicherweise Probleme mit den Rahmen dieser Variablen, aber ich kann mir nicht vorstellen, dass es eine andere Möglichkeit, dies zu tun.

Welche Werte sind gespeichert auf partyName?
Ein Array ist, was Sie wollen, Sie ermöglichen party(i) = ".." wo i ist eine Nummer, siehe patorjk.com/programming/tutorials/vbarrays.htm
Man kann nicht create Variablen und benennen Sie diese während der Laufzeit. Sie können ordnen, um ein variant-array, collection oder dictionary-Objekt. Ein Wörterbuch wäre technisch ermöglichen das erstellen von "Namen", aber wahrscheinlich nicht nötig, man könnte einfach ein array statt.
Ich denke, es wäre einfacher, wenn er nur ein 'Select Case' einmal hatte er den Wert der Partei von dem, was ich davon ausgehen ist 'partyName'
partyName speichert einen string (d.h. "Besitzer", "Auftragnehmer", etc.). Ich denke, das array funktioniert. Ich werde auch herausfinden, was ein "Select Case".' Vielen Dank an alle!

InformationsquelleAutor arlederman | 2015-01-05

  1. 1

    WENN Sie brauchen, um einen NAMEN in eine REIHE mit Select Case:

    Dim CurRow As Long, LastRow As Long
LastRow = Cells(Rows.Count, 7).End(xlUp).Row

For CurRow = 1 to LastRow
    partyName = Cells(i, 7).Value
    Select Case partyName
        Case "Owner"
            partyNum = 1
        Case "Contractor"
            partyNum = 2
        Case "Subcontractor"
            partyNum = 3
        Case Else
    End Select
    'Do something with partyNum here
Next CurRow

    Wenn Sie brauchen, um eine ZAHL in einem NAMEN mit Select Case:

    Dim CurRow As Long, LastRow As Long
LastRow = Cells(Rows.Count, 7).End(xlUp).Row

For CurRow = 1 to LastRow
    partyNum = Cells(i, 7).Value
    Select Case partyNum
        Case 1
            partyName = "Owner"
        Case 2
            partyName = "Contractor"
        Case 3
            partyName = "Subcontractor"
        Case Else
    End Select
    'Do something with partyName here
Next CurRow
    Dies ist hilfreich, danke! Es ist ähnlich zu dem, was ich Tue, und ich werde in der Lage sein, den ersten Fall weiter unten im Skript.

    InformationsquelleAutor Chrismas007

Schreibe einen Kommentar