拖当Excel滚动条用户表单不会持续更新(Excel Scroll Bar User Form wo

我设计一个电子表格，将利用上有一个滚动条的用户表单。 我需要滚动条来实时更新指定为我用鼠标拖动滑块的细胞，目前只调整值在细胞中，当我释放鼠标。

我最初想使用滑块但是从研究看来，这些不能在一个窗体中使用。

有谁知道任何VBA代码或任何东西，这将使滚动条不断更新，因为我拖使用鼠标了吧？

Answer 1:

如果您使用的是一个窗体的滚动条，并要被拖动的更新，你需要你的代码是在滚动条的滚动事件处理程序。 情况与滚动条的修改事件处理程序，你descried的行为。 要看到差距，创建一个滚动条就可以了只控制一个新的窗体。 在它的代码模块中输入下面的两个事件处理程序。 当你运行它，你应该看到流畅B1而不是A1更新：

Private Sub ScrollBar1_Change()
    Range("A1").Value = ScrollBar1.Value
End Sub

Private Sub ScrollBar1_Scroll()
    Range("B1").Value = ScrollBar1.Value
End Sub

文章来源: Excel Scroll Bar User Form won't Continuously Update when Dragged