Excel 使用userform时自动将工作表滚动到活动行

通过用户表单输入数据。输入几个条目后，我再也看不到活动单元格，并且在userform处于活动状态时无法滚动工作表。我想让工作表自动滚动，以便在用户窗体上输入数据时保持活动单元格/行可见

我尝试添加一些我在网上找到的代码，但都没有得到我想要的结果

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub TextBox1_Change()

End Sub


Private Sub TextBox2_AfterUpdate()

Dim emptyRow As Long
If TextBox1.Value <> "" And TextBox2.Value <> "" Then
    With ThisWorkbook.Sheets("RO-BOX DETAILS")
        emptyRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        .Cells(emptyRow, 1).Value = TextBox1.Value
        .Cells(emptyRow, 2).Value = TextBox2.Value
        TextBox1.Value = ""
        TextBox2.Value = ""
        TextBox1.SetFocus
    End With
End If

End Sub


Private Sub UserForm_Click()

End Sub

专用子标签1\u单击（）
端接头
专用子标签2_单击（）
端接头
专用子文本框1_Change（）
端接头
私有子文本框2_AfterUpdate（）
暗空如长
如果TextBox1.Value“”和TextBox2.Value“”，则
使用此工作簿。工作表（“RO-BOX详细信息”）
emptyRow=.Cells（.Rows.Count，“A”）.End（xlUp）.行+1
.Cells（emptyRow，1）.Value=TextBox1.Value
.Cells（emptyRow，2）.Value=TextBox2.Value
TextBox1.Value=“”
TextBox2.Value=“”
TextBox1.SetFocus
以
如果结束
端接头
私有子用户表单_Click（）
端接头

我对VBA没有经验。我真的以为可以添加一个简单的代码片段，但到目前为止，还没有什么乐趣

我扫描到文本框1，它将焦点移动到文本框2

我扫描文本框2，它将数据添加到下一个空行-否 需要单击“确定”

焦点返回文本框1

重复

---

现在我只想让它保持下一个空行可见，这样我就可以看到条目动态地进入。基本上是为了确保扫描正确。现在，我必须经常关闭userform并向下滚动并手动查看。皮塔语：）

它不会完全实现您请求的自动滚动，但是您可以尝试调用userform，并将其ShowModal属性设置为“无模式”。这至少允许用户手动滚动工作表

…在该页面上没有可供遵循的示例，但它会像

sub CallNormsUserForm()
    NormsUserForm.show vbModeless
end sub

---

你好只需在下一个空行中选择一个单元格。尝试类似于单元格的内容（emptyRow+1，1）。选择查看