Excel VBA的提问线

我有一个excel文件，有5个连续的单元格，需要用数据填充1列。 我期待创build一个VBA userForm，将通过一系列的问题，以帮助用户input正确的数据。

可以说5个单元格是A1到A5。 一旦调用了用户表单，它应该显示一个问题（标签也许？），一个input数据的文本框，以及一个命令button来移动下一个问题。 一直从A1移动到A2等等，直到询问完成。

有谁知道如何做到这一点？ 我的VB知识是基本的，但我已经试过，并试图无济于事。

提前致谢！

Answer 1

给定一个这样的forms：

你可以设置你的问题在一个数组中，并遍历每一个button，同时设置您的工作表的答案。

Dim i As Integer Dim str(1 To 3) As String Private Sub UserForm_Initialize() i = 1 str(1) = "Question 1" str(2) = "Question 2" str(3) = "Question 3" btnNext.Default = True lblQuestion.Caption = str(i) txtAnswer.SetFocus End Sub Private Sub btnNext_Click() Sheets("Sheet1").Cells(i, 1).Value = txtAnswer.Text i = i + 1 If i = UBound(str) + 1 Then UserForm1.Hide Exit Sub End If lblQuestion.Caption = str(i) txtAnswer.Text = "" txtAnswer.SetFocus End Sub 

结果示例：