VBA konvertieren, range to array und format Datum

Kämpfe ich mit einer Umstellung auf array in VBA :

Dim list As Range
Set list = Range(series, series.End(xlDown))
list.Select
Dim table() As Variant
Set table = list.value

Mein Verständnis ist, dass value gibt ein array zurück, richtig ? Ich verstehe nicht, warum VBA sagt mir, dass ich "can't assign to array".

Meine list Reihe sieht aus wie das in Excel zu Select, und ich Streben an, dass die, die als array, so dass ich formatieren kann meine Termine mit so etwas wie Format(table.Rows(i).Columns(1).value, "yyyy-mm-dd") looping auf meinem Tisch.

02-Sep-09   1.00
18-Sep-09   1.00
16-Oct-09   1.00
20-Nov-09   1.00
18-Dec-09   1.00
19-Mar-10   1.00
18-Jun-10   1.00

Durch die Art und Weise, ist es möglich, die Tabelle zu ändern statt ?

Dank !

InformationsquelleAutor BuZz | 2011-11-30

4

Gibt es eine Reihe von problem hier.

Problem 1
```
Set table = list.value
```
Tabelle ist kein Objekt, also kann man nicht einstellen können. Versuchen:
```
table = list.value
```
Problem 2

Serie ist ein VBA-Schlüsselwort im Zusammenhang mit Diagrammen. Bitte wählen Sie einen Namen, wie MyWSTable, was bedeutet, dass nichts von VBA.

Problem 3

Einem Arbeitsblatt name ist nicht aus sich selbst eine Reihe aus. Versuchen:
```
Dim Table() As Variant
Table = Names("MyWSTable").RefersToRange.Value
```
Hinweis: Sie müssen keine variable list noch brauchen Sie, um den Bereich auszuwählen.

Antwort auf die Formatierung Frage

Dem folgenden code wird formatieren Sie Ihre Termine:
```
For inxrow = 1 To UBound(Table, 1)
  For inxcol = 1 To UBound(Table, 2)
    Table(inxrow, 1) = "ddd d mmm yyyyy"
    Table(inxrow, 2) = ""
  Next
Next

Names("MyWSTable").RefersToRange.NumberFormat = Table
```
- Zusätzliche Warnung. Verschieben von Daten von einem Arbeitsblatt in ein array dann wieder zurück ist das sicher nicht, es sei denn, Sie verwenden die amerikanischen Daten. Das verschieben von Blatt-array ist OK. Aber, auf der Zug zurück, wenn das Datum interpretiert werden kann, wie eine amerikanische Datum wird es werden. Also "16 Okt 2009" bleiben unverändert, weil "am 16.10.2009" ist keine gültige amerikanische Datum, aber "2. Sep 2009" wird zu "9 Feb 2009". Sie muss konvertieren von Daten, um eindeutige Zeichenfolgen vor dem kopieren der array oder das Arbeitsblatt.
- ist dies nicht der Fall, wenn Sie über die numerische Date Daten Typ; in diesem Fall wird auch das Datum wird dargestellt als ein IEEE-double. Und wie kamst du auf die Termine, die Geburtstage von meinem Vater und meiner Mutter im Gesetz?
- Ich entdeckte dieses problem vor einigen Jahren, als ich das erste mal versucht in Excel VBA. Es dauerte eine Weile bis ich realisierte, dass viele Termine in meiner Datenbank falsch waren und es brachte mich dann sehr viel experimentiert, bevor ich erkannte die Ursache. Ich hatte angefangen mit Datum-Variablen, aber ich habe versucht, andere Formate, aber die einzige zuverlässige Methode, die ich gefunden, bei dem ein Datum in einer Zelle zu nutzen, um die strings im format ttmmjjjj. Ich habe den gleichen Ansatz seit so ist es möglich, dass dieser Fehler wurde behoben in einer späteren version von Excel, ohne mich zu bemerken. Haben Sie zu Fragen, jerome G, wo er bekam die Daten.
- Ich ließ ein "m" aus dem format-string in meinem vorherigen Kommentar. Ich meinte "ddmmmyyyy". Zum Beispiel: 2Dec2011.
- SQL (mindestens JET-SQL) verlangt die amerikanische Datums-format für Datums-Literale, das würde erklären, warum die Datenbank Daten falsch waren, aber wenn Sie ein VBA-Datum-Typ-Wert, der Wert ist rein numerisch und nicht einer Kultur-spezifischen format. Die Kultur-spezifischen format kommt nur ins Spiel, wenn Sie die Konvertierung zu einem string (z.B. für die Anzeige) oder aus einem string (z.B. analysieren von Eingaben).
- Auf der Suche durch meine Tagebücher, die ich sehen, dass ich auf dieses problem, die Mitte 2003. Vermutlich war pre-Excel 2003. Ich kann nicht duplizieren heute das problem, also entweder das ist bug, der wurde behoben, oder es war mein Fehler bei der Programmierung. Normalerweise versuche ich jeden Kommentar oder Antwort, bevor ich es schreiben. Ich habe den Fehler gemacht, nicht geprüft bei dieser Gelegenheit, weil ich sicher war, stieß ich auf ein posting (welches ich jetzt nicht finde) über dieses Thema innerhalb des letzten Monats. In Zukunft werde ich weiterhin auf meine Regel zu überprüfen, alles. Werde ich auch überdenken, alle meine date processing-code, um zu sehen, ob ich es vereinfachen.
InformationsquelleAutor Tony Dallimore
2

Können Sie entfernen Sie Ihre wählen Sie: list.Select

Sicher sein, bekommen Sie keine Fehler bei der Zuordnung einer Reihe zu einem array, solltest du besser deklarieren Sie das array als variant:
```
Dim table As Variant
table = Range(series, series.End(xlDown)).Value
```
InformationsquelleAutor JMax
1

Diese Fehlermeldung knallen weil Sie mit SET zum füllen des Arrays. Drop EINGESTELLT werden und es sollte laden.

Können Sie fil direkt das array wie folgt:
```
Dim table() As Variant
table=Range(series, series.End(xlDown))
```
Omiting die Wählen Sie Schritt macht Ihren code sicherer und schneller.

Leider, Sie können nicht geladen werden die Werte direkt als Termine. Sie haben nach loop throu jedes Element des Arrays und wenden Sie in Datum.

InformationsquelleAutor CaBieberach
0

Du gehst über dieses falsch. Sollten Sie die NumberFormat - Eigenschaft des range angeben, um die Anzeige format. So etwas wie dieses:
```
Range("A:A").NumberFormat = "yyyy-mm-dd"
```
InformationsquelleAutor phoog

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.