Array in excel-vba

Ich eine array-Liste in vba, deshalb habe ich eine Variante erklärt in excel vba wie: 

Dim Students(10) as variant

Nun möchte ich das speichern von Rufnummern in der Studenten-Liste. die zahlen sind nicht fortlaufend. Einmal wie:

Students(2,7,14,54,33,45,55,59,62,66,69)

Wie kann ich dies in vba? auch wie kann ich Zugang zu der Liste posten?

InformationsquelleAutor user793468 | 2012-01-26
  1. 14

    Schülern muss erklärt werden, als ein dynamisches array. Das heißt, ein array, dessen Grenzen verändert werden kann. Dim Students(10) gibt ein array, dessen Grenzen nicht geändert werden, und kann nicht geladen werden aus einem array. 

    Dim Students() As Variant

    Laden Studenten:

    Students = Array(2,7,14,54,33,45,55,59,62,66,69)

    Zugriff auf die Elemente:

    Dim Inx As Long

For Inx = LBound(Students) to UBound(Students)
  Debug.Print Students(Inx)
Next

    LBound (Lower bound) und UBound bedeuten, dass die for-Schleife stellt sich auf die tatsächliche Anzahl der Elemente bei den Schülern.

    • +1 Schöne Aufgabe! Beachten Sie auch, dass arrays sind null-gebunden standardmäßig.
    • Ich weiß, aber irgendwie, es sei denn, ich habe ausdrücklich erklärt, die untere Schranke, die ich nicht Vertrauen, es wird immer null sein.
    InformationsquelleAutor Tony Dallimore
  2. 5

    Dies ist zu Komplex für Sie jetzt, und Sie werden wahrscheinlich nie in eine situation, wo Sie brauchen werden, aber:

    Benutze ich folgende Methode für die mehr-Speicher-effiziente arrays (Variante verwendet, weil die meisten Speicher von allen Variablentypen), während immer noch den Komfort deklarieren der array-Inhalt in einer Zeile. Zu Ihrem Beispiel zu Folgen:

    Dim Students() As Long
Dim Array2() As String

Array2() = Split("2,7,14,54,33,45,55,59,62,66,69", ",")

ReDim Array1(0) As Long
For Loop1 = LBound(Array2()) To UBound(Array2())
    ReDim Preserve Array1(0 To (UBound(Array1) + 1)) As String
    Array1(Loop1) = Array2(Loop1)
Next Loop1
ReDim Preserve Array1(0 To (UBound(Array1) - 1)) As Long

Erase Array2

    Ein Beispiel für den Zugriff auf, es wäre so etwas wie:

    For Loop1 = LBound(Students) to UBound(Students)
    Msgbox Students(Loop1)
Next Loop1

    Lernte ich von hier: http://www.vbforums.com/showthread.php?669265-RESOLVED-VBA-Excel-Assigning-values-to-array-in-a-single-line&p=4116778&viewfull=1#post4116778

    • Beachten Sie, dass Sie nur das tun müssen, für nicht-string-arrays, denn für string-Sie können einfach tun arrStrings() = Split("Item1, Item2, Item3", ", ",,vbtextcompare) oder was auch immer.
    InformationsquelleAutor puzzlepiece87
  3. 3

    Können Sie das hinzufügen von Werten zu einem Array wie diesem...

    For i = 1 to 10
    Students(i) = i
Next i

    Oder so

    Students = Array(2,7,14,54,33,45,55,59,62,66,69)

    Dann können Sie auf die Werte in der gleichen manor. Hinweis: wenn Sie die zweite option, die Sie benötigen, deklarieren Sie es wie folgt:

    Dim Students() As Variant
    InformationsquelleAutor Skytunnel
  4. 0

    Gut,
    Das hängt davon ab, wie würden Sie liefern die Werte für das array, würden Sie die Werte aus Arbeitsblatt.Bereich oder aus TextBox oder ListBox , Aber grundsätzlich würde der code etwa so lauten :

    Dim students(10) as Integer
Dim Carrier as Integer
For i = LBound(students) To UBound(Students)
     'some code to get the values you want to from whatever is your source
     'then assign the value to Carrier

     students(i)=Carrier
Next i

    Es ist keine gute Praxis zu dim array als Variant, wenn Sie wissen sicherlich, dass Sie verwenden nur Ganzzahlen, wie es wird Essen eine Menge von Speicher, die nicht benötigt in den ersten Platz.
    Sie sollten sich auch bewusst sein, die Grenzen der zahlen, die zugeordnet werden, wenn diese über die Integer Grenze dann sollten Sie Double oder Float.
    Dies ist meine erste Teilnahme an der site,Cheers.

    InformationsquelleAutor Mohammed Ehsan
Schreibe einen Kommentar