命令按鈕點擊Userform輸入文本框到單元格，然後循環每列點擊

Question

我對VBA很新。我創建了一個帶有文本框的用戶窗體，它需要將文本框數據傳輸到一系列單元格。我需要它的範圍是Columns，例如C8：AG8，所以文本框中的數據一旦進入並單擊將循環到下一列以重複該過程。我需要循環從列到列，而不是行到列。謝謝。

到目前爲止，我已經下面然而，這僅填充一次：

Private Sub CommandButton1_Click() 
    Range("C8") = TextBox1.Value 
    Range("C9") = TextBox2.Value 
    Range("C10") = TextBox3.Value 
    Range("C11") = TextBox4.Value 
    Range("C12") = TextBox5.Value 
    Range("C13") = TextBox6.Value 
    Range("C14") = TextBox7.Value 
    Range("C15") = TextBox8.Value 
    Range("C16") = TextBox9.Value 
    Range("C17") = TextBox10.Value 
    Range("C18") = TextBox11.Value 
    Range("C19") = TextBox12.Value 
    Range("C20") = TextBox13.Value 
    Range("C21") = TextBox14.Value 
    Range("C22") = TextBox15.Value 
    Range("C23") = TextBox16.Value 
    Range("C24") = TextBox17.Value 
    Range("C25") = TextBox18.Value 
End Sub 

Answer 1

像這樣的東西可能會做到這一點：

Private Sub CommandButton1_Click() 

Dim i As Integer 

For i = 3 To 33 'Columns C to AG 

    Cells(8, i) = TextBox1.Value 
    Cells(9, i) = TextBox2.Value 
    Cells(10, i) = TextBox3.Value 
    Cells(11, i) = TextBox4.Value 
    Cells(12, i) = TextBox5.Value 
    Cells(13, i) = TextBox6.Value 
    Cells(14, i) = TextBox7.Value 
    Cells(15, i) = TextBox8.Value 
    Cells(16, i) = TextBox9.Value 
    Cells(17, i) = TextBox10.Value 
    Cells(18, i) = TextBox11.Value 
    Cells(19, i) = TextBox12.Value 
    Cells(20, i) = TextBox13.Value 
    Cells(21, i) = TextBox14.Value 
    Cells(22, i) = TextBox15.Value 
    Cells(23, i) = TextBox16.Value 
    Cells(24, i) = TextBox17.Value 
    Cells(25, i) = TextBox18.Value 

Next i 

End Sub