是否获取excel工作表单元格的数据值并输入表单字段

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

其在每个单元格中输入相同的分数(最后一个文本框的值(。虽然我能理解它为什么这么做，但我不确定如何在不完全循环到第二盘的情况下，让它移动到下一个单元格以获得下一个分数。非常感谢您对如何实现这一目标的任何见解

Answer 1

请尝试以下操作。

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