Excel滚动条用户窗体拖动时不会连续更新

我正在devise一个电子表格,它将利用带有滚动条的用户表单。 我需要滚动条更新实时指定的单元格,因为我使用鼠标拖动栏,目前它只调整单元格中的值,当我释放鼠标。

我最初想要使用滑块,但从研究看来,这些不能在用户窗体中使用。

有谁知道任何VBA代码或任何使滚动条不断更新,因为我用鼠标拖动栏?

如果您在用户窗体上使用滚动条,并且想要在拖动时进行更新,则需要将代码放在滚动条的滚动事件处理程序中。 您所描述的行为发生在滚动条的更改事件处理程序中。 为了看到不同,使用滚动条作为唯一的控件创build一个新的用户窗体。 在它的代码模块中input以下两个事件处理程序。 当你运行它,你应该看到B1,但不是A1顺利更新:

Private Sub ScrollBar1_Change() Range("A1").Value = ScrollBar1.Value End Sub Private Sub ScrollBar1_Scroll() Range("B1").Value = ScrollBar1.Value End Sub 
    Interesting Posts