Excel VBA用户表单——使用同一个表单生成连续数据

Question

我对 VBA 还很陌生。我想创建一个用户表单，允许用户多次使用同一个表单。每次使用表单时，用户输入的任何数据都会添加到一个变量（相同的变量或多个不同的变量）中。当用户输入所有数据后，他们可以点击提交，表单将按顺序吐出所有数据。

示例： 带有文本框和 2 个命令按钮的用户表单，Next 和 Submit。 用户输入1，点击Next。用户输入2，点击Submit。 用户表单打印出1, 2。

我该怎么做呢？这甚至可能吗？

Answer 1

这是一个快速 POC。考虑一个带有文本框和两个命令按钮的普通用户表单。我根本没有更改这里的默认名称。刚刚添加了一个带有 textbox1、commandbutton1 和 commandbutton2 的用户表单：

CommandButton1 提交，CommandButton2 退出用户表单（例如，当用户完成提交时单击）。

按照您的描述进行这项工作的代码。这在用户表单的代码页中。

'declare a string array to hold the submissions from textbox1
Private submissions() As String

'Code to run when the form activates
Private Sub UserForm_Activate()
    'When this userform is first initialized set up the array
    'as a one dimensional array with a single element
    ReDim submissions(0 To 0)
End Sub

'Code to run when the commandbutton1 is clicked
Private Sub CommandButton1_Click()
    'call the addSubmission sub
    addSubmission
End Sub

'Code to run when the commandButton2 is clicked
Private Sub CommandButton2_Click()

    'add submission one more time
    addSubmission

    'Now Loop through the array and send the values out
    'to the worksheet
    Dim rowCounter As Long
    rowCounter = 1
    For Each submission In submissions
        Sheet1.Cells(rowCounter, 1).Value = submission
        rowCounter = rowCounter + 1
    Next submission

    'Now close the form
    Me.Hide

    'And activate sheet1 for the user to see their submissions
    Sheet1.Activate
End Sub

'addSubmission will add textBox1 value to
'  the submissions array declared at the
'  top of this userform code.
Sub addSubmission()
    'First we have to redim the array to hold the new
    '   submission.
    'But only redim it if this isn't the first submission
    If UBound(submissions) > 0 Or submissions(0) <> "" Then ReDim Preserve submissions(0 To UBound(submissions) + 1)
    submissions(UBound(submissions)) = Me.TextBox1.Value

    'Clear the textbox so the user doesn't have to backspace
    Me.TextBox1.Value = ""
End Sub