W języku VBA, jak zwrócić tablicę/lub pisać do komórek za pomocą funkcji?

Question

Stosując tę ​​bardzo prostą funkcję:

Function WriteArray() as Variant 
Dim array(0 To 2) 
array(0) = "A" 
array(1) = "B" 
array(2) = "C" 
WriteArray = array 
End Function 

Spodziewałem się zobaczyć w wyniku całą tablicę w arkuszu kalkulacyjnym Excel, ale nie o to chodzi: mam tylko pierwszy łańcuch. Wiem, że jest trick, aby pokazać całą tablicę w arkuszu kalkulacyjnym (wybierając zakres komórek z formułą + F2 + CTRL + SHIFT + ENTER), ale wolałbym, aby VBA poradził sobie z tym wszystkim.

Próbowałem również użyć zmiennej Application.Caller, aby pisać bezpośrednio w zasięgu "Caller", ale kod zepsuje się.

Bardzo dziękuję za pomoc!

EDIT: Oto kolejny kod próbowałem użyć:

Function WriteArray() As Variant 
    Dim arr(0 To 2) 
    arr(0) = "A" 
    arr(1) = "B" 
    arr(2) = "C" 
    WriteArray = arr 
    Dim StartRow, i As Integer 
    For i = 0 To UBound(arr) 
     Range("A" & i).Value = arr(i) 
    Next 
End Function 

Łamie w wierszu "Range (" A "& i) .Value = arr (i)". Czy mój Excel jest zepsuty ?!

Answer 1

Poniższy kod zapisuje tablicy do zakresu komórek pięknie:

Function WriteArray() As Variant 
    Dim AbcList(0 To 2) as Variant 
    AbcList(0) = "A" 
    AbcList(1) = "B" 
    AbcList(2) = "C" 
    WriteArray = AbcList 
End Function 

Function WriteArrayToSpreadsheet() 
    Dim MyArray As Variant 
    MyArray = WriteArray() 

    Dim StartRow, i As Integer 
    StartRow = 1 
    For i = 0 To UBound(MyArray) 
     Range("A" & i + StartRow).Value = MyArray(i) 
    Next 
End Function 

Mając na uwadze powyższe, chciałbym, aby zobaczyć tę część kodu, gdzie jesteś rzeczywiście próbuje dostać się na arkusz kalkulacyjny, a nie miejsce, w którym tworzysz tablicę. Wtedy mogę ci pomóc!

Answer 2

Nie można pisać do komórek, które nie wywołują, bezpośrednio z funkcji arkusza kalkulacyjnego w programie Excel.

Jeśli chcesz użyć funkcji array (za pomocą Shift-Ctrl-Enter) trzeba zmienić swój kod do:

Function WriteArray() As Variant 
    Dim arr(0 To 2, 0 To 1) 
    arr(0, 0) = "A" 
    arr(1, 0) = "B" 
    arr(2, 0) = "C" 
    WriteArray = arr 
End Function 

Jeśli chcesz napisać poza dzwoniących komórek będzie trzeba zaimplementować jakąś formę wywołania zwrotnego, która wykorzystywałaby automatyzację do zapisywania w innych komórkach. Jest to o wiele bardziej skomplikowane i znacznie bardziej podatne na złamanie!

Answer 3

Najlepszym obejście zrobiłem do tej pory było stworzenie procedury uzyskać odwołanie do zakresu i swoją tablicę i użyć go jako punktu początkowego, aby pokazać swoje dane poziomo lub pionowo ...

W następujący sposób:

Sub LoadArray(ByRef oRange, ByRef vArray) 
    Dim I 
    For I = 0 To UBound(vArray) 
     oRange.Offset(I, 0).Value = vArray(I) 
    Next 
End Sub 

'How to call: 
Dim anyArray 
anyArray = Array(1,2,3) 

Call LoadArray(Range("anyRange"), anyArray) 

Mam nadzieję, że to pomaga.

Answer 4

Sekretem jest zdefiniowanie dwuwymiarowej tablicy. Dwa wymiary tablicy to po prostu zakres, który należy zdefiniować dla zbioru danych. Pierwszy wymiar tablicy to przesunięcie wiersza, a drugi wymiar to przesunięcie kolumny.

w was przykład drugi wymiar jest nie tylko „używane”:

Sub Ente() 

    Dim myArray(0 To 3, 0) As String 
    myArray(0, 0) = "A" 
    myArray(1, 0) = "B" 
    myArray(2, 0) = "C" 

    Range("B7:B" & UBound(myArray) + 6) = myArray 

End Sub 

Tak, nie pętle konieczne! Prosto i szybko.