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

Question

我们有一个问卷调查数据库，该数据库的格式设置为在不同的行上显示每个答复，而列标题是一个不同的问题。我们有一个单独的工作表，用作带有“下一步”表单控制按钮的显示仪表板，如果有响应，则需要移至下一组。 E.G

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

您最喜欢什么颜色？ =回应！B2

您几岁？ =回应！C2

等

当单击表单控制按钮时，我们需要下一组结果显示为E.G

你叫什么名字？ =回应！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吗？

谢谢！