VBA

Question

我有以下任务：VBA Task 我必须在图片中的每个 table 单元格中输入评级（数字）。例如，我编写了要求我在单元格 F2 中输入一个值的代码（弹出框要求我输入一个值）！但我不知道如何让它一直运行到 J2，然后下降到 F3 等等，直到我用我想要的数字填充所有单元格。（参见 VBA 任务中的照片）这是代码：

子 GetScore()

   Dim QtyEntry As Integer

   Dim Msg As String

   Msg = "Please enter Rating"

   QtyEntry = InputBox(Msg)

   ActiveSheet.Range("F2").Value = QtyEntry

  End Sub

你能帮帮我吗？谢谢！

Answer 1

你的问题不是很清楚..你想要其他单元格中的值是什么？和你F2输入框输入的一样吗？或者你想要一个循环询问所有单元格值吗？

Dim r As Range
Set r = Sheets(1).Range("F2:J3")
Dim c As Range
For Each c In r.Cells
  c.Value = InputBox("Set value for: " & c.Address)
Next

VBA - 在定义的范围内从一个单元格移动到另一个单元格

VBA - moving from one cell to another within a defined range

cells