使用用户窗体时自动将工作表滚动到活动行

Question

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

我尝试添加一些在网上找到的代码，但它们均未能获得我想要的结果。

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

我没有使用VBA的经验。 老实说，我可以添加一个简单的代码段，但到目前为止，还没有喜悦。

1. 我扫描到文本框1，它将焦点移到文本框2
2. 我扫描到文本框2，它将数据添加到下一个空行-无需单击“确定”。
3. 焦点返回到文本框1。
4. 重复

现在，我只希望它保持可见的下一个空行，这样我就可以看到所有条目都在运行中。 基本上可以确保它们扫描正确。 现在，我必须经常关闭用户窗体，然后向下滚动并手动查看。 皮塔饼 :)

Answer 1

它不能完全实现您要求的自动滚动，但是您可以尝试将其ShowModal属性设置为“无模式”来调用用户窗体。 这至少将允许用户手动滚动页面。

https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/showmodal-property

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

sub CallNormsUserForm()
    NormsUserForm.show vbModeless
end sub