如何遍历单元格和用户表单文本框以输入数据

Question

我正在使用作为审计记分卡的用户表单。表单上的每个文本框都是列表中每个项目的分数。我想要做的是当用户点击提交时，代码循环遍历这些分数所在的单元格范围并在其中输入分数。我有以下内容：

For i = 6 To 14         ' number of cells to loop through
    For j = 1 To 9      ' number of textboxes in the userform
        Cells(j, 3).Value = Me.Controls("score" & i).Value   'Textboxes named as such: score1, score2
    Next j
Next i

在每个单元格中输入相同的分数（最后一个文本框的值）。虽然我可以看到它为什么这样做，但我不确定如何让它移动到下一个单元格以获得下一个分数，而无需完全循环通过第 2 个单元格。任何有关如何实现这一目标的见解将不胜感激

Answer 1

你只需要一个循环：

For i = 6 To 14         
    Cells(i, 3).Value = Me.Controls("score" & (i-5)).Value   
Next i

（不确定你的细胞的确切位置，但你明白了）