VBA işlevi bir <strong>işlevi sonucu/yazdırmak hücre aralığına içine bir dizi yazmalı</strong> yazmak istiyorum etkin hücredeki

Question

yılında dizi sonucunu yazdırmak için.

etkin hücre birinci eleman olmalı ve aşağıda bir sonraki hücre ikinci (ve benzeri) olduğu. Yani, örneğin, şu anki aktif hücrem B2 ise, aşağıdaki görüntüde istenen sonuç benzer olmalıdır.

Kodum aşağıda sadece Debug.Pring çalışır ama sadece aslında excel sayfasında olmasını nasıl onu anlamaya olamaz.

Function ShowResult() 

Dim strArray() As String 
Dim result As String 
result = "Maybe I think too much but something's wrong" 
strArray = Split(result, " ") 

Dim StartRow, i As Integer 
StartRow = 1 

For i = 0 To UBound(strArray) 
    Debug.Print strArray(i) 
    'Range("A" & i + StartRow).Value = strArray(i) <--I tried even with this, didn't work! 
Next 
End Function 

Answer 1

Sub ShowResult() 

Dim strArray() As String 
Dim result As String 
result = Application.InputBox("enter string") 

strArray = Split(result, " ") 

For I = 0 To UBound(strArray) 
    Debug.Print strArray(I) 
    Cells(I + 1, 1).Value = strArray(I) 'this puts in in column A. change column here or even prompt user for it? 
Next 

End Sub 

Answer 2

biraz sizin Fonksiyonu değiştirin:

Function ShowResult() As Variant 

Dim strArray() As String 
Dim result As String 
result = "Maybe I think too much but something's wrong" 
strArray = Split(result, " ") 

For i = 0 To UBound(strArray) 
    Debug.Print strArray(i) 
    'Range("A" & i + StartRow).Value = strArray(i) <--I tried even with this, didn't work! 
Next 

ShowResult = Application.Transpose(strArray) 
End Function 

O zaman bütün dizeyi kapsayacak yeterli hücreleri seçmek gerekir kullanırken:

Sonra formülü yazın:

=ShowResults() 

o dizi formülünün yapmak için Ctrl-Shift-Enter

Hit: formül etrafında {} koyacağız düzgün excel yapılırsa

.

Answer 3

Ya da, `tek seferde dönüş dizisini doldurmak ve belki de ... Bir dizi formülü kullanılarak diyoruz ..

Option Explicit 

Function ShowResult() As Variant 

Dim strArray() As String 
Dim Result As String 
Dim i As Integer 

Result = "Maybe I think too much something's wrong" 
strArray = Split(Result, " ") 

ReDim vTemp(LBound(strArray) To UBound(strArray), LBound(strArray) To LBound(strArray)) As String 
For i = LBound(strArray) To UBound(strArray) 
    vTemp(i, LBound(strArray)) = strArray(i) 
Next 
ShowResult = vTemp 

End Function