Question

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

Sub 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 - 在定义的范围内从一个单元格移动到另一个单元格

1 个答案: