用VBA按userform中指定的数字填充

Question

我已经创建了这个UserForm，并且我试图通过在UserForm中指定的主机名的数量来串联AutoFill生成的主机名。例如，如果我需要12个主机名，我在userform中输入12，它会复制生成的主机名12次。(.-FAH34 34-01、FAH34 34-02、FAH34 34-03等.)

这是我目前正在使用的代码和UserForm UserForm图片的图片。

Private Sub CommandButton1_Click()

Dim H As String
Dim X As Long

H = -FAH32 - 1
X = TextBox3.Value

Worksheets("Sheet1").Activate
ActiveCell.Value = TextBox1.Value

Worksheets("Sheet1").Activate
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = TextBox2.Value
ActiveCell.Value = ActiveCell.Value & "-FAH34-01"

Range("R3").Value = X




End Sub

TextBox 1是销售订单。TextBox 2是主机名。TextBox 3是所需主机名的数目。

当前，它在活动单元格中打印销售订单，然后将主机名打印到该单元格下面的单元格中。我想把那个主机的名字按顺序抄下来。就像你抓起细胞右下角的把手然后把它拖下来一样。但是，我想知道是否可以只按UserForm中指定的数量进行复制。

希望这一切都有意义。谢谢你提前提供帮助。

编辑:在阅读了你的答案并修改了代码之后，我让它开始工作了。我确实想知道，在关闭UserForm之后，是否可以在最后生成的主机名之后使单元格处于活动状态。有什么建议吗？

    Sub CommandButton1_Click()
    Dim H As String
    Dim X As Long, i As Long
    
    H = "-FAH34"
    X = Me.TextBox3.Value
    
        ActiveCell.Value = "SO #" & TextBox1
        
        For i = 1 To X
         Application.ActiveCell(i + 2) = TextBox2.Value & "-FAH34-" & Format(i, "00")
        Next i
        
    Unload Me
    
    
    End Sub

Answer 1

试着在下面-

Sub CommandButton1_Click()
Dim H As String
Dim X As Long, i As Long

H = "-FAH34"
X = Me.TextBox3.Value

    Sheets("Sheet1").Range("A1") = Me.TextBox1.Value
    Sheets("Sheet1").Range("A2") = Me.TextBox2.Value
    
    For i = 1 To X
        Sheets("Sheet1").Range("A" & i + 2) = "-FAH34-" & Format(i, "00")
    Next i

End Sub