excel - 如何使用 VBA 使用表单控制按钮提示行更改？

Question

我们有一个调查问卷回复的数据库，其格式可以在不同的行上显示每个回复，列标题是不同的问题。我们有一个单独的工作表，它被用作带有“下一个”表单控制按钮的显示仪表板，如果响应需要移动到下一组。例如

你叫什么名字？=回应！A2

你最喜欢的颜色是什么？=回应！B2

你几岁？=回应！C2

ETC

单击表单控制按钮时，我们需要出现下一组结果 EG

你叫什么名字？=回应！A3

你最喜欢的颜色是什么？=回应！B3

你几岁？=回应！C3

我们已经记录了我们希望通过一键实现的目标，VB 如下所示：

     '
       ActiveCell.FormulaR1C1 = "=Responses!R[-1]C[-3]"
       Range("D12:H15").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-9]C[-2]"
       Range("D18:H21").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-15]C[-1]"
       Range("D24:H27").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-21]C"
       Range("D30:H33").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-27]C"
       Range("D36:H39").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-33]C[2]"
       Range("D42:H45").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-39]C[3]"
       Range("F48").Select
    End Sub

这有效并将其相关单元格中的所有答案切换到下一行中的答案。但是，我们需要它在每次单击时继续并向下移动另一行，依此类推。

有谁知道实现我们需要的正确 VBA 是什么？

谢谢！

标签： excelvba