Visual BasicアプリケーションExcelでの継続的な分割テキスト

Question

ここに、Active Xコントロールのテキストボックスとボタンを使用した分割テキストのサンプル出力があります。あなたがここで見ることができるように、 "Hello World！"テキストボックスに入力され、出力は分割されたテキストでした。

しかし、テキストボックスにデータを入力するたびに、分割されたテキストが連続して表示されます。つまり、テキストボックスに入力した履歴データがセルに保持されます。

テキストボックスに新しいデータを入力すると、分割されたテキストが表示されますが、保存されないためです。

Sub SplitText() 
    Dim TextString As String, WArray() As String, Counter As Integer, Strg As String 

    TextString = TextBox1 
    WArray() = Split(TextString, " ") 

    For Counter = LBound(WArray) To UBound(WArray) 
     Strg = WArray(Counter) 
     Cells(Counter + 2, 1).Value = Trim(Strg) 
    Next Counter 
End Sub 

：私はほとんどの発生をカウントした後、歴史的分割さテキストのすべてを使用して、それをカウントしますので、私は、私は私のプロジェクト

の説明グラフは、ここに私のコードだようになります。この出力をしたいです

Answer 1

あなたは

をループせずにこれを行うことができます

編集：列

Sub SplitText() 
    Dim WArray As Variant 

    WArray = Split(TextBox1, " ") 
    With Sheets("DatabaseStorage") 
     .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(UBound(WArray) + IIf(LBound(WArray) = 0, 1, 0)) = Application.Transpose(WArray) 
    End With 
End Sub 

Answer 2

Sub SplitText() 
Dim TextString As String, WArray() As String, Counter As Integer, Strg As String 
TextString = TextBox1 
WArray() = Split(TextString, " ") 

For Counter = LBound(WArray) To UBound(WArray) 
    Strg = WArray(Counter) 
    Cells(Counter + 2, 1).Value = Trim(Strg) 
Next Counter 

Sheets("Original values").Range("A" & Sheets("Original values").Rows.Count).End(xlUp).Offset(1).Value = TextString 

End Sub