Array aus Bereich in Excel VBA

Nun, ich habe schon zu kämpfen mit dem bisschen code und kann nicht scheinen zu bekommen, um es ...
Ich versuche, ein array aus einem Bereich von Zellen, die array-jedoch zeigt sich bis zu 1 element breit.

Nun, hier ist der code: 

Dim item As Variant
MsgBox Range("D19:H19").Count    
item = Range("D19:H19").Value
MsgBox LBound(item) & " " & UBound(item)

gemäß meinem Verständnis Element enthalten sollte, die ein 2D-array... aber ich bin immer zu folgendem Ergebnis
1. MsgBox Drucke 5
2. MsgBox Drucke 1 1

Was mache ich falsch?

  • Ich bin kein vba-Experte, aber der Wert einer Reihe (oder ein array) scheint merkwürdig zu sein. Ist es die Rückkehr der erste Wert der Reihe?
  • In der Regel VBA zurückgeben würde ein 2D-array mit Zeilen-Werte der 1. dimension und die Werte in der Spalte die 2. dimension , aber hier Suche ich eine Strecke, die hat 5 Zellen alle in einer Zeile, also ich bin mir nicht ganz sicher, ob es ein 1d oder 2d array wird zurückgegeben...
  • und ja, seine Rückkehr wird nur der erste Wert der Reihe... irgendwelche Ideen, warum es ist, das zu tun?!
  • Es eigentlich nicht geben den ersten Wert des Bereichs. Wählen Sie eine 2D-Bereich von Zellen, und drücken Sie Tab mehrmals. Sie werden sehen, eine gewählte Zelle wird markiert. Das ist die Zelle Value gibt den Inhalt.
InformationsquelleAutor Kevin Boyd | 2009-10-10
  1. 11

    Das problem ist in der LBound-und UBound -

    jtolle war korrekt über die LBound-und UBound.

    LBound(item, 2)

UBound(item, 2)

    Jedoch, Element darf nicht gedimmt werden, da ein array (ein Fehler).

    Ich denke, das ist, was Sie wollen

    Dim item As Variant
MsgBox Range("D19:H19").Count
item = Range("D19:H19").Value

MsgBox LBound(item, 2) & " " & UBound(item, 2)

For i = LBound(item, 2) To UBound(item, 2)
  MsgBox item(1, i)
