excel-vba-wie zu ändern, array-Inhalt durch Referenzierung von array-Namen

Ich versuche, ändern Sie das array namens arraySrc in der folgenden Art und Weise:

Dim arraySrc(0 To 1) As Integer

arraySrc(0) = 1
arraySrc(1) = 2
Dim arrayTmp

arrayTmp = arraySrc
arrayTmp(0) = 0
arrayTmp(1) = 1

Eigentlich will ich mit einem Namen wie ein handle zu ändern, um mehrere arrays einzeln durch Fall, ich habe zum Beispiel eine Funktion zur Rückgabe der array-name, ich will dann legen Sie das zurückgegebene array-Namen, um arrayTmp, dann ändern arrayTmp direkt mit den format-arrayTmp(0)=0 eg, in der Hoffnung zu ändern, um das original-array

Jedoch durch die Verwendung von Variante funktioniert nicht.
Kann jemand bitte lassen Sie mich wissen, wie diese umzusetzen ist?

  • Dim arrayTmp ist Variante geben bye Standard-als Sie noch nicht explizit deklariert den Datentyp. Was nicht funktioniert? Was Sie tun, ist die Veränderung der Werte in arrayTmp.
InformationsquelleAutor Max | 2013-02-04
  1. 2

    Wenn Sie möchten, ändern Sie die Werte in arraySrc finden Sie die Indizes dieses Arrays.

    z.B. was Sie bereits getan haben.

    arraySrc(0) = 1
arraySrc(1) = 2

    Nur weil Sie kopieren arraySrc zu arrayTmp letzteres ist nicht zu halten den Verweis auf arraySrc.

    Dies ist jedoch möglich, wenn Sie übergeben eine Referenz arraySrc über eine funtion s-parameter.

    z.B. 

    Option Explicit

Sub myArrays()
Dim arraySrc(0 To 1) As Integer
    arraySrc(0) = 1
    arraySrc(1) = 2
    '-- the referencing
    arrayReference arraySrc
End Sub

Function arrayReference(ByRef varr() As Integer) As Variant
    If Not IsVarArrayEmpty(varr) Then
        varr(0) = 0
        varr(1) = 1
    End If
    arrayReference = varr
End Function

'--check for empty array - additional
Function IsVarArrayEmpty(anArray As Variant) As Boolean
    Dim i As Integer

    On Error Resume Next
        i = UBound(anArray, 1)
    If Err.Number = 0 Then
        IsVarArrayEmpty = False
    Else
        IsVarArrayEmpty = True
    End If
End Function

    excel-vba-wie zu ändern, array-Inhalt durch Referenzierung von array-Namen

    InformationsquelleAutor bonCodigo
  2. 2

    Meinst du so etwas? Die ByRef-argument bedeutet, dass die Quell-Arrays, die als parameter übergeben wird, auch geändert werden:

    Sub test()
Dim arraySrc(0 To 1) As Integer
arraySrc(0) = 1
arraySrc(1) = 2
PassByRef arraySrc
Debug.Print arraySrc(0)
Debug.Print arraySrc(1)
End Sub

Sub PassByRef(ByRef arrayTmp() As Integer)
arrayTmp(0) = 0
arrayTmp(1) = 1
End Sub
    • +1 dafür 😀 nur aktualisiert die Seite, um zu sehen, verkaufen.
    • Eigentlich will ich mit einem Namen wie ein handle zu ändern, um mehrere arrays individuell von Fall, zum Beispiel, ich brauche eine Funktion zur Rückgabe der array-Namen, dann den Rückgabewert auf arrayTmp, dann ändern arrayTmp, in der Hoffnung zu ändern, um das ursprüngliche array
    • Ich bin immer noch nicht ganz klar aus deinem Kommentar was die ein-und Ausgänge werden würde. Vielleicht solltest du Bearbeiten Sie Ihre ursprüngliche Frage, um besser zu reflektieren, was Sie versuchen zu tun. Ich glaube, man kann die Verwendung des Begriffs @boncodigo und ich skizziert haben, es zu tun, kann aber nicht sicher sein.
    • Es ist, wie ich einen Zeiger auf das array. Ich will nur manipulieren, array-Inhalt der durch den Zeiger, egal, welches Feld der Zeiger zeigt. Ist das klar?
    • C-Zeiger in VBA? Sie können übergeben, um eine Referenz auf die integer-array an Funktionen über das ByRef-Schlüsselwort,das genau auf die oben genannten Antworten. Der AddressOf-operator geben Sie den integer-Adresse einer variable, aber VBA ist nicht in der Lage, etwas zu tun; es ist nur nützlich für die Weitergabe an einen DLL.
    InformationsquelleAutor Doug Glancy
Schreibe einen Kommentar