Next
    • Das ist richtig. Mein edit war gemeint, beschreiben die form des Arrays zurückgegeben, indem man die Value-Eigenschaft des Range-Objekt und setzen es im Artikel. I war nicht die beabsichtigen, vorschlagen, dass der Artikel sollte erklärt werden, wie ein array, nur dass einmal zugewiesen, es würde gleich Aussehen, wie eine variable, die erklärt worden war, als solche.
    • Funktioniert wie ein Charme! Ich wusste immer noch nicht verstanden, was ich falsch mache, ich don ' T scheinen zu verstehen, dass die array-Konzepte in VBA..
    InformationsquelleAutor
  2. 2

    Ihrem Element sollte enthalten eine 2-D-array als erwartet. Wenn Sie kleben Sie einen Haltepunkt im code und schau auf die kleinen "Locals" - Fenster im VBA-editor, Sie sollten sehen, dass. Ihre Anrufe LBound und UBound sind immer die Grenzen in der ersten dimension. Wenn Sie anrufen Lbound(Element,2) und UBound(Element,2), Sie sollten get 1 und 5, als Sie erwarten.

    BEARBEITEN:
    Das heißt, sobald du das gemacht hast Zuordnung, Element Aussehen würde, wie etwas, das Sie haben könnte, erklärt:

    Dim Element(1 1, 1 5)

    Einer der Dämonen der VBA-Programmierung ist, dass arrays können beliebige untere Schranken. Also all Ihr code muss sich dessen bewusst zu sein.

    • Ok, prüfen und halten Euch auf dem Laufenden!...
    InformationsquelleAutor jtolle
  3. 1

    Richtig, wie Sie ist. Auch wenn Sie wählen Sie eine Reihe von Zellen, haben Sie immer noch die option zur Auswahl einer Zelle aus dem array (und Schritt z.B. mit tab durch die Elemente dieses Arrays)

    .Value

    bekommt man nur die Inhalte der aktuell single-die ausgewählte Zelle ein.

    wenn Sie möchten, dass die Aufzählung der array, können Sie rufen Sie die .Cells()-Methode der Range-Objekt

    Unter der Annahme, dass D19 bis H19 enthalten "a" durch "e" bzw. den Aufruf

    Range("D19:H19").Cells(2)

    zurück "b". Beachten Sie, dass dies ist ein eins-basiertes array und kann 2-dimensional. Cells() dauert höchstens 2 Parameter angeben, die inneren offset von der Auswahl die Herkunft.

    hoffe, dass klärt... Grüße

    • Das code-snippet hier support.microsoft.com/kb/213798 in der "nehmen Werte aus einem Arbeitsblatt und füllen des Arrays" Abschnitt zeigt einen ähnlichen code, so Frage ich mich, warum mein code nicht funktioniert!
    • Auch getestet habe ich diese auf Excel 2k3. Möglicherweise, dies ist aufgrund der Tatsache, dass der Wert vielleicht 2-dimensional... lbound nimmt einen zweiten parameter, der ausdrückt, als das, was wir nennen dimension. Ich bin mir nicht mehr sicher, welche parameter entspricht dem Wert. Was bedeutet VarType(Range("D19:H19").Value) zurück? Es sollte vbArray... Du könntest versuchen Ubound(item,1) statt Ubound(1)
    • nun habe ich versucht Ubound(Artikel, 1) aber ohne Erfolg.. ich bekomme immer noch die 1 1 von der 2. MsgBox ausgegeben.. Und was (Range("D19:H19").Wert) zurückgeben sollte... ich glaube, ich bin mir nicht wirklich sicher..ich bin gerade code-samples..
    • hmm seltsam, dann... naja ... der Artikel bezieht sich auf alle Versionen vor 2007, aber nicht 2007 selbst. Daher ist es möglich, dass es funktioniert jetzt anders. Wie wäre die Lösung mit .Zellen(Anzahl) ? ... Noch ein weiterer Punkt: Versuchen Sie, die Deklaration Element mit item() statt item
    • Mit .Zellen(Anzahl) habe ich Durchlaufen alle Zellen im Bereich in einer for-next-Schleife, oder?... gut, wenn es keine andere Wahl, die ich nicht Verstand, werde für diese Lösung...solange es funktioniert konsequent...
    • ja müssten Sie, leider. if Range("D19:H19").Wert = yourArray funktioniert nicht, ich sehe keine andere Lösung. Am Ende, Excel tut nichts anderes, außer, dass es läuft so viel schneller, weil es kompiliert wird in der Excel-grundlegende Funktionen

    InformationsquelleAutor Atmocreations
  4. 1

    Versuchen Sie dies:

    Dim item As Variant
MsgBox Range("D19:H19").Count
item = Application.Transpose(Range("D19:H19").Value)
MsgBox LBound(item) & " " & UBound(item)
    • Ich dachte, "Transponieren" war, bedeutete für die Spalten... will check this out trotzdem obwohl...
    • FYI, transponieren ist nicht verfügbar in Excel 2003.
    • Das ist lustig, weil das ist, wo ich schrieb den code.
    InformationsquelleAutor JimmyPena
  5. 0

    wenn Sie wollen ein 1D-array, nehmen Sie es für eine IN-Klausel, zum Beispiel, sollten Sie transponieren Sie Ihre Auswahl.
    Ich habe festgestellt, Sie zu transponieren, die zweimal für eine Zeile, sobald für eine Spalte mit Daten wie diesen:

    Dim rngRow As Range, rngColumn As Range

Set rngRow = Sheets(1).Range("A1", "Z1")
Set rngColumn = Sheets(1).Range("A1", "A20")

Dim arrRowValues, arrColValues
arrRowValues = WorksheetFunction.Transpose(WorksheetFunction.Transpose(rngRow))
arrColValues = WorksheetFunction.Transpose(rngColumn)

Dim numList As String, stringList As String
numList = Join(arrRowValues, ",")
stringList = "'" & Join(arrColValues, "','") & "'"

    lohnt sich ein spielen.

    InformationsquelleAutor Nick
Schreibe einen Kommentar